remplacer index/equiv en VBA

Etienne2323

XLDnaute Impliqué

• 23 Novembre 2010

• #2

Re : remplacer index/equiv en VBA

Salut le plessis,
voici un essai. À placer dans le module du useform.

VB:

Private Sub ComboBox1_Change()

Dim Lig
Dim La_ligne as Integer
Application.ScreenUpdating = False
Sheets("Votre feuille").Select
Set Lig = Range(Cells(1, 2), Cells(Cells(65536, 2).End(xlUp).Row, 2)).Find(Me.ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not Lig Is Nothing Then
    La_ligne = Lig.Row
    'Remplacer les numéros de textbox par les votres
    Me.TextBox1.Value = Cells(La_ligne, 3).Value 'Le manager
    Me.TextBox2.Value = Cells(La_ligne, 4).Value 'L'équipe
Else
    Exit Sub
End If

End Sub

Bonne continuité,

Étienne

 

Dernière édition: 23 Novembre 2010

Vote positif 0 Vote négatif

L

le plessis

Guest

• 23 Novembre 2010

• #3

Re : remplacer index/equiv en VBA

Bjr,
merci pour le code ; je vais essayé cela.
un retour d infos apres
le plessis

 

Vote positif 0 Vote négatif

L

le plessis

Guest

• 23 Novembre 2010

• #4

Re : remplacer index/equiv en VBA

le code me parait bien et j'arrive à le comprendre mais lorsque je lance la macro msg Erreur de compilation erreur de syntaxe.
Grrrrrrrrrrrrr
Help

 

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 23 Novembre 2010

• #5

Re : remplacer index/equiv en VBA

Salut le plessis,
j'ai essayé de vous faire un code compréhensible à partir de rien. Il se peut fort bien que les noms des combobox, textbox, userform et autres soient différent.

Si vous souhaitez un exemple concret, plutôt qu'une piste de solution, vous n'avez qu'à joindre un fichier à votre prochain message pour que nous puissions y jeter un coup d'oeil.

Au plaisir,

Étienne

 

Vote positif 0 Vote négatif

L

le plessis

Guest

• 23 Novembre 2010

• #6

Re : remplacer index/equiv en VBA

En fait, il me surligne en jaune Private Sub ComboBox2_Change() et me met en rouge La_ligne = lig.row
J'ai essayé plein de modif mais en effets.😕
Je creuse. Si de votre côté vous avez une infos, je prends 🙄

 

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 23 Novembre 2010

• #7

Re : remplacer index/equiv en VBA

Salut le plessis,
je n'avais pas déclaré la variable La_ligne. Va voir dans mon premier post, j'ai modifié la déclaration. Peut-être que c'était la source de l'erreur.

Sinon, un petit fichier et le tour est joué.

Étienne

Edit : Bonsoir Jean-Marcel !

 

Vote positif 0 Vote négatif

L

le plessis

Guest

• 23 Novembre 2010

• #8

Re : remplacer index/equiv en VBA

Je pense avoir trouvé . et grace au fichier lié a votre premiere réponse; je vais adapter celui-ci avec mes donnée.
D'avance merci pour le coup de main.
Feedback dans quelques temps
MERCIIIIIII 🙂

 

Vote positif 0 Vote négatif