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

Messages postés
58
Date d'inscription
jeudi 5 juin 2014
Dernière intervention
2 juillet 2014
- - Dernière réponse : jordane45
Messages postés
24536
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
16 février 2019
- 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
Afficher la suite 

Votre réponse

1 réponse

Messages postés
24536
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
16 février 2019
362
0
Merci
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

SandraMt
Messages postés
58
Date d'inscription
jeudi 5 juin 2014
Dernière intervention
2 juillet 2014
-
Ca marche !!!!!!!

Merci beaucoup !!!
jordane45
Messages postés
24536
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
16 février 2019
362 -
Ca marche !!!!!!!
Je sais...c'est moi qui l'ai fait ... ;-p

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

@++
Commenter la réponse de jordane45

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.