Ajouter une "Target" à Private Sub Worksheet_Change(ByVal Target As Range)

**'OTM'** · 16/12/2014, 13h53

Bonjour à toutes et à tous,

Je suis débutant, je travaille avec une macro qui toune à merveille, j'aimerai simplement ajouter en copie la feuille2 de cette macro puis une "Target"en "AF"et copier ma nouvelle sélection en feuille3.
et vérouiller par le même mot de passe mes feuilles (1,3, base). mais c'est pas facile pour un débutant.

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
Private Sub Worksheet_Change(ByVal Target As Range)
        If Intersect(Target, Columns("AE")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
        ActiveSheet.Unprotect Password:="TEST"
        Dim sheetTemp As Worksheet
        Dim sheetToPaste As Worksheet
        Dim rng As Range
 
        If Target <> "" Then
            Range("J" & Target.Row).Value = Now()
            Application.Union(Range("A" & Target.Row & ":E" & Target.Row), Range("J" & Target.Row & ":J" & Target.Row), Range("X" & Target.Row & ":X" & Target.Row), Range("AD" & Target.Row & ":AE" & Target.Row), Range("AG" & Target.Row & ":AN" & Target.Row)).SpecialCells(xlCellTypeVisible).Select
            Selection.Copy
            Set sheetTemp = ActiveSheet
            Set sheetToPaste = Worksheets("Feuil1")
            sheetToPaste.Activate
            lastRow = sheetToPaste.Columns(1).Find(What:="*", SearchDirection:=xlPrevious).Row
            sheetToPaste.Range("A" & lastRow + 1).Select
            Selection.PasteSpecial Paste:=xlPasteValues
            Set rng = sheetToPaste.Range("A2", "Q" & lastRow + 2)
            rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17), Header:=xlNo
            sheetTemp.Activate
                    Range("a" & Target.Row).Resize(1, 40).Locked = True
        Else
            Range("a" & Target.Row).Resize(1, 40).Locked = False
 
 
        End If
            ActiveSheet.Protect Password:="TEST"
 
 
End Sub

Merci de votre précieuse aide

**Daniel.C** · 16/12/2014, 14h13

Bonjour,

Pas sûr d'avoir bien compris. Ton code pourrait s'articuler comme suit :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 31 And Target.Cells.Count = 1 Then '(Target.Count = 1 le fait aussi)
    'ton code
ElseIf Target.Column = 32 And Target.Cells.Count = 1 Then
    'ton code
End If

et, pour les mots de passe :

Code :

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

1
2
3
Sheets("1").Protect Password:="TEST"
Sheets("3").Protect Password:="TEST"
Sheets("base").Protect Password:="TEST"

**'OTM'** · 16/12/2014, 15h24

Re bonjour Daniel,

j'ai malheureusement erreur de compilation "Else sans IF"

Code :

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

ElseIf Target.Column = 32 And Target.Cells.Count = 1 Then.

J'espère avoir bien compris , ci joint le code mis à jour.

Bloc note.txt

Cdt

**Daniel.C** · 16/12/2014, 15h39

Oui ça a l'air d'être bon.

**'OTM'** · 16/12/2014, 15h44

Bien malheureusement erreur de compilation "Else sans IF", sur la seconde partie du code :

Code :

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

ElseIf Target.Column = 32 And Target.Cells.Count = 1 Then

**Daniel.C** · 16/12/2014, 15h53

Il manque un "End If" avant le ElseIf :

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
    If Target <> "" Then
        Range("J" & Target.Row).Value = Now()
        Application.Union(Range("A" & Target.Row & ":E" & Target.Row), Range("J" & Target.Row & ":J" & Target.Row), Range("X" & Target.Row & ":X" & Target.Row), Range("AD" & Target.Row & ":AE" & Target.Row), Range("AG" & Target.Row & ":AN" & Target.Row)).SpecialCells(xlCellTypeVisible).Select
        Selection.Copy
        Set sheetTemp = ActiveSheet
        Set sheetToPaste = Worksheets("Feuil1")
        sheetToPaste.Activate
        lastRow = sheetToPaste.Columns(1).Find(What:="*", SearchDirection:=xlPrevious).Row
        sheetToPaste.Range("A" & lastRow + 1).Select
        Selection.PasteSpecial Paste:=xlPasteValues
        Set rng = sheetToPaste.Range("A2", "Q" & lastRow + 2)
        rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17), Header:=xlNo
        sheetTemp.Activate
        Range("a" & Target.Row).Resize(1, 40).Locked = True
     Else
     Range("a" & Target.Row).Resize(1, 40).Locked = False
