Macro sous condition
Denis35
-
Denis35 -
Denis35 -
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
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
4 réponses
-
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
-
-
Bonjour,
Sub Deplacer()
If [A1] < 4 Then
Range("B1:F5").Cut Destination:=Range("B2:F6")
End Sub -
Bonjour,
Sub Deplacer()
If [A1] < 4 Then
Range("B1:F5").Cut Destination:=Range("B2:F6")
End Sub -
Bonjour,
If [A1] < 4 Then Range("B1:F5").Cut Destination:=Range("B2:F6") Else: exit sub
Cdlt
