VBA - Valeur dans une cellule en fonction d'une TextBox
Résolu
dhr.france
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
dhr.france Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
dhr.france Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- VBA - Valeur dans une cellule en fonction d'une TextBox
- Fonction si et - Guide
- Aller à la ligne dans une cellule excel - Guide
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Bureautique
- Excel compter cellule couleur sans vba - Guide
2 réponses
Bonjour Dhr, bonjour le forum,
Peut-être comme ça :
Peut-être comme ça :
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'à la sortie de la TextBox1 Dim O As Worksheet 'déclare la variable O (Onglet) Dim R As Range 'déclare la variable R (Recherche) Dim LI As Long 'déclare la variable LI (LIgne) Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas) Set R = O.Columns(2).Find(Me.TextBox1.Value, , xlValues, xlWhole) 'définit la recherche R (recherche la valeur entière de la TextBox1 dans la colonne 2 (=B) de l'onglet O If Not R Is Nothing Then 'condition : si il existe au moins une occurrence trouvée LI = R.Row 'définit la ligne LI de la première occurrence trouvée Me.TextBox2.Value = O.Cells(LI, 5).Value 'renvoie dans la TextBox2 la valeur de la cellule ligne LI colonne 5 (=E) de l'onglet O End If 'fin de la condition End Sub
Bonjour,
Une variante du code de ThauTheme (Bonjour à toi) :
Une variante du code de ThauTheme (Bonjour à toi) :
Private Sub TextBox1_Change() Dim O As Worksheet 'déclare la variable O (Onglet) Dim R As Range 'déclare la variable R (Recherche) Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas) Set R = O.Columns(2).Find(Me.TextBox1.Value, , xlValues, xlWhole) 'définit la recherche R (recherche la valeur entière de la TextBox1 dans la colonne 2 (=B) de l'onglet O If Not R Is Nothing Then 'condition : si il existe au moins une occurrence trouvée Me.TextBox2.ControlSource = "'" & O.Name & "'!" & R.Offset(0, 3).Address 'Lie le TextBox2 à la cellule de la colonne E Else Me.TextBox2.ControlSource = "" 'Pas de cellule liée au TextBox2 End If 'fin de la condition End Sub
Tout fonctionne à merveille