'******************** ICI***************************************
ElseIf Target.Column = 32 And Target.Cells.Count = 1 Then

**'OTM'** · 16/12/2014, 16h25

J'ai corrigé et maintenant j'ai Erreur de compilation:

Déclaration existante dans la portée en cours:

Code :

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

1
2
3
ElseIf Target.Column = 32 And Target.Cells.Count = 1 Then
ActiveSheet.Unprotect Password:="TEST"
 Dim sheetTemp As Worksheet

j'espère ne pas avoir fait d'erreur cette fois

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Private Sub Worksheet_Change(ByVal Target As Range)
  
 If Target.Column = 31 And Target.Cells.Count = 1 Then '(Target.Count = 1 le fait aussi)
 ActiveSheet.Unprotect Password:="TEST"
 Dim sheetTemp As Worksheet
 Dim sheetToPaste As Worksheet
 Dim sheetToPaste2 As Worksheet
 Dim rng As Range
 
If Target <> "" Then
 Range("J" & Target.Row).Value = Now()
 Application.Union(Range("A" & Target.Row & ":E" & Target.Row), Range("J" & Target.Row & ":J" & Target.Row), Range("X" & Target.Row & ":X" & Target.Row), Range("AD" & Target.Row & ":AE" & Target.Row), Range("AG" & Target.Row & ":AN" & Target.Row)).SpecialCells(xlCellTypeVisible).Select
 Selection.Copy
 Set sheetTemp = ActiveSheet
 Set sheetToPaste = Worksheets("Feuil1")
 sheetToPaste.Activate
 lastRow = sheetToPaste.Columns(1).Find(What:="*", SearchDirection:=xlPrevious).Row
 sheetToPaste.Range("A" & lastRow + 1).Select
 Selection.PasteSpecial Paste:=xlPasteValues
 Set rng = sheetToPaste.Range("A2", "Q" & lastRow + 2)
 rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17), Header:=xlNo
 sheetTemp.Activate
 Range("a" & Target.Row).Resize(1, 40).Locked = True
 Else
 Range("a" & Target.Row).Resize(1, 40).Locked = False

End If

ElseIf Target.Column = 32 And Target.Cells.Count = 1 Then
ActiveSheet.Unprotect Password:="TEST"
 Dim sheetTemp As Worksheet
 Dim sheetToPaste As Worksheet
 Dim sheetToPaste2 As Worksheet
 Dim rng As Range
 
If Target <> "" Then
 Range("J" & Target.Row).Value = Now()
 Application.Union(Range("A" & Target.Row & ":E" & Target.Row), Range("J" & Target.Row & ":J" & Target.Row), Range("X" & Target.Row & ":X" & Target.Row), Range("AD" & Target.Row & ":AE" & Target.Row), Range("AG" & Target.Row & ":AN" & Target.Row)).SpecialCells(xlCellTypeVisible).Select
 Selection.Copy
 Set sheetTemp = ActiveSheet
 Set sheetToPaste = Worksheets("Feuil2")
 sheetToPaste.Activate
 lastRow = sheetToPaste.Columns(1).Find(What:="*", SearchDirection:=xlPrevious).Row
 sheetToPaste.Range("A" & lastRow + 1).Select
 Selection.PasteSpecial Paste:=xlPasteValues
 Set rng = sheetToPaste.Range("A2", "Q" & lastRow + 2)
 rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17), Header:=xlNo
 sheetTemp.Activate
 Range("a" & Target.Row).Resize(1, 40).Locked = True
 Else
 Range("a" & Target.Row).Resize(1, 40).Locked = False

  End If
 Sheets("Base").Protect Password:="TEST"
Sheets("Feuil1").Protect Password:="TEST"
Sheets("Feuil2").Protect Password:="TEST"

End Sub

Cdt

**Daniel.C** · 16/12/2014, 16h27

Déclaration existante dans la portée en cours:

C'est du langage Microsoft pour dire que tu déclares plusieurs fois la même variable.
Il ne faut pas que tu répètes tes déclarations (Dim...). Tu ne peux les faire qu'une fois par macro. C'est d'ailleurs suffisant.

