Discussion :

[admdg]

Bonjour à tous,

Dans le cadre de mon travail j'ai réalisé un fichier excel avec des macros afin d'éditer un bon de préparation.
Le plus gros du chantier est fait cependant j'aimerais pouvoir séparer les commandes qui différent dans mon tableau de manière à ce que ce soit plus lisible pour ceux qui vont l'utiliser...
J'ai cherché plusieurs jours sur internet des codes qui pourraient s'appliquer mais je bloque à chaque fois.
Enfaite les préparations sont en lignes, et je souhaiterai que la macro s'opère selon les cellules de la colonne "Mode" (ce sera plus parlant sur le fichier Excel...)
De mon point de vue, soit
1° le code fait insérer une ligne entre deux cellules différentes de la colonne "mode"
2° je fais en sorte que mon tableau se remplisse une ligne sur deux et la macro supprime la ligne entre les cellules identiques dans la colonne mode
Qu'en pensez-vous ?

Merci d'avance pour votre aide

(mon vrai tableau est plus complet que celui dans le fichier exemple mais la disposition des cellules est la même)

[Igloobel]

Bonjour,

Voici 2 macros et comme tu vois elles sont très proche donc pas différence pour moi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub solut_1()
    Dim Lign As Long
    Dim Plage As String
 
    Lign = 22
    For Lign = 22 To 50
        If Cells(Lign, 5).Value <> Cells(Lign + 1, 5).Value Then
            Lign = Lign + 1
            Plage = Lign & ":" & Lign
            Rows(Plage).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub solut_2()
    Dim Lign As Long
    Dim Plage As String
 
    For Lign = 22 To 50
        If Cells(Lign + 1, 5).Value = "" And Cells(Lign, 5).Value = Cells(Lign + 2, 5).Value Then
            Lign = Lign + 1
            Plage = Lign & ":" & Lign
            Rows(Plage).Delete Shift:=xlUp
            Lign = Lign - 1
        End If
    Next
End Sub

La solution la meilleure est forcément la plus simple

tu dis si cela te convient

A+

[parmi]

Bonjour,

L'idéal quand on insère ou supprime des lignes ou colonnes, c'est de boucler à partir de la fin.
De cette manière, on n'a pas à gérer les changements de lignes ou de colonnes en ajustant la valeur de la variable de boucle.

[admdg]

Merci de vos réponses, j'ai essayé les deux versions et elles sont fonctionnelles (c'est vrai pour ce qui est du plus simple ! Ce sera donc la 1ère solution ) cependant un autre problème apparait.

En effet lorsque je lance la macro ça me fait bien les séparations de ligne c'est parfait mais est-il possible de supprimer ces mêmes lignes ?
Enfaite je ne sais pas vraiment comment m'y prendre là :
mon tableau est rempli de formules et de renvois qui se font à partir d'un onglet voisin du même document. Sur cet autre onglet je fais un coller à partir d'un autre document pour y prendre des infos qui, grace aux formules et autres tours de magie, sont lisibles et mieux présentées sur la page où j'essaie de faire les insertions de lignes.
Cependant mettons que demain je fasse un autre collé avec un document différent, avec mes lignes insérées de la veille mes formules sont décalées et des lignes s'ajoutent par dessus...
Je ne sais pas si j'ai été clair n'hésitez pas à me demander de recommencer

Serait-ce ce dont tu voulais me mettre en garde Parmi ?

[parmi]

Regarde le message #2 ici
Si tu veux supprimer la ligne, change Hidden = True par Delete
Et modifie le range de vérification au besoin
Comme tu peux voir, la boucle commence à la fin et remonte...

[admdg]

J'ai essayé de joindre le code cité, true remplacé avec delete, ce qui nous donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub fusionnerMode()
 
Dim Lign As Long
Dim Plage As String
Dim I As Long, nbLignes As Long
nbLignes = Cells(Rows.Count, "D").End(xlUp).Row
 
    For I = nbLignes To 2 Step -1
        'Utiliser la fonction nbVal pour savoir s'il n'y a aucune valeur
        If Application.WorksheetFunction.CountA(Range("A" & I & ":E" & I)) = 0 Then
            Rows(I).Hidden = Delete
        End If
    Next
 
    Lign = 22
    For Lign = 22 To 50
        If Cells(Lign, 5).Value <> Cells(Lign + 1, 5).Value Then
            Lign = Lign + 1
            Plage = Lign & ":" & Lign
            Rows(Plage).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next
 
End Sub

cependant je pense l'avoir mal fait car le résultat est le même à savoir le nouveau flux de données (arrivé via les extractions et formules) se font avec les lignes insérées de la fois précédente du coup ça me rajoute d'autres lignes par dessus