Retrouver valeur en face d'une cellule VBA
Résolu
zer4
Messages postés
56
Statut
Membre
-
zer4 Messages postés 56 Statut Membre -
zer4 Messages postés 56 Statut Membre -
Bonjour,
Je suis actuellement en train de créer un suivi de matériel et je rencontre donc un soucis dans mon formulaire UserForm.
Quand je clique sur ma ComboBox1 je retrouve mes valeurs de la colonne A.
Voici mon soucis:
Dans ma ComboBox2 ( en dessous de la 1), je souhaite pouvoir récupérer mes références en fonction de la valeur de la colonne A
je m'explique :
Dans ma colonne A j'ai ma liste de matériel où est marqué HY1, HY2 ... et donc je souhaiterais quand dans ma ComboBox2 apparaisse la référence qui est en face de HY1 ... ainsi de suite pour HY2.
Voici mon code :
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 2 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
ComboBox1 = Sheets("Feuil1").Range("A" & i) 'ici c'est la colonne "A"
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Feuil1").Range("A" & i)
Next i
End Sub
Je suis actuellement en train de créer un suivi de matériel et je rencontre donc un soucis dans mon formulaire UserForm.
Quand je clique sur ma ComboBox1 je retrouve mes valeurs de la colonne A.
Voici mon soucis:
Dans ma ComboBox2 ( en dessous de la 1), je souhaite pouvoir récupérer mes références en fonction de la valeur de la colonne A
je m'explique :
Dans ma colonne A j'ai ma liste de matériel où est marqué HY1, HY2 ... et donc je souhaiterais quand dans ma ComboBox2 apparaisse la référence qui est en face de HY1 ... ainsi de suite pour HY2.
Voici mon code :
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 2 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
ComboBox1 = Sheets("Feuil1").Range("A" & i) 'ici c'est la colonne "A"
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Feuil1").Range("A" & i)
Next i
End Sub
A voir également:
- Retrouver valeur en face d'une cellule VBA
- Excel compter cellule couleur sans vba - Guide
- Retrouver message supprimé whatsapp - Guide
- Face time - Guide
- Retrouver une musique avec les notes - Guide
- Excel cellule couleur si condition texte - Guide
3 réponses
Bonjour,
apparaisse la référence qui est en face de HY1 ... ainsi de suite pour HY2.
Vous pouvez developper car si une seule ref pour HY1, a quoi sert la Combobox2
apparaisse la référence qui est en face de HY1 ... ainsi de suite pour HY2.
Vous pouvez developper car si une seule ref pour HY1, a quoi sert la Combobox2
Bonjour
Et surtout joindre le fichier comme tu as fait les fois précédentes
Et surtout joindre le fichier comme tu as fait les fois précédentes
Bonjour,
voici mon fichier :
https://www.transfernow.net/?utm_source=partagefichierscom&utm_medium=download
je souhaite que Dans ma ComboBox 2 apparaisse la référence qui est en face de HY1
et pareil pour HY2 mais à l'avenir il y aura une longue liste de matériel et donc je souhaite que cela soit automatique et donc éviter de Faire ce genre de chose " ComboBox.Value = "HY1" ...
Cordialement.
voici mon fichier :
https://www.transfernow.net/?utm_source=partagefichierscom&utm_medium=download
je souhaite que Dans ma ComboBox 2 apparaisse la référence qui est en face de HY1
et pareil pour HY2 mais à l'avenir il y aura une longue liste de matériel et donc je souhaite que cela soit automatique et donc éviter de Faire ce genre de chose " ComboBox.Value = "HY1" ...
Cordialement.
Bonjour
1) Il faut présenter ta base de données autrement, par colonnes de matériel comme j'ai fait en feuille 2 puis nommer chacune de ces listes de manière dynamique comme expliqué dans la feuille
2) Dans les macros au changement dans Combobox1 de l'UF on modifie le RowSource du Combobox2 en reconstituant l'adresse de la plage de la liste correspondante d'après le chois effectué
https://mon-partage.fr/f/1ExFHBsI/
Cdlmnt
Via
1) Il faut présenter ta base de données autrement, par colonnes de matériel comme j'ai fait en feuille 2 puis nommer chacune de ces listes de manière dynamique comme expliqué dans la feuille
2) Dans les macros au changement dans Combobox1 de l'UF on modifie le RowSource du Combobox2 en reconstituant l'adresse de la plage de la liste correspondante d'après le chois effectué
https://mon-partage.fr/f/1ExFHBsI/
Cdlmnt
Via