Bonjour à tous,
Je me retourne vers vous car j'ai un soucis dans l'exécution de mon code.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$8" Then
UserForm1.Show
End If
For l = 19 To 24
Cells(l, 4).Clear
Next
i = Sheets("REFERENCE").Range("C500").End(xlUp).Row
For j = 1 To i
If Cells(16, 3).Value = Sheets("REFERENCE").Cells(j, 3).Value Then
Cells(19 + k, 4).Value = Sheets("REFERENCE").Cells(j, 4)
k = k + 1
End If
Next
End Sub
En effet, je cherches à faire apparaître des valeurs en fonction de la valeur qu'il y a dans la cellule C16. La cellule C16 est une liste déroulante dépendante de la formule suivante:
=DECALER(REFERENCE!$C$1;EQUIV($G$8;REFERENCE!$A:$A;0)-1;;NB.SI(REFERENCE!$A:$A;$G$8))
Le code fonctionne sur un autre classeur mais pas le moindre sur le programme où j'en ai besoin, comme si n'exécutait pas ce code.. Quelqu'un aurait-il des solutions à mon problème ?
Merci à tous.
Je me retourne vers vous car j'ai un soucis dans l'exécution de mon code.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$8" Then
UserForm1.Show
End If
For l = 19 To 24
Cells(l, 4).Clear
Next
i = Sheets("REFERENCE").Range("C500").End(xlUp).Row
For j = 1 To i
If Cells(16, 3).Value = Sheets("REFERENCE").Cells(j, 3).Value Then
Cells(19 + k, 4).Value = Sheets("REFERENCE").Cells(j, 4)
k = k + 1
End If
Next
End Sub
En effet, je cherches à faire apparaître des valeurs en fonction de la valeur qu'il y a dans la cellule C16. La cellule C16 est une liste déroulante dépendante de la formule suivante:
=DECALER(REFERENCE!$C$1;EQUIV($G$8;REFERENCE!$A:$A;0)-1;;NB.SI(REFERENCE!$A:$A;$G$8))
Le code fonctionne sur un autre classeur mais pas le moindre sur le programme où j'en ai besoin, comme si n'exécutait pas ce code.. Quelqu'un aurait-il des solutions à mon problème ?
Merci à tous.