**'OTM'** · 16/12/2014, 16h32

Donc je supprime DIM de la seconde partie du code après :

Code :

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

ElseIf Target.Column = 32 And Target.Cells.Count = 1 Then

Pas façile d'avoir affaire à un débutant désolé

**Daniel.C** · 16/12/2014, 16h38

Donc je supprime DIM de la seconde partie du code après :

Code :

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

ElseIf Target.Column = 32 And Target.Cells.Count = 1 Then

Tout à fait.

Pas façile d'avoir affaire à un débutant

"L'homme arrive novice à chaque âge de la vie."

Chamfort

Donc, pas de problème, on est tous passé par là. ;

**'OTM'** · 16/12/2014, 16h45

La première partie du script fonctionne parfaitement , mais la seconde j'ai enlevé DIM répétés et lorsque je sélectionne ma liste déroulante colonne"32" message erreur d'exécution '91': Variable objet ou variable de bloc With non défini. pour

Code :

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

lastRow = sheetToPaste.Columns(1).Find(What:="*", SearchDirection:=xlPrevious).Row

Ci-joint le code modifié:
Cdt

Bloc note.txt

**Daniel.C** · 16/12/2014, 16h59

Comme le message ne l'indique pas, la colonne doit être vide.

**'OTM'** · 16/12/2014, 17h12

Vraiment merci beaucoup pour votre patience et votre dévouement.

Alléluia!!!
Finalement en mettant un titre à chaque colonne de ma feuille 2 cela fonctionne, il ne me reste plus qu'à finaliser les mots de passe qui eux me donnent du fil à retordre. erreur 9 : l'indice n'appartient pas à la sélection.
Je suis à la bourre!!!^^

**Daniel.C** · 16/12/2014, 17h24

erreur 9 : l'indice n'appartient pas à la sélection

Ca veut dire que le nom de la feuille n'est pas le bon.

**'OTM'** · 17/12/2014, 08h48

Bonjour Daniel,

J'ai bien essayé de placer à différents endroits:

Code :

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

ActiveSheet.Unprotect Password:="TEST"

et

Code :

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

1
2
3
Sheets("1").Protect Password:="TEST"
Sheets("2").Protect Password:="TEST"
Sheets("base").Protect Password:="TEST"

la seule solution est de désactiver la protection de la feuille, cela fonctionne , mais je peux alors modifier toutes mes cellules.

Mais impossible au final d'avoir toutes mes feuilles verrouillées (pour ne pas "polluer" mes informations).

et pour résoudre mon classeur il me manque aussi la copie de la feuille1 dans une autre feuille (un collé identique de la feuille1)

Pour le reste tout va bien.

Cdt
Bloc Note.txt

**Daniel.C** · 17/12/2014, 09h23

Bonjour,

J'ai bien essayé de placer à différents endroits:

Code :

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

ActiveSheet.Unprotect Password:="TEST"

et

Code :

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

1
2
3
Sheets("1").Protect Password:="TEST"
Sheets("2").Protect Password:="TEST"
Sheets("base").Protect Password:="TEST"

la seule solution est de désactiver la protection de la feuille, cela fonctionne , mais je peux alors modifier toutes mes cellules.

Tu les déprotèges juste le temps de l'exécution de la macro et tu les reprotèges ensuite. Sinon, tu peux les protéger comme ceci :

Code :

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

Sheets("1").Protect Password:="TEST", Userinterfaceonly=True

**'OTM'** · 17/12/2014, 16h07

Re Bonjour Daniel,

j'ai le code erreu suivant : Erreur de compilation: attendu: paramètre nommé

Code :

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

Sheets("2N Traité").Protect Password:="TEST", Userinterfaceonly=True

décidément je vais pas pouvoir me proèger...

à l'heure actuelle je ne sais plus ou placer mes (ActiveSheet.protect Password:="TEST") pour que ça fonctionne correctement comme avec ce code actuel

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
42
43
44
45
46
47
48
49
50
51
52
53
54
Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Target.Column = 31 And Target.Cells.Count = 1 Then '(Target.Count = 1 le fait aussi)
 ActiveSheet.Unprotect Password:="TEST"
 Dim sheetTemp As Worksheet
 Dim sheetToPaste As Worksheet
 Dim sheetToPaste2 As Worksheet
 Dim rng As Range
 
