Aide à l’amélioration d'une macro

Bonjour,

ayant de besoin d'automatiser un réagencement d'un fichier, je me suis penché sur les macros depuis hier (il faut un début!)

J'arrive à faire ce que je souhaite sur une ligne sélectionnée mais je ne trouve pas comment faire pour que ma macro fonctionne si je sélectionne plusieurs lignes.

Actuellement, il saute la 2eme ligne sélectionnée

Ce que j'ai dans mon excel:

100191106 (Support)0	1	OP1 Découpe;OP2 Mécanique;OP3 Sablage
100191106 (Support)1	1	OP1 Découpe;OP2 Mécanique;OP3 Sablage

Je veux que ça ressorte comme ça:

100191106 (Support)0	1	OP1 Découpe
100191106 (Support)0	1	OP2 Mécanique
100191106 (Support)0	1	OP3 Sablage
100191106 (Support)1	1	OP1 Découpe
100191106 (Support)1	1	OP2 Mécanique
100191106 (Support)1	1	OP3 Sablage

Ma macro pour une ligne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub CollerNb_op() 'Déclaration des variables Dim numero_ligne As Integer Dim Tableau_op() As String Dim Nb_op As Integer 'Valeurs des variables numero_ligne = Selection.Row Tableau_op = Split(Range("C" & Selection.Row).Value, ";") Nb_op = UBound(Tableau_op) + 1 'Instruction 'En fonction de la sélection 'copier&insert For i = 2 To Nb_op Selection.Copy Rows(numero_ligne & ":" & numero_ligne).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False Next 'Range les OPs For Nb_op = 0 To UBound(Tableau_op) Range("C" & Nb_op + numero_ligne) = Trim(Tableau_op(Nb_op)) Next Nb_op End Sub

---

