Erreur dans une macro.

Michel · 21 Avril 2005

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 · 21 Avril 2005

Bonjour Michel

Code:

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 · 21 Avril 2005

Bonjour dg62

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

Encore merci
Michel

Erreur dans une macro.

Michel

Guest

dg62

XLDnaute Barbatruc

Michel

Guest

Discussions similaires