Rechercher via ComboBox d'un USF et renvoyer vers autre feuille

Dranreb

XLDnaute Barbatruc

• 21 Juin 2016

• #2

Re : Rechercher via ComboBox d'un USF et renvoyer vers autre feuille

Bonjour.
Et s'il y a des doublons, seule la 1ère occurrence peut être atteinte par la ComboBox ?

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 21 Juin 2016

• #3

Re : Rechercher via ComboBox d'un USF et renvoyer vers autre feuille

Bonjour Bernard
merci pour la remarque des doublon; je l'ai fait juste pour vérifier que le code ne prend pas en charge les doublons, mème si il y a , on prend en considération le premier .
MERCI
EDIT : en réalité dans mon fichier original PAS DE DOUBLON

 

Dernière édition: 21 Juin 2016

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Juin 2016

• #4

Re : Rechercher via ComboBox d'un USF et renvoyer vers autre feuille

Alors s'il n'y a pas de doublon autant verser la plage dans la List comme ça:

VB:

Private Sub UserForm_Initialize()
With Sheets("BdD")
   ComboBox1.List = .[L4].Resize(.[L65536].End(xlUp).Row - 3).Value
   End With
ComboBox1.Value = " - Sélectionnez un numéro -"
End Sub

et retrouver par la suite la ligne d'après son ListIndex + 4

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 21 Juin 2016

• #5

Re : Rechercher via ComboBox d'un USF et renvoyer vers autre feuille

Re
oky c'est fait
A+

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 21 Juin 2016

• #6

Re : Rechercher via ComboBox d'un USF et renvoyer vers autre feuille

Bonjour Forum
puis je avoir le reste de mon souci SVP
A+

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 21 Juin 2016

• #7

Re : Rechercher via ComboBox d'un USF et renvoyer vers autre feuille

Bonjour Forum
Apres un effort, j'ai pu faire une partie de mon souci, maintenant je souhaite si je modifié les TextBox et
quand je valide les données doivent se modifiée dans le fichier BdD?
SALUTATIONS

 

Pièces jointes

• CHARLIE Rechercher via combobox.xlsm

  26.3 KB · Affichages: 48

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Juin 2016

• #8

Re : Rechercher via ComboBox d'un USF et renvoyer vers autre feuille

Et bien faites les affectations dans l'autre sens tout simplement.
Toutefois si ce sont des info numériques il serait prudent d'y affecter = CDbl(TextBoxn.Value) parce que la propriété Value d'une TextBox c'est la même chose que sa propriété Text: c'est toujours un String.

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 21 Juin 2016

• #9

Re : Rechercher via ComboBox d'un USF et renvoyer vers autre feuille

Re
mais mon souci comment faire pour connaitre la ligne sélectionnée par combobox1?
a+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Juin 2016

• #10

Re : Rechercher via ComboBox d'un USF et renvoyer vers autre feuille

C'est toujours la même : ComboBox1.ListIndex + 4

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 21 Juin 2016

• #11

Re : Rechercher via ComboBox d'un USF et renvoyer vers autre feuille

Re
sincèrement jene sais plus ou aller?
a+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Juin 2016

• #12

Re : Rechercher via ComboBox d'un USF et renvoyer vers autre feuille

Que voulez vous dire ?
Notez que personnellement je n'aime pas écrire directement dans les cellules parce que c'est long.
Je mets toutes les valeurs de contrôles dans des éléments d'un tableau d'une ligne, que j'écris d'un coup dans la ligne à la fin.
Pareil pour la lecture: Je lis toute la ligne dans un tableau puis j'affecte ses éléments aux contrôles.
Et puis ça évite d'écrire 50 fois Range("x" & ComboBox1.ListIndex + 4).Value aussi bien pour la lecture que pour l'écriture.

 

Dernière édition: 21 Juin 2016

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 22 Juin 2016

• #13

Re : Rechercher via ComboBox d'un USF et renvoyer vers autre feuille

RE
Sans commentaire;je vais essayer
a+

 

Vote positif 0 Vote négatif