Ajout d'une ligne si les cellules ne sont pas identiques
ManuPi
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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?
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?
A voir également:
- Ajout d'une ligne si les cellules ne sont pas identiques
- Partager photos en ligne - Guide
- Aller à la ligne dans une cellule excel - Guide
- Mètre en ligne - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Excel cellule couleur si condition texte - Guide
1 réponse
Bonjour
un petit exemple
Cdlmnt
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
