M
Michel
Guest
Bonjour à Tous.
Je viens de finir cette Macro, c'est ma première. elle fonctionne. Par contre pvez vous me dire si elle est bien écrite et si on ne peut pas faire mieux.
Par avance 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
On Error GoTo erreur
Range('module1').Select
If IsEmpty(Range('B' & mavariable)) Then
If IsEmpty(Range('B' & mavariable + 1)) Then
If IsEmpty(Range('B' & mavariable + 2)) Then
Selection.Cut Destination:=Range('B' & mavariable)
Range('a' & mavariable).Select
Else: Range('a64').Select
MsgBox 'Vous avez sélectionné une cellule non vide '
Range('a' & mavariable).Select
End If
Else: Range('a64').Select
MsgBox 'Vous avez sélectionné une cellule non vide '
Range('a' & mavariable).Select
End If
Else: Range('a64').Select
MsgBox 'Vous avez sélectionné une cellule non vide '
Range('a' & mavariable).Select
End If
erreur: Range('a64').Select
End Sub
Je viens de finir cette Macro, c'est ma première. elle fonctionne. Par contre pvez vous me dire si elle est bien écrite et si on ne peut pas faire mieux.
Par avance 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
On Error GoTo erreur
Range('module1').Select
If IsEmpty(Range('B' & mavariable)) Then
If IsEmpty(Range('B' & mavariable + 1)) Then
If IsEmpty(Range('B' & mavariable + 2)) Then
Selection.Cut Destination:=Range('B' & mavariable)
Range('a' & mavariable).Select
Else: Range('a64').Select
MsgBox 'Vous avez sélectionné une cellule non vide '
Range('a' & mavariable).Select
End If
Else: Range('a64').Select
MsgBox 'Vous avez sélectionné une cellule non vide '
Range('a' & mavariable).Select
End If
Else: Range('a64').Select
MsgBox 'Vous avez sélectionné une cellule non vide '
Range('a' & mavariable).Select
End If
erreur: Range('a64').Select
End Sub