Insérer des données de cellules dans TextBox [Résolu]

Signaler
Messages postés
58
Date d'inscription
jeudi 5 juin 2014
Statut
Membre
Dernière intervention
2 juillet 2014
-
Messages postés
29627
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
29 septembre 2020
-
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

Messages postés
29627
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
29 septembre 2020
337
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

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

Ca marche !!!!!!!

Merci beaucoup !!!
Messages postés
29627
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
29 septembre 2020
337
Ca marche !!!!!!!
Je sais...c'est moi qui l'ai fait ... ;-p

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

@++