A voir également:
- Macro sous condition
- Excel cellule couleur si condition texte - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
4 réponses
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
2 juin 2019 à 06:38
2 juin 2019 à 06:38
Bonjour,
Cdlt
Sub Deplacer()
If [A1] < 4 Then Range("B1:F5").Cut Destination:=Range("B2:F6")
End Sub
Cdlt
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
7 juin 2019 à 15:26
7 juin 2019 à 15:26
Bonjour,
Sub Deplacer()
If [A1] < 4 Then
Range("B1:F5").Cut Destination:=Range("B2:F6")
End Sub
Sub Deplacer()
If [A1] < 4 Then
Range("B1:F5").Cut Destination:=Range("B2:F6")
End Sub
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
7 juin 2019 à 15:26
7 juin 2019 à 15:26
Bonjour,
Sub Deplacer()
If [A1] < 4 Then
Range("B1:F5").Cut Destination:=Range("B2:F6")
End Sub
Sub Deplacer()
If [A1] < 4 Then
Range("B1:F5").Cut Destination:=Range("B2:F6")
End Sub
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
Modifié le 7 juin 2019 à 15:27
Modifié le 7 juin 2019 à 15:27
Bonjour,
Cdlt
If [A1] < 4 Then Range("B1:F5").Cut Destination:=Range("B2:F6") Else: exit sub
Cdlt
7 juin 2019 à 12:04
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