Macro sous condition

- - Dernière réponse :  Denis35 - 8 juin 2019 à 10:34
Bonjour,

J'ai créé une macro qui déplace une plage.
Je souhaiterais qu'en appuyant sur le bouton de la macro elle ne s'exécute que si A1<4;

La macro :

Sub Deplacer ()
Deplacer Macro

Range ("B1:F5").Select
Selection.Cut Destination:= Range ("B2:F6")
Range("B2:F6").Select

End Sub


Merci
Configuration: Windows / Firefox 67.0
Afficher la suite 

4 réponses

Messages postés
2002
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
21 octobre 2019
230
0
Merci
Bonjour,

Sub Deplacer()
    If [A1] < 4 Then Range("B1:F5").Cut Destination:=Range("B2:F6")
End Sub


Cdlt
Bonjour
Tout d'abord excusez le retard de la réponse, pour une raison indépendante de ma volonté.
J'ai complété le code la macro. Quand la condition est remplie la macro s'exécute.
Par contre quand la condition n'est pas remplie les données de la plage destinataire sont effacées alors que je souhaiterais qu'aucune action ne se produise. Comment résoudre ce problème.
Cdlt
Commenter la réponse de Frenchie83
Messages postés
2002
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
21 octobre 2019
230
0
Merci
Bonjour,

Sub Deplacer()
If [A1] < 4 Then
Range("B1:F5").Cut Destination:=Range("B2:F6")
End Sub
Commenter la réponse de Frenchie83
Messages postés
2002
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
21 octobre 2019
230
0
Merci
Bonjour,

Sub Deplacer()
If [A1] < 4 Then
Range("B1:F5").Cut Destination:=Range("B2:F6")
End Sub
Commenter la réponse de Frenchie83
Messages postés
2002
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
21 octobre 2019
230
0
Merci
Bonjour,
    If [A1] < 4 Then   Range("B1:F5").Cut Destination:=Range("B2:F6")   Else: exit sub


Cdlt
Commenter la réponse de Frenchie83