Si quelqu'un peut m'aider à la faire fonctionner pour plusieurs lignes sélectionnées, j'en serais ravi :mrgreen:
(Je suis ouvert à tout critique pour améliorer mon jet fait à coup d'essai et recherche)

Merci d'avance

(PS: Si un gentil modérateur peut déplacer dans la parti "Macro" :) (oui, oui, je n'avais pas vu...)

Salut.

Si j'ai bien compris, tu peux t'appuyer sur le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Test() Dim Cell As Range Dim Counter As Long Dim Row As Long Dim Rows As Long Dim Table   Set Cell = Range("a2") ' Cellule de démarrage Do While Cell.Value <> "" Table = Split(Cell(1, 3), ";") ' On récupère en tableau les données de la troisième colonne Rows = UBound(Table) + 1 Cell(2).Resize(Rows - 1).EntireRow.Insert shift:=xlUp ' On insère les lignes pour ajouter les données Cell(1, 3) = Table(0) ' On nettoie la première ligne pour qu'elle retienne la première valeur du tableau For Counter = 2 To Rows ' On boucle sur le tableau des données récupérées dans la troisième colonne Cell(Counter, 1).Value = Cell.Value Cell(Counter, 2).Value = Cell(1, 2).Value Cell(Counter, 3).Value = Table(Counter - 1) Next Counter Set Cell = Cell.Offset(Rows) ' On saute à la cellule non traitée suivante Loop End Sub

---

Merci de la réponse.
Je regarde ça dans la semaine et fait un retour.
J'ai quand même une question en lisant le code ( si j'ai bien compris).
Avec celui-ci, on ne tient pas compte des lignes sélectionnées? On lit l'ensemble de la colonne ?
Mon but final serait que ça marche que sur des lignes sélectionnées car le fichier brut à des lignes dispersées et celles qui sont au milieu, on ne veut pas les traiter.

Bonjour,

Citation:

---

on ne tient pas compte des lignes sélectionnées? On lit l'ensemble de la colonne ?

---

Ce code va commencer en A2 puis vas balayer toutes les cellules vides de ton tableau. Si j'ai bien suivi, il va copier les données de la colonne 3 et insérer puis coller les données en colonne 1

Citation:

---

Mon but final serait que ça marche que sur des lignes sélectionnées car le fichier brut à des lignes dispersées et celles qui sont au milieu, on ne veut pas les traiter.

---

Ca change la donne, en effet. Peut tu nous partager ton fichier pour que l'on puisse code quelque chose qui soit correct ?

Bonsoir,

merci de l'aide. Alors, je me suis penché sur le code fourni par Pierre et voici les constations que je n'en sorti sur mon utilisation.

Sa boucle sur la colonne 3 pour réinsérer le contenu marche très bien pour mon exemple mais je n'avais pas montré toute la complexité du problème.
Si il n'y a pas de séparateur, l'insertion bug (normal, insérer sur la même ligne bofbof) et de plus si je dépasse 2 séparateurs, il ne démultipliait pas tout le contenu, j'ai donc "triché" en lui disant de lancer la boucle que si il y a une valeur différente à 1 . Ca pousse à passer outre le cas d'absence de séparateur et de boucler en jusqu'au bout de si je dépasse les 2 séparateurs. C'est du bricolage mais je n'ai pas trouvé comment faire ceci avec "Trim"
Bref après réflexion, faire une lecture complet du fichier sans sléection, je trouve ça bien et plus simple!

Ensuite, j'ai rajouté une fonction pour combiner 2 colonnes (Matiere et épaisseur) dans une autre selon le contenu et pour finir en fonction du contenu de la colonne des OP (ou la colonne 3), je mets dans la colonne voisine un nom de "service" qui fera l'opération.

J'ai réussi à tout faire fonctionner ensemble à forcer de chercher de façon empirique et recherche sur le net mais, je suis à un point ou je sèche...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

Sub Organisation_nomenclature_solid() 'Range OP Dim Cell As Range Dim Matiere As String Dim Epaisseur As String Dim Nb_op As Long Dim Listing As Long Dim Table_op 'fin matiere Set Cell = Range("a2") ' Cellule de démarrage Do While Cell.Value <> "" 'Matiere Matiere = Cell(1, 6) Epaisseur = Cell(1, 7) If Not (Matiere Like "Matériau <non spécifié>") And Epaisseur Like ("Epaisseur@*") Then Cell(1, 5) = Matiere ElseIf Not (Matiere Like "Matériau <non spécifié>") And Not (Epaisseur Like "Epaisseur@*") Then Cell(1, 5) = Matiere & " " & Epaisseur End If 'fin matiere Table_op = Split(Cell(1, 3), ";") ' On récupère en tableau les données de la troisième colonne Listing = UBound(Table_op) + 1 If Listing <> 1 Then Cell(2).Resize(Listing - 1).EntireRow.Insert shift:=xlUp 'On insère les lignes pour ajouter les données Cell(1, 3) = Table_op(0) ' On nettoie la première ligne pour qu'elle retienne la première valeur du tableau For Nb_op = 2 To Listing ' On boucle sur le tableau des données récupérées dans la troisième colonne Cell(Nb_op, 1).Value = Cell.Value Cell(Nb_op, 2).Value = Cell(1, 2).Value Cell(Nb_op, 3).Value = Table_op(Nb_op - 1) Cell(Nb_op, 5).Value = Cell(1, 5).Value Next Nb_op End If Set Cell = Cell.Offset(Listing) ' On saute à la cellule non traitée suivante Loop 'RefERRIC Dim Espace As Object Dim Ctr Dim NombreCellule As Integer Set Espace = Range("C1").CurrentRegion NombreCellule = Espace.Count For Ctr = 1 To NombreCellule If Espace(Ctr) Like ("*Découpe*") Then Espace(Ctr).Offset(0, 1) = "ERRIC Découpe" ElseIf Espace(Ctr) Like ("*Pliage*") Then Espace(Ctr).Offset(0, 1) = "ERRIC Découpe" ElseIf Espace(Ctr) Like ("*Serrurerie*") Then Espace(Ctr).Offset(0, 1) = "ERRIC Serrurerie" ElseIf Espace(Ctr) Like ("*Mécanique*") Then Espace(Ctr).Offset(0, 1) = "ERRIC Mécanique" End If Next Columns("F:G").Delete shift:=xlToLeft End Sub

---

Ma nomenclature brut à des lignes où la cellule de la colonne 3 est vide et donc ma boucle plante. Je ne trouve pas comment lui dire de passer si elle est "vide". J'ai essayé avec des if mais ça fini en boucle sans fin puisque il revient sur cette ligne au lieu de la sauter. ou alors, il passe la ligne et arrête la boucle donc ne traite pas le reste du fichier :( Et j'aimerai qu'à partir du moment ou cette celulle de la colonne 3 est vide, il ne me fasse pas le traitement de la matière et épaisseur (colonne 5,6&7)


Je joins un excel avec un exemple de fichier brut (qui peut avoir 3 lignes comme 300) dans un onglet et un dans l'autre onglet ce que j'aimerai en final.

Merci d'avance pour l'aide.

Je m'auto-reponds un peu...
J'ai trouvé comment passé la cellule vide avec un if et offset.
Par contre je me rends compte que mon code pour remplir le le service traitement l'op se dupliquer jusqu'à ma colonne H. Pourquoi?