Erreur dans une macro.

[Michel]

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

 

[dg62]

Bonjour Michel

Sub essai()

 mavariable = Application.InputBox('Veuillez saisir le numéro de la ligne ou vous voulez insérer ce module', Type:=1)
 
Range('toto').Select

If IsEmpty(Range('B' & mavariable)) Then

    Selection.Cut
    Range('B' & mavariable).Select
    ActiveSheet.Paste
Else
    MsgBox 'Vous avez sélectionné une cellule non vide '
    Range('a1').Select
End If

End Sub

 

[Michel]

Bonjour dg62

Merci ... CA MARCHE...
Un vrai bonheur. enfin je touche au but.

Encore merci
Michel