Ajout d'une ligne si les cellules ne sont pas identiques Fermé

Question

Bonjour, 

J'ai un fichier Excel dans lequel j'ai des ordres de fabrication et des opérations triés dans deux colonnes. Je souhaite ajouter une ligne qui soit de couleur grise lorsque je change d'ordre de fabrication.
Voici le tableau initial
Ordre fabrication	Opération
1022	                        10
1022	                        20
3002	                        10
3002	                        20
3006	                        10
3006	                        20
3006	                        30

Une fois le traitement terminé, je souhaite avoir ça

Ordre fabrication	Opération
1022	                        10
1022	                        20
"ligne insérée"
3002	                        10
3002	                        20
"ligne insérée"
3006	                        10
3006	                        20
3006	                        30

Pouvez-vous m'aider s'il vous plait?

ccm81 · Answer

Bonjour

un petit exemple

Const coOrd = "A"
Const lideb = 3

Public Sub InsereLignes()
Dim li As Long, lifin As Long
lifin = ActiveSheet.Range(coOrd & Rows.Count).End(xlUp).Row
For li = lifin To lideb * 1 Step -1
  If Range(coOrd & li) <> Range(coOrd & li - 1) Then Rows(li).Insert
Next li
End Sub
Cdlmnt

Ajout d'une ligne si les cellules ne sont pas identiques

1 réponse

Discussions similaires