Discussion :

[Walt51]

Bonjour,

Mon code permet de rapatrier des valeurs d'une feuille voisine dans la feuille active.
Lorsque j'entre la référence article dans ma feuille, la macro complète les colonnes "Désignation" , "matière"...
Le code marche bien quand j'entre une seule référence à la fois (soit en tapant soit en (Ctrl+V).
Problème, si je fais un (Ctrl+V) avec plusieurs réf ça plante.
J'ai ajouté la ligne

Code :

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

If Target.Count > 1 Then Exit Sub

mais ce n'est que contourner le problème car plus de plantage mais plus non plus de remplissage.

Y a-t-il une solution?

Merci

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
'+++++++++++++++++++++++++++++++++++++++++++++++Récupération désignation matière...+++++++++++++++++++++++++++++++++
 
    Dim Tabl As Variant
 
 
 
    If Not Intersect(Target, [B20:B200]) Is Nothing Then
 
 
 
        Tabl = [ListeDesArticlesAImporter].Value2 '"Value2" recopie toutes les décimales
        For J = 1 To UBound(Tabl)
        If Target.Count > 1 Then Exit Sub 'J'aimerai me dispenser de cette ligne
 
            If Tabl(J, 2) = Target.Value2 Then ' And Tabl(i, 7) = [K11] Then 'Choix du fournisseur
                Application.EnableEvents = False
                Target.Offset(, 1) = Tabl(J, 3) 'colonne 1 (Désignation) par rapport à B = colonne 3 du tableau
                Target.Offset(, 2) = Tabl(J, 5) 'colonne 2 (Matière)
               Target.Offset(, 3) = Tabl(J, 6) 'colonne 3 (Traitement finition)
                Target.Offset(, 6) = Tabl(J, 8) 'colonne 6 (PU € HT)
                Application.EnableEvents = True
            End If
 
        Next J
 
    End If

[parmi]

Bonjour,

Peut-être quelque chose comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cellule As Range
 
    Application.EnableEvents = False
    If Target.Count > 1 Then
        For Each Cellule In Target.Cells
            Cellule.Offset(0, 1) = "ce que tu veux faire"
        Next
    Else
        Target.Offset(0, 1) = "ce que tu veux faire"
    End If
    Application.EnableEvents = True
End Sub

Par contre, il faut tout de même valider si on est dans la bonne colonne et si la copie ne concerne pas plusieurs colonnes,... Target.Columns.Count

[Walt51]

Merci pour la réponse mais je n'y arrive pas.

Pour information [ListeDesArticlesAImporter] est l'ensemble des cellules de ma "base articles" (dans la feuille base articles)
Le but est que lorsqu'on entre une valeur dans la colonne "réf" (cellules B20 B100) de la feuille "Création de commande", la macro complète les colonnes "désignation", "matière" (colonne C, D, E... ) de la feuille "Création de commande". ( Se sont les données de la feuille "Base articles" qui sont recopiées dans la "Création de commande".

Du coup j'imagine comme solution:
-Si une cellule modifié => code existant
-Si plusieurs cellules modifiées => compléter ligne par ligne en commençant par la première ligne modifiée jusqu’à la dernière ligne modifiée.

Quelqu'un a-t-il une idée pour l'écrire en VBA?

Merci

[parmi]

C'est la piste que je te donnais.
Sans tester, c'est ce que je pense que ça donnerait avec ton code

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
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub Worksheet_Change(ByVal Target As Range)
 
'+++++++++++++++++++++++++++++++++++++++++++++++Récupération désignation matière...+++++++++++++++++++++++++++++++++
    Dim J As Long
    Dim Cellule As Range
    Dim Tabl As Variant
 
    If Not Intersect(Target, [B20:B200]) Is Nothing Then
 
        Tabl = [ListeDesArticlesAImporter].Value2 '"Value2" recopie toutes les décimales
        If Target.Count > 1 Then  'cas de plusieurs cellules modifiées
            For Each Cellule In Target.Cells  'on lit chaque cellule modifiée
               For J = 1 To UBound(Tabl)
                   If Tabl(J, 2) = Cellule.Value2 Then ' And Tabl(i, 7) = [K11] Then 'Choix du fournisseur
                       Application.EnableEvents = False
                       Cellule.Offset(, 1) = Tabl(J, 3) 'colonne 1 (Désignation) par rapport à B = colonne 3 du tableau
                       Cellule.Offset(, 2) = Tabl(J, 5) 'colonne 2 (Matière)
                       Cellule.Offset(, 3) = Tabl(J, 6) 'colonne 3 (Traitement finition)
                       Cellule.Offset(, 6) = Tabl(J, 8) 'colonne 6 (PU € HT)
                       Application.EnableEvents = True
                       Exit For
                   End If
 
               Next J
            Next
        Else  'seulement une cellule modifiée
           For J = 1 To UBound(Tabl)
               If Tabl(J, 2) = Target.Value2 Then ' And Tabl(i, 7) = [K11] Then 'Choix du fournisseur
                   Application.EnableEvents = False
                   Target.Offset(, 1) = Tabl(J, 3) 'colonne 1 (Désignation) par rapport à B = colonne 3 du tableau
                   Target.Offset(, 2) = Tabl(J, 5) 'colonne 2 (Matière)
                  Target.Offset(, 3) = Tabl(J, 6) 'colonne 3 (Traitement finition)
                   Target.Offset(, 6) = Tabl(J, 8) 'colonne 6 (PU € HT)
                   Application.EnableEvents = True
               End If
 
           Next J
        End If
 
    End If
End Sub

[Walt51]

Merci beaucoup,

Ca marche très bien.

[eriiic]

Bonjour,

en fait If Target.Count > 1 n'est pas vraiment nécessaire.
For Each Cellule In Target.Cells fonctionne tout aussi bien avec 1 cellule.
Ca fait moitié moins de code :-)
eric

[Walt51]

Merci pour l'info.

[parmi]

Bonjour,

en fait If Target.Count > 1 n'est pas vraiment nécessaire.
For Each Cellule In Target.Cells fonctionne tout aussi bien avec 1 cellule.
Ca fait moitié moins de code :-)
eric

Effectivement