M
Michel
Guest
Bonjour,
Voici ma macro.
Je fais un déplacement d'une zone de cellule, mais je veux que si cette cellule est 'non vide' un message d'erreur apparaisse.
J'ai vraimant desoin d'aide, c'est la première fois que je fais une macro. Je ne suis pas très productif.. j'y suis depuis ce matin.
Merci
Michel
tota = Application.InputBox(prompt:='Veuillez saisir le numéro de la ligne ou vous voulez insérer ce module', Type:=1)
mavariable = tota
Range('toto').Select
If ('B' & mavariable) = '' Then
Selection.Cut Destination:=Range('B' & mavariable)
Else: MsgBox 'Vous avez sélectionné ' & Target
Range('a1').Select
End If
End Sub
Voici ma macro.
Je fais un déplacement d'une zone de cellule, mais je veux que si cette cellule est 'non vide' un message d'erreur apparaisse.
J'ai vraimant desoin d'aide, c'est la première fois que je fais une macro. Je ne suis pas très productif.. j'y suis depuis ce matin.
Merci
Michel
tota = Application.InputBox(prompt:='Veuillez saisir le numéro de la ligne ou vous voulez insérer ce module', Type:=1)
mavariable = tota
Range('toto').Select
If ('B' & mavariable) = '' Then
Selection.Cut Destination:=Range('B' & mavariable)
Else: MsgBox 'Vous avez sélectionné ' & Target
Range('a1').Select
End If
End Sub