Bonjour.
je d=E9sire avec un userform faire la chose suivante.
J'ai un tableau A3:N500 en C3:C500 Les noms
Je saisie dans un textbox le nom d'une personne, et que la=20
cellule aille directement sur le nom de cette=20
personne,dans la colonne C.
Une fonction INDEX/EQUIV en fait en VBA en fait.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour A adapter : Private Sub CommandButton1_Click() If Me.TextBox1 <> "" Then With Worksheets("Feuil1").Cells Set c = .Find(Me.TextBox1) If Not c Is Nothing Then c.Activate End With End If End Sub
Cordialement Pascal
"Anna" a écrit dans le message de news:6f5301c47608$50f33ab0$ Bonjour. je désire avec un userform faire la chose suivante. J'ai un tableau A3:N500 en C3:C500 Les noms Je saisie dans un textbox le nom d'une personne, et que la cellule aille directement sur le nom de cette personne,dans la colonne C. Une fonction INDEX/EQUIV en fait en VBA en fait.
merci beaucoup à tous Anna
Bonjour
A adapter :
Private Sub CommandButton1_Click()
If Me.TextBox1 <> "" Then
With Worksheets("Feuil1").Cells
Set c = .Find(Me.TextBox1)
If Not c Is Nothing Then c.Activate
End With
End If
End Sub
Cordialement
Pascal
"Anna" <anna@babier.fr> a écrit dans le message de
news:6f5301c47608$50f33ab0$a601280a@phx.gbl...
Bonjour.
je désire avec un userform faire la chose suivante.
J'ai un tableau A3:N500 en C3:C500 Les noms
Je saisie dans un textbox le nom d'une personne, et que la
cellule aille directement sur le nom de cette
personne,dans la colonne C.
Une fonction INDEX/EQUIV en fait en VBA en fait.
Bonjour A adapter : Private Sub CommandButton1_Click() If Me.TextBox1 <> "" Then With Worksheets("Feuil1").Cells Set c = .Find(Me.TextBox1) If Not c Is Nothing Then c.Activate End With End If End Sub
Cordialement Pascal
"Anna" a écrit dans le message de news:6f5301c47608$50f33ab0$ Bonjour. je désire avec un userform faire la chose suivante. J'ai un tableau A3:N500 en C3:C500 Les noms Je saisie dans un textbox le nom d'une personne, et que la cellule aille directement sur le nom de cette personne,dans la colonne C. Une fonction INDEX/EQUIV en fait en VBA en fait.
merci beaucoup à tous Anna
papou
ou sinon à placer dans Private Sub TextBox1_AfterUpdate()
Cordialement Pascal
"Anna" a écrit dans le message de news:6f5301c47608$50f33ab0$ Bonjour. je désire avec un userform faire la chose suivante. J'ai un tableau A3:N500 en C3:C500 Les noms Je saisie dans un textbox le nom d'une personne, et que la cellule aille directement sur le nom de cette personne,dans la colonne C. Une fonction INDEX/EQUIV en fait en VBA en fait.
merci beaucoup à tous Anna
ou sinon à placer dans
Private Sub TextBox1_AfterUpdate()
Cordialement
Pascal
"Anna" <anna@babier.fr> a écrit dans le message de
news:6f5301c47608$50f33ab0$a601280a@phx.gbl...
Bonjour.
je désire avec un userform faire la chose suivante.
J'ai un tableau A3:N500 en C3:C500 Les noms
Je saisie dans un textbox le nom d'une personne, et que la
cellule aille directement sur le nom de cette
personne,dans la colonne C.
Une fonction INDEX/EQUIV en fait en VBA en fait.
ou sinon à placer dans Private Sub TextBox1_AfterUpdate()
Cordialement Pascal
"Anna" a écrit dans le message de news:6f5301c47608$50f33ab0$ Bonjour. je désire avec un userform faire la chose suivante. J'ai un tableau A3:N500 en C3:C500 Les noms Je saisie dans un textbox le nom d'une personne, et que la cellule aille directement sur le nom de cette personne,dans la colonne C. Une fonction INDEX/EQUIV en fait en VBA en fait.
merci beaucoup à tous Anna
Anna
Merci beaucoup Papou mille bises cela fonctionne parfaitement Anna
-----Message d'origine----- Bonjour A adapter : Private Sub CommandButton1_Click() If Me.TextBox1 <> "" Then With Worksheets("Feuil1").Cells Set c = .Find(Me.TextBox1) If Not c Is Nothing Then c.Activate End With End If End Sub
Cordialement Pascal
"Anna" a écrit dans le message de news:6f5301c47608$50f33ab0$ Bonjour. je désire avec un userform faire la chose suivante. J'ai un tableau A3:N500 en C3:C500 Les noms Je saisie dans un textbox le nom d'une personne, et que la cellule aille directement sur le nom de cette personne,dans la colonne C. Une fonction INDEX/EQUIV en fait en VBA en fait.
merci beaucoup à tous Anna
.
Merci beaucoup Papou mille bises
cela fonctionne parfaitement
Anna
-----Message d'origine-----
Bonjour
A adapter :
Private Sub CommandButton1_Click()
If Me.TextBox1 <> "" Then
With Worksheets("Feuil1").Cells
Set c = .Find(Me.TextBox1)
If Not c Is Nothing Then c.Activate
End With
End If
End Sub
Cordialement
Pascal
"Anna" <anna@babier.fr> a écrit dans le message de
news:6f5301c47608$50f33ab0$a601280a@phx.gbl...
Bonjour.
je désire avec un userform faire la chose suivante.
J'ai un tableau A3:N500 en C3:C500 Les noms
Je saisie dans un textbox le nom d'une personne, et que la
cellule aille directement sur le nom de cette
personne,dans la colonne C.
Une fonction INDEX/EQUIV en fait en VBA en fait.
Merci beaucoup Papou mille bises cela fonctionne parfaitement Anna
-----Message d'origine----- Bonjour A adapter : Private Sub CommandButton1_Click() If Me.TextBox1 <> "" Then With Worksheets("Feuil1").Cells Set c = .Find(Me.TextBox1) If Not c Is Nothing Then c.Activate End With End If End Sub
Cordialement Pascal
"Anna" a écrit dans le message de news:6f5301c47608$50f33ab0$ Bonjour. je désire avec un userform faire la chose suivante. J'ai un tableau A3:N500 en C3:C500 Les noms Je saisie dans un textbox le nom d'une personne, et que la cellule aille directement sur le nom de cette personne,dans la colonne C. Une fonction INDEX/EQUIV en fait en VBA en fait.
