VBA Trouver la ligne contenant la valeur d'une textbox

Johan

XLDnaute Occasionnel
Bonjour à tous,

Dans le fichier test ci-joint, je souhaite procéder de la sorte :

- Ouvrir le formulaire
- Saisir une valeur "ID" existante en Colonne A dans la première textbox (ID)
- Saisir des valeurs dans les autres textbox et remplir automatiquement la ligne toujours en fonction de la textbox "ID"

J'ai essayé de partir sur un code dans ce style, mais je ne pense pas m'y prendre correctement

Code:
Dim Derligne As Integer

Derligne = Feuil1.Range("A" & Rows.Count).End(xlUp).Row

Set r = Feuil1.Range("A11:A20" & Derligne).Find(ID.Value)

Feuil1.Range("B" & Derligne).Value = Nom.Value
Feuil1.Range("C" & Derligne).Value = Prénom.Value
Feuil1.Range("D" & Derligne).Value = Ville.Value

Unload UserForm1


Je sais que ca peut paraître débile et pas pratique du tout, mais sur mon fichier final ce sera un import de données depuis un autre classeur (il devra donc retrouver la valeur du textbox dans la ligne correspondante de mon tableau car d'autres lignes auront été insérées depuis)

Merci à vous,

A votre disposition si besoin de plus de renseignements
 

Pièces jointes

  • Test_TrouverLigneValeurTextbox.xlsm
    20.7 KB · Affichages: 60
  • Test_TrouverLigneValeurTextbox.xlsm
    20.7 KB · Affichages: 61

néné06

XLDnaute Accro
Re : VBA Trouver la ligne contenant la valeur d'une textbox

Bonjour à tous,

Ici, le "d" donne le numéro de la ligne recherchée.

Feuil1.Range("B" & Derligne).Value = Nom.Value
Feuil1.Range("C" & Derligne).Value = Prénom.Value
Feuil1.Range("D" & Derligne).Value = Ville.Value

d = Application.Match("ID" & ID.Value, Range("A:A"), 0)

A+

René
 

Discussions similaires

Statistiques des forums

Discussions
312 300
Messages
2 087 006
Membres
103 429
dernier inscrit
PhilippeH