Transfert données userform vers 2 feuille Excel
Bonjour à tous,
Dans le cadre de mon travail, je dois créer un suivi de devis ,facture, chantier et plannig
Je n'y connais très peu en VBA, j'ai commencer à travailler avec ce langage il y a quelques tenps (en cherchant des infos sur le web) et je dois dire que j'y perds un peu.
J'ai réussit à créer un userform1 pour la saisie de mes données mais je n'arrive pas à les transférer dans ma feuille1 "Accueil".
J'ai essayé plusieurs solutions proposées dans de nombreux sites (y compris celui-ci en me basant sur des modèles existants), mais j'ai du raté quelque chose...
Pourriez-vous m'aider à comprendre ce qui se passe pour y voir un peu plus clair ?
Merci d'avance
Je joins mon fichier contenant quelques explications.
Pièces jointes:
Bonjour et bienvenue sur le forum
Un essai à tester. Te convient-il ?
Bye !
Bonjour GMB
Je te remercie , cette coi que matchée pas ?
jais pensée bien faire mes il me maquée coi?
mes super vous étés les meilleur
Silverio
re
j'ai deux problèmes que avant je lavais pas
1-quand je veux modifier sa marche plus
2-le dernier numéros de client il n'apparence plus (comme avant)
il me mes le suivant
Private Sub CommandButton5_Click()
'modifier
Dim no_ligne As Integer
Sheets("client").Select
modif = ComboBox1.ListIndex + 2
If ComboBox1.Value = "" Then
MsgBox ("Veuillez remplir le champs de la recherche!")
Else
Cells(modif, 1) = TextBox1.Value
Cells(modif, 2) = TextBox2.Value
Cells(modif, 3) = TextBox3.Value
Cells(modif, 4) = TextBox4.Value
Cells(modif, 5) = TextBox5.Value
Cells(modif, 6) = TextBox6.Value
Cells(modif, 7) = TextBox7.Value
Cells(modif, 8) = TextBox8.Value
Cells(modif, 9) = TextBox9.Value
MsgBox ("Modification effectuer")
End If
Unload UserForm1
UserForm1.Show 0
End Sub
en vous remerciement
Bonjour
Je te remercie sa marche ..
Mercie encore mil fois