Automatisation...
Résolu
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
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
-
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 -
Bonjour,
Uniquement en VBA,
-
Je m'en doutais un peu mais le VBA, je ne connait pas.
Quelqu'un peut m'aider? svp?
Merci
-
Si Mike (salut à toi) dit qu'il n'y a que vba, c'est que ....
Un exemple
https://www.cjoint.com/?3Czr2o4dt81
Cdlmnt -
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
