Automatisation...
Résolu/Fermé
caro__48
Messages postés
242
Date d'inscription
mercredi 14 avril 2010
Statut
Membre
Dernière intervention
18 mai 2017
-
25 mars 2015 à 17:22
caro__48 Messages postés 242 Date d'inscription mercredi 14 avril 2010 Statut Membre Dernière intervention 18 mai 2017 - 26 mars 2015 à 10:05
caro__48 Messages postés 242 Date d'inscription mercredi 14 avril 2010 Statut Membre Dernière intervention 18 mai 2017 - 26 mars 2015 à 10:05
5 réponses
ccm81
Messages postés
10854
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
26 avril 2024
2 404
25 mars 2015 à 17:25
25 mars 2015 à 17:25
Bonjour
Par formule, je ne vois pas (ce qui ne veut pas dire que ...) mais via une macro, c'est très faisable
Tu dis
Cdlmnt
Par formule, je ne vois pas (ce qui ne veut pas dire que ...) mais via une macro, c'est très faisable
Tu dis
Cdlmnt
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
25 mars 2015 à 17:27
25 mars 2015 à 17:27
Bonjour,
Uniquement en VBA,
Uniquement en VBA,
caro__48
Messages postés
242
Date d'inscription
mercredi 14 avril 2010
Statut
Membre
Dernière intervention
18 mai 2017
61
25 mars 2015 à 17:33
25 mars 2015 à 17:33
Je m'en doutais un peu mais le VBA, je ne connait pas.
Quelqu'un peut m'aider? svp?
Merci
Quelqu'un peut m'aider? svp?
Merci
ccm81
Messages postés
10854
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
26 avril 2024
2 404
25 mars 2015 à 17:42
25 mars 2015 à 17:42
Si Mike (salut à toi) dit qu'il n'y a que vba, c'est que ....
Un exemple
https://www.cjoint.com/?3Czr2o4dt81
Cdlmnt
Un exemple
https://www.cjoint.com/?3Czr2o4dt81
Cdlmnt
caro__48
Messages postés
242
Date d'inscription
mercredi 14 avril 2010
Statut
Membre
Dernière intervention
18 mai 2017
61
26 mars 2015 à 10:01
26 mars 2015 à 10:01
Oh punaise c'est super ça marche!!
Merci merci c'est trop bien!!
Merci merci c'est trop bien!!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
25 mars 2015 à 17:57
25 mars 2015 à 17:57
Re, Salut Ccm,
ou comme ça
Sub Essai()
Application.ScreenUpdating = False
Dim Ligne As Long
For Ligne = Range("D65536").End(xlUp).Row To 2 Step -1
If Range("D" & Ligne) <> Range("D" & Ligne - 1) Then
Range("A" & Ligne).EntireRow.Insert
End If
Next
Application.ScreenUpdating = False
End Sub
ou comme ça
Sub Essai()
Application.ScreenUpdating = False
Dim Ligne As Long
For Ligne = Range("D65536").End(xlUp).Row To 2 Step -1
If Range("D" & Ligne) <> Range("D" & Ligne - 1) Then
Range("A" & Ligne).EntireRow.Insert
End If
Next
Application.ScreenUpdating = False
End Sub
caro__48
Messages postés
242
Date d'inscription
mercredi 14 avril 2010
Statut
Membre
Dernière intervention
18 mai 2017
61
26 mars 2015 à 10:05
26 mars 2015 à 10:05
Ca marche aussi :)
Trop bien, Merci Merci, Je vais gagner un temps de fou!!
Trop bien, Merci Merci, Je vais gagner un temps de fou!!