Discussion :

[neiluj26]

Bonsoir le forum

J'ai tenté de m'intéresser à Private Sub Worksheet_SelectionChange, et si j'avais réussi, je n'aurais pas de questions à poser.
Dans un classeur, un utilisateur doit renseigner la colonne L de la feuille WsTop, et je voudrais que les renseignements donnés soient reportés dans la colonne J de la feuille WsBack. Le point commun entre les deux feuilles est un code article qui se trouve en colonne D pour WsTop et B pour WsBack.

J'ai donc bricolé ce bout de 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
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LigFin As Long, LigFin2 As Long
Dim C As Range, i As Long
Dim WsTop As Worksheet, WsBack As Worksheet
Dim Plage3 As Range
 
Set WsTop = Worksheets("Feuil1")
Set WsBack = Worksheets("Feuil2")
LigFin = WsBack.[B65536].End(xlUp).Row
LigFin2 = WsTop.[D65536].End(xlUp).Row
 
Set Plage3 = WsBack.Range("L3:L" & LigFin)
 
If Intersect(Plage3, Target) Is Nothing Then Exit Sub
    With WsTop.Range("D3:D" & LigFin2)
        Set C = .Find(WsBack.Cells(Target.Row, 2))
            If Not C Is Nothing Then
                If WsBack.Cells(Target.Row, 12) = "" Then
                    WsTop.Cells(C.Row, 10) = ""
                Else
                    WsTop.Cells(C.Row, 10) = WsBack.Cells(Target.Row, 12)
                End If
            End If
    End With
 
End Sub

J'ai identifié le problème. Target n'est pas le Range que je viens de modifier, mais le range sur lequel je me trouve (si j'ai bien compris). Tout cela fait que mes données ne se reportent pas sur la feuille WsBack. Chaque feuille comportant plusieurs milliers de lignes, j'aimerais éviter de passer par une RECHERCHEV classique...

Pourriez-vous éclairer ma lanterne comme si souvent?

[wilfried_42]

Bonjour

tu utilises l'interruption de selection au lieu de l'interruption de modification

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LigFin As Long, LigFin2 As Long
Dim C As Range, i As Long
Dim WsTop As Worksheet, WsBack As Worksheet
Dim Plage3 As Range
 
Set WsTop = Worksheets("Feuil1")
Set WsBack = Worksheets("Feuil2")
LigFin = WsBack.[B65536].End(xlUp).Row
LigFin2 = WsTop.[D65536].End(xlUp).Row
 
Set Plage3 = WsBack.Range("L3:L" & LigFin)
 
If Intersect(Plage3, Target) Is Nothing Then Exit Sub
    With WsTop.Range("D3:D" & LigFin2)
        Set C = .Find(WsBack.Cells(Target.Row, 2))
            If Not C Is Nothing Then
                If WsBack.Cells(Target.Row, 12) = "" Then
                    WsTop.Cells(C.Row, 10) = ""
                Else
                    WsTop.Cells(C.Row, 10) = WsBack.Cells(Target.Row, 12)
                End If
            End If
    End With
 
End Sub

[Gorfael]

Salut neiluj26 et le forum
Comme le problème semble solutionné, juste une remarque :

Code :

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

1
2
3
4
5
                If WsBack.Cells(Target.Row, 12) = "" Then
                    WsTop.Cells(C.Row, 10) = ""
                Else
                    WsTop.Cells(C.Row, 10) = WsBack.Cells(Target.Row, 12)
                End If

Comprend pas. Pour pas simplement

Code :

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

1
2
                    WsTop.Cells(C.Row, 10) = WsBack.Cells(Target.Row, 12)

A+

[neiluj26]

Bonjour tout le monde,

Merci pour la solution wilfried_42. Tout a l'air de fonctionner correctement.

Gorfael, j'ai utilisé

Code :

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

1
2
3
4
5
6
 
If WsBack.Cells(Target.Row, 12) = "" Then
    WsTop.Cells(C.Row, 10) = ""
Else
    WsTop.Cells(C.Row, 10) = WsBack.Cells(Target.Row, 12)
End If

parce qu'il y a aussi la possibilité que l'utilisateur vide une cellule dans laquelle il y avait une valeur. Si c'est le cas, je voudrais que la cellule correspondante de l'autre feuille soit vidée également. S'il y a un moyen plus simple et plus rapide, je suis preneur bien entendu.

[neiluj26]

Euh effectivement, j'ai pas besoin de mon bout de code en trop... Sorry