Insertion ligne blanche suivant conditions

[osiris150]

Bonjour,

Je voulais soumettre mon petit problème. Je souhaiterais pouvoir insérer
automatiquement une ligne blanche entre 2 lignes mais suivant une condition.
La condition est que si le N° se trouvant dans les cellules de la colonne A
sont différents, on insère une ligne blanche sinon on ne fait rien.

Exemple : on a en A8 le N°55249 et en A9 le N° 54802 alors on insère une ligne entre les deux.
On a en A10 le N° 54817 et en A11 le N° 54817 alors on insère pas de ligne.

Merci d'avance pour votre aide précieuse. Je vous ai joint un fichier pour exemple.

 

[Spitnolan08]

Re : Insertion ligne blanche suivant conditions

Bonjour,

Avec ce petit bout de code placé dans un module standard :

Sub insert()
Dim i As Integer

For i = Range("A65500").End(xlUp).Row To 2 Step -1
    If Cells(i, "A") <> Cells(i - 1, "A") Then Rows(i).EntireRow.insert
Next

End Sub

Cordialement

 

[pierrejean]

Re : Insertion ligne blanche suivant conditions

bonjour osiris

Salut Spit🙂

en complement du code de spit que je salue bien et pour avoir les lignes intercalaires en blanc:

Sub insert()
Application.ScreenUpdating = False
Dim i As Integer
For i = Range("A65500").End(xlUp).Row To 2 Step -1
    If Cells(i, "A") <> Cells(i - 1, "A") Then Rows(i).EntireRow.insert
Next
For n = 2 To Range("A65536").End(xlUp).Row
 If Range("A" & n) = "" Then Rows(n).Interior.ColorIndex = xlNone
Next n
Application.ScreenUpdating = True
End Sub

 

[osiris150]

Re : Insertion ligne blanche suivant conditions

c'est parfait !! Merci pour ta rapidité !!🙂

Merci aussi à Pierre Jean pour le petit "+" !!
Salutations.