Automatisation... Résolu

Question

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

ccm81 · Answer

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

Mike-31 · Answer

Bonjour,

Uniquement en VBA,

caro__48 · Answer

Je m'en doutais un peu mais le VBA, je ne connait pas.

Quelqu'un peut m'aider? svp?
Merci

ccm81 · Answer

Si Mike (salut à toi) dit qu'il n'y a que vba, c'est que ....
Un exemple
https://www.cjoint.com/?3Czr2o4dt81

Cdlmnt

Mike-31 · Answer

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

Automatisation...

5 réponses

Discussions similaires

Newsletters