Discussion :

[zewho]

Bonjour à tous,

J'ai parcouru le forum pour mon pb, j'ai bien trouvé des éléments de réponse mais je n'ai pas la connaissance nécessaire en VBA pour les combiner.. Je me tourne donc vers vous !

Voici mon pb :

Pdv Adresse Client Produit

Pdv 1 Adresse 1 client 1 A
Pdv 2 Adresse 2 client 2 B
Pdv 3 Adresse 3 client 3 C
Pdv 4 Adresse 4 client 4 C
Pdv 5 Adresse 5 client 5 A


J'aimerais automatiser ce process :
Si le produit est A
Alors insérer 3 lignes sous la ligne qui contient le produit
Et recopier les colonnes "Pdv" "Adresse" et "Client"
par contre remplacer les produits des 3 nouvelles lignes par X , Y et Z
Et finir en supprimant la première ligne qui contenait A

ainsi j'aurais :

Pdv Adresse Client Produit

Pdv 1 Adresse 1 client 1 X
Pdv 1 Adresse 1 client 1 Y
Pdv 1 Adresse 1 client 1 Z
Pdv 2 Adresse 2 client 2 B
Pdv 3 Adresse 3 client 3 C
Pdv 4 Adresse 4 client 4 C
Pdv 5 Adresse 5 client 5 X
Pdv 5 Adresse 5 client 5 Y
Pdv 5 Adresse 5 client 5 Z

J'espère être clair,

Merci d'avance pour votre aide.

[jfontaine]

Bonjour,

Cela devrait faire ce que tu souhaites

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
Dim i As Long
Dim j As Integer
 
i = 1
Do While Range("A" & i).Value <> ""
 
    If Range("D" & i).Value = "A" Then
        For j = 1 To 2
            Rows(i + 1).Insert
            Range("A" & i & ":C" & i).Copy Range("A" & i + 1)
            Range("D" & i).Value = "X"
            Select Case j
                Case 1
                    Range("D" & i + 1).Value = "Z"
                Case 2
                    Range("D" & i + 1).Value = "Y"
            End Select
        Next j
    End If
 
    i = i + 1
Loop

En considerant que les données commencent ligne 1 (sans en tetes)

[zewho]

Bonjour,

Avant tout, merci pour votre réponse.

Lorsque je compile la macro, une erreur survient en surlignant le "1" de

i = 1

"Instruction incorrecte à l'extérieur d'une procédure"

Peut-être s'agit-il d'un problème d'utilisation ?

Je colle le code dans Microsoft Visual Basic dans la feuille concernée puis je clique sur Débogage / Compiler VBAproject, et cette erreur apparait.

De plus, en regardant votre code, je ne comprend pas comment la ligne contenant A serait supprimée ?

Merci pour le temps consacré à mon pb

Cordialement

[mercatog]

tu dois mettre quand même

Code :

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

1
2
3
sub kuku()
'le code fourni clef en main
end sub

la ligne contenant A n'est pas supprimée, le A est remplacé par le X
si tu regardais le code, il insère 2 lignes et modifie la première (au cas ou produit=A)

[rvtoulon]

Bjr, zewho, jfontaine

il faut coller le code de jfontaine dans une procédure, tel quel c sur ça ne marche pas. C'est à dire :

Code :

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

1
2
3
4
5
6
Sub Essai ()

'Colle ici le code de jfontaine ......

End Sub

Dans le code de jfontaine il manque l'instruction "Sub" qui commence une procédure, et "End Sub" qui la termine. Lecode est entre les deux.



Tu mets tout ça dans un module.

A+

EDIT: Bjr Mercatog dsl de faire doublon on a poster ensemble

[zewho]

Bonjour,

Merci beaucoup pour vos réponses, cela fonctionne à merveille !

Cordialement

Solution :

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
25
26
27
28
 
Sub eclate()
 
 
Dim i As Long
Dim j As Integer
 
i = 1
Do While Range("A" & i).Value <> ""
 
    If Range("D" & i).Value = "A" Then
        For j = 1 To 2
            Rows(i + 1).Insert
            Range("A" & i & ":C" & i).Copy Range("A" & i + 1)
            Range("D" & i).Value = "X"
            Select Case j
                Case 1
                    Range("D" & i + 1).Value = "Z"
                Case 2
                    Range("D" & i + 1).Value = "Y"
            End Select
        Next j
    End If
 
    i = i + 1
Loop
 
End Sub