Ajoutez du code au début d'une macro si l'utilisateur sélectionne la mauvaise colonne de départ et donnez le message "Sélectionnez une cellule de la colonne" E "- vba, excel-vba, excel

Sub TryAgainPrint3()
"
" TryAgainPrint3 Macro
"

"
ActiveCell.Range("A1:H1").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Sheets("Print").Select
ActiveCell.Offset(-3, -2).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Problems").Select
ActiveCell.Offset(0, 8).Range("A1:I1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Print").Select
ActiveCell.Offset(2, 0).Range("A1:I1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Problems").Select
Range("V5").Select
ActiveCell.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Print").Select
ActiveCell.Offset(1, 2).Range("A1").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Réponses:

Pour que le sous-programme se termine si l'utilisateur n'a pas sélectionné de cellule dans la colonne E, vous pouvez ajouter l'instruction If suivante en haut de votre code:

If ActiveCell.Column <> 5 Then
MsgBox ("Select a cell in Column E")
Exit Sub
Else:
End If

Cela vous donne-t-il ce dont vous avez besoin? Vous pouvez spécifier n'importe quelle colonne, mais n'oubliez pas que vous devez utiliser l'index de colonne, pas la colonne elle-même. Colonne E = colonne 5