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
Bonjour,

J'ai un tableau de 5000 lignes environ qui se présente comme cela:

=Nombre1 == Nombre2 == Nombre3 == Nombre4
= 10 == 20 == 5 == test
= 10 == 20 == 5 == test
= 10 == 20 == 5 == test
= 10 == 20 == 5 == test
= 10 == 20 == 5 == loulou
= 10 == 20 == 5 == loulou
= 10 == 20 == 5 == Paul
etc.

Je souhaite savoir si il existe une formule qui me permet d'insérer une ligne vide (ou plusieurs) dès que le texte de la colonne 4 est différent.

Avez vous une idée??

Merci d'avance pour votre aide

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
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
0
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
Bonjour,

Uniquement en VBA,
0
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
Je m'en doutais un peu mais le VBA, je ne connait pas.

Quelqu'un peut m'aider? svp?
Merci

0
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
Si Mike (salut à toi) dit qu'il n'y a que vba, c'est que ....
Un exemple
https://www.cjoint.com/?3Czr2o4dt81

Cdlmnt
0
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
Oh punaise c'est super ça marche!!
Merci merci c'est trop bien!!
0

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
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
0
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
Ca marche aussi :)
Trop bien, Merci Merci, Je vais gagner un temps de fou!!
0