Recherche dans excel et ecrit dans textbos
Résolu
varach
Messages postés
225
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
29 septembre 2016
-
13 nov. 2005 à 12:56
varach Messages postés 225 Date d'inscription vendredi 14 janvier 2005 Statut Membre Dernière intervention 29 septembre 2016 - 13 nov. 2005 à 16:36
varach Messages postés 225 Date d'inscription vendredi 14 janvier 2005 Statut Membre Dernière intervention 29 septembre 2016 - 13 nov. 2005 à 16:36
A voir également:
- Recherche dans excel et ecrit dans textbos
- Copier automatiquement une cellule excel dans une autre feuille (vba) ✓ - Forum Visual Basic
- Excel afficher lien hypertexte dans cellule ✓ - Forum Delphi / Pascal
- Arctan excel - Forum Visual Basic
- Mathurine[arobase]pixmail.org pourquoi a-t-elle écrit son adresse de cette manière ? - Forum PHP
- Tangente et arctangente ✓ - Forum C++ & C++ .NET
1 réponse
varach
Messages postés
225
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
29 septembre 2016
13 nov. 2005 à 16:36
13 nov. 2005 à 16:36
C y est j ai trouve :
Private Sub Command2_Click()
Workbooks.Open FileName:="C:\Documents and Settings\YannV\Bureau\vb\base.xls", Editable:=True
'BOUCLE
R = 1
Do While Combo1 <> Cells(R, 3).Value ' cherche dans la troisieme colonne
R = R + 1
Loop
Text1 = Cells(R, 1) ' renvoie le resultat R ligne colonne 1
Workbooks.Close
End Sub
Private Sub Command2_Click()
Workbooks.Open FileName:="C:\Documents and Settings\YannV\Bureau\vb\base.xls", Editable:=True
'BOUCLE
R = 1
Do While Combo1 <> Cells(R, 3).Value ' cherche dans la troisieme colonne
R = R + 1
Loop
Text1 = Cells(R, 1) ' renvoie le resultat R ligne colonne 1
Workbooks.Close
End Sub