[Help] Macro avec boucle de mise en forme

[toksib]

Bonjour,

Voila, depuis le début de cette journée j'essaye de réaliser une macro avec boucle me permettant de supprimer des lignes de quadrillage.

En fait, j'ai des numéros d'article (colonne A) et en face de chaque premier numéro d'article j'ai une description de cet article (colonne B). Si en dessous j'ai le même numéro d'article (Colonne A) alors dans la colonne description (colonne B) de cet article n'est pas répété.
Mais ce que je voudrais, c'est supprimer la barre qu'il y a entre la description de l'article est la case (ou les cases) vide(s) ci dessous.

Et idem en colonne L.

Pour plus de compréhension je vous envoie un fichier joint. Ce sera beaucoup plus simple.

Je suis vraiment mauvais pour réaliser des boucles. Si quelqu'un d'entre vous peut se pencher sur mon problème, ça serait fort aimable à lui.

en vous remerciant.

 

[pierrejean]

Re : [Help] Macro avec boucle de mise en forme

bonjour toksib

A tester

Sub modif()
For n = 5 To Range("A65536").End(xlUp).Row
  If Range("A" & n) = Range("A" & n - 1) Then Range("B" & n).Borders(xlEdgeTop).LineStyle = xlNone
Next n
End Sub

 

[Efgé]

Re : [Help] Macro avec boucle de mise en forme

Bonjour toksib, pierrejean ,
Je suis en retard mais comme je l'ai fait...

Sub Test()
Dim Derligne As Long
Derligne = Range("C" & Application.Rows.Count).End(xlUp).Row
For i = 2 To Derligne
    If Cells(i + 1, 1).Value = Cells(i, 1).Value Then
        Cells(i, 2).Borders(xlEdgeBottom).LineStyle = xlNone
        Cells(i, 12).Borders(xlEdgeBottom).LineStyle = xlNone
    End If
Next i
End Sub

En prenant en compte la colonne L.
Cordialement

 

[pierrejean]

Re : [Help] Macro avec boucle de mise en forme

Re

Salut et merci Efgé

J'avais omis de traiter la colonne L

Sub modif()
For n = 5 To Range("A65536").End(xlUp).Row
  If Range("A" & n) = Range("A" & n - 1) Then
    Range("B" & n).Borders(xlEdgeTop).LineStyle = xlNone
    Range("L" & n).Borders(xlEdgeTop).LineStyle = xlNone
  End If
Next n
End Sub

 

[toksib]

Re : [Help] Macro avec boucle de mise en forme

parfait ! merci bcp à vous 2 !

Bonne journée