Insérer des données de cellules dans TextBox

Résolu
SandraMt
Messages postés
58
Date d'inscription
jeudi 5 juin 2014
Statut
Membre
Dernière intervention
2 juillet 2014
- 6 juin 2014 à 16:51
jordane45
Messages postés
36331
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 septembre 2022
- 6 juin 2014 à 17:01
Bonjour,

Je voudrais créer une mini application pour le suivi des véhicules de mon entreprise.

Les lignes de code pour la recherche de l'immatriculation maintenant terminées je dois créer des lignes de codes pour que les valeurs trouvées soient insérées dans les TextBox comme présenté ci-dessous.





Ligne de code pour la recherche du véhicule:

Private Sub CommandButton1_Click()

Dim recherche As Boolean
recherche = cherchC("Véhicules", TextBox1.Value)

If recherche = True Then
MsgBox ("Valeur trouvée en : ligne: " & vcLig & " Colonne: " & vcCol)

ModificationVéhicule1.Show

ModificationVéhicule1.TextBox1.Value = Sheets("Véhicules").Cells(vcLig, 1)
ModificationVéhicule1.TextBox2.Value = Sheets("Véhicules").Cells(vcLig, 2)
ModificationVéhicule1.TextBox3.Value = Sheets("Véhicules").Cells(vcLig, 3)
ModificationVéhicule1.TextBox4.Value = Sheets("Véhicules").Cells(vcLig, 4)
ModificationVéhicule1.TextBox5.Value = Sheets("Véhicules").Cells(vcLig, 5)
ModificationVéhicule1.TextBox6.Value = Sheets("Véhicules").Cells(vcLig, 6)
ModificationVéhicule1.TextBox7.Value = Sheets("Véhicules").Cells(vcLig, 7)
ModificationVéhicule1.TextBox8.Value = Sheets("Véhicules").Cells(vcLig, 8)
ModificationVéhicule1.TextBox9.Value = Sheets("Véhicules").Cells(vcLig, 9)
ModificationVéhicule1.TextBox10.Value = Sheets("Véhicules").Cells(vcLig, 10)
ModificationVéhicule1.TextBox11.Value = Sheets("Véhicules").Cells(vcLig, 11)
ModificationVéhicule1.TextBox12.Value = Sheets("Véhicules").Cells(vcLig, 12)
ModificationVéhicule1.TextBox13.Value = Sheets("Véhicules").Cells(vcLig, 13)
Else
MsgBox ("Aucun résultat trouvé")
End If


End Sub

1 réponse

jordane45
Messages postés
36331
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 septembre 2022
350
6 juin 2014 à 16:56
En partant du principe que tu as nommé ton USERFORM => ModificationVehicule1 ( sans accents !! )

Private Sub CommandButton1_Click()

Dim recherche As Boolean
recherche = cherchC("Véhicules", TextBox1.Value)

If recherche = True Then
MsgBox ("Valeur trouvée en : ligne: " & vcLig & "  Colonne: " & vcCol)

' Remplissage des TextBox :
    ModificationVehicule1.TextBox1.Value = Sheets("Véhicules").Cells(vcLig, 1)
    ModificationVehicule1.TextBox2.Value = Sheets("Véhicules").Cells(vcLig, 2)
    ModificationVehicule1.TextBox3.Value = Sheets("Véhicules").Cells(vcLig, 3)
    ModificationVehicule1.TextBox4.Value = Sheets("Véhicules").Cells(vcLig, 4)
    ModificationVehicule1.TextBox5.Value = Sheets("Véhicules").Cells(vcLig, 5)
    ModificationVehicule1.TextBox6.Value = Sheets("Véhicules").Cells(vcLig, 6)
    ModificationVehicule1.TextBox7.Value = Sheets("Véhicules").Cells(vcLig, 7)
    ModificationVehicule1.TextBox8.Value = Sheets("Véhicules").Cells(vcLig, 8)
    ModificationVehicule1.TextBox9.Value = Sheets("Véhicules").Cells(vcLig, 9)
    ModificationVehicule1.TextBox10.Value = Sheets("Véhicules").Cells(vcLig, 10)
    ModificationVehicule1.TextBox11.Value = Sheets("Véhicules").Cells(vcLig, 11)
    ModificationVehicule1.TextBox12.Value = Sheets("Véhicules").Cells(vcLig, 12)
    ModificationVehicule1.TextBox13.Value = Sheets("Véhicules").Cells(vcLig, 13)

    
Else
    MsgBox ("Aucun résultat trouvé")
End If


End Sub

0
SandraMt
Messages postés
58
Date d'inscription
jeudi 5 juin 2014
Statut
Membre
Dernière intervention
2 juillet 2014

6 juin 2014 à 16:58
Ca marche !!!!!!!

Merci beaucoup !!!
0
jordane45
Messages postés
36331
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 septembre 2022
350
6 juin 2014 à 17:01
Ca marche !!!!!!!
Je sais...c'est moi qui l'ai fait ... ;-p

N'oublies pas de mettre le sujet en résolu.

@++
0