Voici mon code pour afficher des valeurs à des cellules précises lorsque je change de cellule:
1 2 3 4 5 6 7 8 9 10 11 12
| For LigneCreatCode = 3 To i
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
If Feuil3.Cells(FormSaisieProdLigne, FormSaisieProdColonne) = Feuil8.Cells(LigneCreatCode, ColonneCreatCode) Then
Feuil3.Cells(FormSaisieProdLigne, FormSaisieProdColonne + 1) = Feuil8.Cells(LigneCreatCode, ColonneCreatCode + 3)
Feuil3.Cells(FormSaisieProdLigne, FormSaisieProdColonne - 1) = Feuil8.Cells(LigneCreatCode, ColonneCreatCode + 2)
LigneCreatCode = 2
FormSaisieProdLigne = FormSaisieProdLigne + 1
End If
End If
Next |
Et maintenant mon code en lien avec la feuille dans laquelle est contenue ma liste déroulante. Ce code me permet de trouver un produit dans la liste en tappant les premières lettres.
Ce code est inscrit à mettre la validation de données au niveau de la source qui fait référence à la feuille dans laquelle les valeurs de la liste seront insérées
=SI(C8<>"";DECALER(d_noms;EQUIV(C8&"*";l_noms;0)-1;;SOMMEPROD((STXT(l_noms;1;NBCAR(C8))=TEXTE(C8;"0"))*1));l_noms)
Je suis sûr que le conflit se présente à ce niveau:
1 2
| If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then |
Mais comment modifier le tout?
Merci!
Partager