If Target <> "" Then
 Range("J" & Target.Row).Value = Now()
 Application.Union(Range("A" & Target.Row & ":E" & Target.Row), Range("J" & Target.Row & ":J" & Target.Row), Range("X" & Target.Row & ":X" & Target.Row), Range("AD" & Target.Row & ":AE" & Target.Row), Range("AG" & Target.Row & ":AN" & Target.Row)).SpecialCells(xlCellTypeVisible).Select
 Selection.Copy
 Set sheetTemp = ActiveSheet
 Set sheetToPaste = Worksheets("2N Traité")
 sheetToPaste.Activate
 lastRow = sheetToPaste.Columns(1).Find(What:="*", SearchDirection:=xlPrevious).Row
 sheetToPaste.Range("A" & lastRow + 1).Select
 Selection.PasteSpecial Paste:=xlPasteValues
 Set rng = sheetToPaste.Range("A2", "Q" & lastRow + 2)
 rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17), Header:=xlNo
 sheetTemp.Activate
 Range("a" & Target.Row).Resize(1, 40).Locked = True
 Else
 Range("a" & Target.Row).Resize(1, 40).Locked = False
 
End If
 
 
ElseIf Target.Column = 32 And Target.Cells.Count = 1 Then
ActiveSheet.Unprotect Password:="TEST"
 
If Target <> "" Then
 Range("J" & Target.Row).Value = Now()
 Application.Union(Range("A" & Target.Row & ":E" & Target.Row), Range("J" & Target.Row & ":J" & Target.Row), Range("X" & Target.Row & ":X" & Target.Row), Range("AD" & Target.Row & ":AE" & Target.Row), Range("AG" & Target.Row & ":AN" & Target.Row)).SpecialCells(xlCellTypeVisible).Select
 Selection.Copy
 Set sheetTemp = ActiveSheet
 Set sheetToPaste = Worksheets("Dossiers Manquants")
 sheetToPaste.Activate
 lastRow = sheetToPaste.Columns(1).Find(What:="*", SearchDirection:=xlPrevious).Row
 sheetToPaste.Range("A" & lastRow + 1).Select
 Selection.PasteSpecial Paste:=xlPasteValues
 Set rng = sheetToPaste.Range("A2", "H" & lastRow + 2)
 rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8), Header:=xlNo
 sheetTemp.Activate
 Range("a" & Target.Row).Resize(1, 40).Locked = True
 Else
 Range("a" & Target.Row).Resize(1, 40).Locked = False
 
End If
 
End If
Sheets("2N Traité").Protect Password:="TEST", Userinterfaceonly=True
End Sub

De plus j'aimerai coller sur une autre feuille la macro ("2Ntraité"),j'ai essayé de recopier le code mais erreur, j'ai essayé d'intégrer une seconde

Code :

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

Set sheetToPaste = Worksheets("Feuil3")

sans succés. heureusement que le ciel est gris pour rester concentré.

**Daniel.C** · 17/12/2014, 16h52

Désolé, la bonne syntaxe est :

Code :

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

Sheets("2N Traité").Protect Password:="TEST", Userinterfaceonly:=True

Dans le module "ThisWorkbook", tu ôtes la protectiion de tes feuilles, uniquement pour les macros avec :

Code :

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

1
2
3
4
Private Sub Workbook_Open()
    Sheets("2N Traité").Protect Password:="TEST", Userinterfaceonly:=True
    ' pareil pour les autres feuilles
End Sub

Après, tu n'as plus à te soucier de déprotéger ou protéger tes feuilles.

De plus j'aimerai coller sur une autre feuille la macro ("2Ntraité"),j'ai essayé de recopier le code mais erreur, j'ai essayé d'intégrer une seconde

Poste ton code.

**'OTM'** · 17/12/2014, 17h22

Re bonjour Daniel,

Génial ça fonctionne enfin très bien avec ce nouveau code merci.
Je vois le bout du tunel...

Il ne reste plus qu'à savoir comment coller sur une seconde feuille, le code identique

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Target.Column = 31 And Target.Cells.Count = 1 Then '(Target.Count = 1 le fait aussi)
 ActiveSheet.Unprotect Password:="TEST"
 Dim sheetTemp As Worksheet
 Dim sheetToPaste As Worksheet
 Dim sheetToPaste2 As Worksheet
 Dim rng As Range
 
