Bouton "Modifier" [Résolu]
SandraMt
- Messages postés
- 58
- Date d'inscription
- jeudi 5 juin 2014
- Statut
- Membre
- Dernière intervention
- 2 juillet 2014
- Messages postés
- 58
- Date d'inscription
- jeudi 5 juin 2014
- Statut
- Membre
- Dernière intervention
- 2 juillet 2014
A voir également:
- Bouton modifier
- Bouton modifier userform - Meilleures réponses
- Bouton modifier vba - Meilleures réponses
- Bouton Modifier ✓ - Forum - Java
- Help ✓ - Forum - IRC
- Visual Basic / VB.NET : Modifier la forme des objects (boutons, form) au run time - CodeS SourceS - Guide
- Visual Basic / VB.NET : Modifier l'état des boutons réduire agrandir fermer - Guide
- Programme pour impresson d'écran sélective, activer un bouton grisé, modifier les attributs d'une fe - Codes sources - C / C++ / C++.NET (Application)
3 réponses
- Messages postés
- 26486
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Modérateur
- Dernière intervention
- 13 octobre 2019
Bonjour,
As tu essayé de lancer ta macro en mode pas à pas .. pour voir ce que valent tes différentes variables ???
Par exemple... que vaut "vcLig" au moment où tu cliques sur ton bouton ?
juste pour les tests.. tu peux toujours ajouter une petite msgbox histoire de voir...
Et juste pour être sûr :
Tes lignes de code... tu les as mises où dans ton programme ?
Dans la sub du bouton ?
Tu peux nous montrer la macro (du bouton) complète ?
As tu essayé de lancer ta macro en mode pas à pas .. pour voir ce que valent tes différentes variables ???
Par exemple... que vaut "vcLig" au moment où tu cliques sur ton bouton ?
juste pour les tests.. tu peux toujours ajouter une petite msgbox histoire de voir...
Sheets("Véhicules").Cells(vcLig, 1) = TextBox2.Value
Msgbox "Ligne = " & vcLig & " TextBox2 = " & TextBox2.value
'... le reste de ton code
Et juste pour être sûr :
Tes lignes de code... tu les as mises où dans ton programme ?
Dans la sub du bouton ?
Tu peux nous montrer la macro (du bouton) complète ?
- Messages postés
- 12253
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 19 juillet 2019
Bonjour,
Rien à voir avec la question, mais un petit complément d'info pour SandraMt.
Lorsque tu "transfères" des données comme tu le fais, dans des colonnes qui se "suivent", à partir de textbox dont les noms comportent des numéros qui se "suivent" également, tu peux aisément utiliser une boucle. Tu auras ainsi gagné en nombre de lignes de code. Méthode de fainéant, mais bon à signaler tout de même...
Ainsi ta procédure pourrait s'écrire :
Cordialement,
Franck
Rien à voir avec la question, mais un petit complément d'info pour SandraMt.
Lorsque tu "transfères" des données comme tu le fais, dans des colonnes qui se "suivent", à partir de textbox dont les noms comportent des numéros qui se "suivent" également, tu peux aisément utiliser une boucle. Tu auras ainsi gagné en nombre de lignes de code. Méthode de fainéant, mais bon à signaler tout de même...
Ainsi ta procédure pourrait s'écrire :
Private Sub CommandButton2_Click()
Dim bytInd As Byte
Dim recherche As Boolean
recherche = cherchC("Véhicules", TextBox1.Value)
If recherche = True Then
MsgBox ("Modification réussie")
For bytInd = 1 To 13
Sheets("Véhicules").Cells(vcLig, bytInd) = Me.Controls("TextBox" & bytInd + 1).Value
Next
Else
MsgBox ("Aucun résultat trouvé")
End If
End Sub
Cordialement,
Franck
- Messages postés
- 26486
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Modérateur
- Dernière intervention
- 13 octobre 2019
Au cas où ... pour éviter d'avoir à Relancer la recherche ..a chacune de tes opérations ( Afficher / Modifier...)
Tu peux mettre une textbox ( chachée => visible = false) dans ton Userform qui récupère le N° de ligne lors de l'affichage des données.
En gros :
1 - Tu recherche l'Immatriculation dans ton fichier Excel.
2 - Tu affiches dans ton Userform les différentes valeurs ( en fonction du Numéro de ligne obtenu par la recherche)
2 bis - Tu stocke dans ta userform ce Numéro de ligne (dans une textbox)
3 - Ensuite pour la Mise à jour... tu récupère ce numéro de ligne directement... puis tu t'en sert pour écrire dans tes cellules Excel...
PS: pense que tu peux "nommer" tes textbox.
Cela rend la lecture du code plus simple et surtout ça te permet de savoir lorsque tu es dans ton code à quoi elles correspondent....
par exemple :
et donc pour l'utiliser :
Tu peux mettre une textbox ( chachée => visible = false) dans ton Userform qui récupère le N° de ligne lors de l'affichage des données.
En gros :
1 - Tu recherche l'Immatriculation dans ton fichier Excel.
2 - Tu affiches dans ton Userform les différentes valeurs ( en fonction du Numéro de ligne obtenu par la recherche)
2 bis - Tu stocke dans ta userform ce Numéro de ligne (dans une textbox)
3 - Ensuite pour la Mise à jour... tu récupère ce numéro de ligne directement... puis tu t'en sert pour écrire dans tes cellules Excel...
rivate Sub CommandButton2_Click()
Dim numLigne as integer
numLigne = me.TextBox20.value ' à remplacer par LA textbox qui contient le numero de ligne
If numLigne >0 and numLigne <>"" Then
Sheets("Véhicules").Cells(numLigne , 1) = TextBox2.Value
Sheets("Véhicules").Cells(numLigne , 2) = TextBox3.Value
Sheets("Véhicules").Cells(numLigne , 3) = TextBox4.Value
Sheets("Véhicules").Cells(numLigne , 4) = TextBox5.Value
Sheets("Véhicules").Cells(numLigne , 5) = TextBox6.Value
' .....
PS: pense que tu peux "nommer" tes textbox.
Cela rend la lecture du code plus simple et surtout ça te permet de savoir lorsque tu es dans ton code à quoi elles correspondent....
par exemple :
et donc pour l'utiliser :
' comme pour une textbox "normale" TNumLigne.Value = "ceci est ma valeur.."
- Messages postés
- 58
- Date d'inscription
- jeudi 5 juin 2014
- Statut
- Membre
- Dernière intervention
- 2 juillet 2014
-Voila les lignes que j'ai faites
Ca marche avec les tests que je viens de faire
Merci beaucoup