VBA Importer ligne dans un userform

Signaler
Messages postés
32
Date d'inscription
mercredi 23 février 2011
Statut
Membre
Dernière intervention
8 mai 2018
-
Messages postés
32
Date d'inscription
mercredi 23 février 2011
Statut
Membre
Dernière intervention
8 mai 2018
-
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 ?

Merci de votre aide !

3 réponses

Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Salut,

ah ! et le code il est ou ?

sans le code je vois pas comment on peut t'aider

A+
Messages postés
32
Date d'inscription
mercredi 23 février 2011
Statut
Membre
Dernière intervention
8 mai 2018

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


Je sèche !
Merci
Messages postés
32
Date d'inscription
mercredi 23 février 2011
Statut
Membre
Dernière intervention
8 mai 2018

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


Merci ;)