J0K068
Messages postés32Date d'inscriptionmercredi 23 février 2011StatutMembreDernière intervention 8 mai 2018
-
5 avril 2011 à 02:27
J0K068
Messages postés32Date d'inscriptionmercredi 23 février 2011StatutMembreDernière intervention 8 mai 2018
-
5 avril 2011 à 13:08
Bonsoir à tous,
Je vous expose mon soucis :
J'ai un tableau regroupant toutes les informations de gens ... Il m'arrive de temps en temps de modifier ces informations. Ces informations sont retransmises dans plusieurs feuilles concernant ces personnes.
J'ai créé un userform où je peux choisir la personne à modifier avec une combobox, jusqu'à là pas de soucis. Combobox1 qui recherche dans la liste des noms.
J'ai copié l'userform pour ajouter une personne et ces infos pour le transformer en modification, cependant je n'arrive pas à importer les infos concernant la personne choisie dans cet userform ...
Le code actuel ne marche pas bien, si je choisi nom1, dans un premier temps rien ne s'affice, si je choisis ensuite nom2, j'ai ensuite nom1 qui s'affiche ... etc etc ...
LA galère .. en fait, je ne sais pas comment m'y prendre pour que la ligne concernée puisse se greffer dans les textboxs ...
Le but final est en fait de choisir le nom à choisir, et d'importer toutes les infos le concernant ... Je ne sais pas comment faire ...
Est il juste possible d'avoir un exemple que je puisse modifier sur mon problème ?
J0K068
Messages postés32Date d'inscriptionmercredi 23 février 2011StatutMembreDernière intervention 8 mai 2018 5 avril 2011 à 12:47
Eh ! Quand tu es débutant, difficile de faire un code ... Voilà pourquoi je crie à l'aide sur le forum ... J'ai cependant avancé !!
Depuis le formulaire j'arrive à importer les données, il ne me reste plus qu'à les enregistrer !
Code d'importation de données par rapport au nom :
'Option Explicit
Private Sub ComboBox1_Click()
With ComboBox1
If .ListIndex <> -1 Then
TextBox2 = Cells(.ListIndex + 5, 3)
TextBox3 = Cells(.ListIndex + 5, 4)
TextBox4 = Cells(.ListIndex + 5, 5)
TextBox5 = Cells(.ListIndex + 5, 6)
TextBox6 = Cells(.ListIndex + 5, 7)
TextBox7 = Cells(.ListIndex + 5, 9)
TextBox8 = Cells(.ListIndex + 5, 11)
TextBox9 = Cells(.ListIndex + 5, 10)
TextBox10 = Cells(.ListIndex + 5, 12)
End If
End With
End Sub
Code du bouton enregistrer (je pense être sur la bonne voie) :
Private Sub CommandButton1_Click()
Call modifactif(ComboBox1.Value, TextBox2.Value, TextBox3.Value, TextBox4.Value, TextBox5.Value, _
TextBox6.Value, TextBox7.Value, TextBox8.Value, TextBox9.Value, TextBox10.Value)
End Sub
Après avec la macro modifactif :
Sub modifactif(nom, datee, grade, adresse, cp, ville, telfixe, telpro, telport, mail)
Sheets("effectif_actifs").Activate
End Sub
J0K068
Messages postés32Date d'inscriptionmercredi 23 février 2011StatutMembreDernière intervention 8 mai 2018 5 avril 2011 à 13:08
Impeccable, ça marche, reste plus qu'à monter le code complètement !!
Sub modifactif(nom, datee, grade, adresse, cp, ville, telfixe, telpro, telport, mail)
Sheets("effectif_actifs").Activate
With UserForm3.ComboBox1
If .ListIndex <> -1 Then
Cells(.ListIndex + 5, 3).Value = datee
Cells(.ListIndex + 5, 4).Value = grade
End If
End With
End Sub