Sujet Précédent Sujet Suivant

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 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 - 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

Réponse 1 / 1
jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 344
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 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 344
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

Discussions similaires

[vba] recopier la valeur d'une cellule dans une autre feuille.
cokinoumasterflash -
cokinoumasterflash -

5 réponses
Comment appeler une cellule d'une autre feuille
fanjio -
ScSami -

2 réponses
Vba coller valeur cellule sur une autre cellule avec variable
walyddu59 -
walyddu59 -

3 réponses
Prendre la valeur d'une cellule dans excel avec vba
ndsaerith -
amigo21 -

3 réponses
Couleur de fond d'une cellule excel
lorre0041 -
isophie -

7 réponses
Rejoignez-nous