Choix combobox sélectionne la ligne

[Marc_du_78]

Bonjour le Forum,
Je suis à la recheche du code qui me permettrait de sélectionner toute la ligne correspondante au choix effectuée dans un Conbobox.
Je vous remercie.

 

[AeroPlanneur]

bonjour Marc,

pour un combobox (issu de la boîte à outils contrôles) placé sur la feuil1 :

Rows(Feuil1.ComboBox1.ListIndex + 1).EntireRow.Select

pour un combobox sur un UserForm :

Rows(UserForm1.ComboBox1.ListIndex + 1).EntireRow.Select

A adapter le décalage (ListIndex + ...) selon tes paramêtres.

Cordialement

 

[Marc_du_78]

Bonjour AeroPlanneur,
Je te remercie de cette info que je vais m'empresser de mettre à profit.
En te souhaitant bon vent. Week end ensoleillé vent faible et les cumulus arrivent.
Au plaisir.

 

[Robert]

Bonjour Marc, bonjour le forum,

Si ta combobox est remplie de tous les éléments dans l'ordre (par exemple avec ComboBox1.List=Range('A2:A' & Range('A65536').End(xlUp).Row).Value)), La propriété ListIndex permet d'obtenir le numéro de ligne correpondant. Sachant que le premier élément à l'index 0, si il démarre à la ligne 2 on a donc le numéro de ligne = ComboBox1.Listindex + 2.

Regarde l'exemple en pièce jointe qui reprend ce que je t'explique. [file name=Marc_20060331173041.zip size=9174]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Marc_20060331173041.zip[/file]

Édition :

Hou la la !!! Pas frais sur ce coup là... Bonjour Aeroplanneur.

Message édité par: Robert, à: 31/03/2006 17:35

 

[AeroPlanneur]

merci Marc pour ces prévisions météo
'Week end ensoleillé vent faible ... et les cumulus arrivent'.
Je ne retiendrais que la première partie de tes prophéties.

Bon week-end à toi aussi

 

[Marc_du_78]

Bonjour Robert, re AéroPlanneur
Si je comprends b ien ca souffle chez toi.
Merci Robert, je prends note car je sais que ca me servira un jour où l'autre.
En pj ce que j'ai réussi à faire grâce à vous.
En vous remerciant bien fort. [file name=UsfEtape3SuppressionLigne.zip size=24416]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/UsfEtape3SuppressionLigne.zip[/file]

 

[Robert]

Bonsoir le fil, bonsoir le forum,

Deux remarques Marc.
1. Tu effaces la ligne mais tu ne la supprime pas. J'aurais plutôt écrit :

Rows(UserFormSupprimer.CbxVhs.ListIndex + 3).Delete

afin d'évier les lignes vides (trous) plutôt que :

Rows(UserFormSupprimer.CbxVhs.ListIndex + 3).EntireRow.Select
Selection.Clear

2. Avec le système Hide (qui te permet de conserver la ListIndex de la ComboBox), ton premier Userform n'est pas mis à jour après une suppression. En pièce jointe j'ai repris ton fichier et je l'ai adpaté. J'ai préféré déclarer la variable li comme publique dans un module standard. Fermer le premier UserForm à l'ouverture du second et rouvrir le premier à la fermeture.La liste est toujours actualisée après supression. [file name=UsfEtape3SuppressionLigne_v2.zip size=21995]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/UsfEtape3SuppressionLigne_v2.zip[/file]

 

[Marc_du_78]

Bonjour Robert,
Je vois que j'ai bien fait de joindre le fichier et je te remercie pour tes explications, j'ai donc modifié en conséquence.
En te souhaitant un bon Week end et a+

 

[farid]

Bonjour Marc, bonjour le forum,

Si ta combobox est remplie de tous les éléments dans l'ordre (par exemple avec ComboBox1.List=Range('A2:A' & Range('A65536').End(xlUp).Row).Value)), La propriété ListIndex permet d'obtenir le numéro de ligne correpondant. Sachant que le premier élément à l'index 0, si il démarre à la ligne 2 on a donc le numéro de ligne = ComboBox1.Listindex + 2.

Regarde l'exemple en pièce jointe qui reprend ce que je t'explique. [file name=Marc_20060331173041.zip size=9174]http://www.excel-downloads.com/comp...uploaded/files/Marc_20060331173041.zip[/file]

Édition :

Hou la la !!! Pas frais sur ce coup là... Bonjour Aeroplanneur.

Message édité par: Robert, à: 31/03/2006 17:35

merci , c'est ce qu'il me fallait. Cordialement