If Target <> "" Then
 Range("J" & Target.Row).Value = Now()
 Application.Union(Range("A" & Target.Row & ":E" & Target.Row), Range("J" & Target.Row & ":J" & Target.Row), Range("X" & Target.Row & ":X" & Target.Row), Range("AD" & Target.Row & ":AE" & Target.Row), Range("AG" & Target.Row & ":AN" & Target.Row)).SpecialCells(xlCellTypeVisible).Select
 Selection.Copy
 Set sheetTemp = ActiveSheet
 Set sheetToPaste = Worksheets("2N Traité")'''''''''& Worksheet("feuil3")''''''''???
 sheetToPaste.Activate

Voici le code final qui fonctionne très bien grace à toi merci mille fois

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Target.Column = 31 And Target.Cells.Count = 1 Then '(Target.Count = 1 le fait aussi)
 ActiveSheet.Unprotect Password:="TEST"
 Dim sheetTemp As Worksheet
 Dim sheetToPaste As Worksheet
 Dim sheetToPaste2 As Worksheet
 Dim rng As Range
 
If Target <> "" Then
 Range("J" & Target.Row).Value = Now()
 Application.Union(Range("A" & Target.Row & ":E" & Target.Row), Range("J" & Target.Row & ":J" & Target.Row), Range("X" & Target.Row & ":X" & Target.Row), Range("AD" & Target.Row & ":AE" & Target.Row), Range("AG" & Target.Row & ":AN" & Target.Row)).SpecialCells(xlCellTypeVisible).Select
 Selection.Copy
 Set sheetTemp = ActiveSheet
 Set sheetToPaste = Worksheets("2N Traité")
 sheetToPaste.Activate
 lastRow = sheetToPaste.Columns(1).Find(What:="*", SearchDirection:=xlPrevious).Row
 sheetToPaste.Range("A" & lastRow + 1).Select
 Selection.PasteSpecial Paste:=xlPasteValues
 Set rng = sheetToPaste.Range("A2", "Q" & lastRow + 2)
 rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17), Header:=xlNo
 sheetTemp.Activate
 Range("a" & Target.Row).Resize(1, 40).Locked = True
 Else
 Range("a" & Target.Row).Resize(1, 40).Locked = False
 
End If
 
ElseIf Target.Column = 32 And Target.Cells.Count = 1 Then
ActiveSheet.Unprotect Password:="TEST"
 
If Target <> "" Then
 Range("J" & Target.Row).Value = Now()
 Application.Union(Range("A" & Target.Row & ":E" & Target.Row), Range("J" & Target.Row & ":J" & Target.Row), Range("X" & Target.Row & ":X" & Target.Row), Range("AD" & Target.Row & ":AE" & Target.Row), Range("AG" & Target.Row & ":AN" & Target.Row)).SpecialCells(xlCellTypeVisible).Select
 Selection.Copy
 Set sheetTemp = ActiveSheet
 Set sheetToPaste = Worksheets("Dossiers Manquants")
 sheetToPaste.Activate
 lastRow = sheetToPaste.Columns(1).Find(What:="*", SearchDirection:=xlPrevious).Row
 sheetToPaste.Range("A" & lastRow + 1).Select
 Selection.PasteSpecial Paste:=xlPasteValues
 Set rng = sheetToPaste.Range("A2", "H" & lastRow + 2)
 rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8), Header:=xlNo
 sheetTemp.Activate
 Range("a" & Target.Row).Resize(1, 40).Locked = True
 Else
 Range("a" & Target.Row).Resize(1, 40).Locked = False
 
End If
 
End If
Sheets("2N Traité").Protect Password:="TEST", Userinterfaceonly:=True
Sheets("Dossiers Manquants").Protect Password:="TEST", Userinterfaceonly:=True
Sheets("Base BI ").Protect Password:="TEST", Userinterfaceonly:=True
End Sub

**Daniel.C** · 17/12/2014, 17h22

Condition pour 1ère copie :

Code :

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

 If Target.Column = 31 And Target.Cells.Count = 1 Then '(Target.Count = 1 le fait aussi)

Condition ppour deuxième copoie :

Code :

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

 ElseIf Target.Column = 32 And Target.Cells.Count = 1 Then

Quelle est la condition pour la 3e copie ?

Ajouter une "Target" à Private Sub Worksheet_Change(ByVal Target As Range) [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager