XL 2016 Recuperer les infos d'une feuille dans une Form

[Don pépé]

Bien le bonjour😉

Voila je vous explique se que je voudrais faire.
J'ai une feuille avec des données client quand je selectionne une cellule de la ligne et que je clique su le boutton modifier je voudrais que ca m'ouvre l'userform voulue en mettant les infos au bon endroit pour pouvoir les modifier😵 mais je ne sais comment faire si quelqu'un a une idée je suis preneur.

Merci bien a vous 😉

Ps: je vous joint mon fichier😉

 

[Dranreb]

Bonjour.
Pourquoi ne mettriez vous pas une méthode en tête de l'UserForm :

Option Explicit
Private Plage As Range
Public Sub Afficher(ByVal R As Range)
Set Plage = R
Me.Show
End Sub

Et dans le module de la feuille :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
AjoutForm.Afficher Target
End Sub

 

[Don pépé]

merci pour votre reponse.

Alors je suis un tres grand debutant en vb et jai un peux de mal 😉

Une methode oui pourquoi mais a quoi sa sert ??

merci 😉

 

[Dranreb]

Vous le voyez bien: ça sert à afficher l'UserForm en lui transmettant la plage à mettre à jour.

 

[Don pépé]

oui mais sa me rempli pas mon userform avec les donnees

 

[Dranreb]

Vous pouvez ajouter les instructions qui font ça, un peu sur ce modèle :

Public Sub Afficher(ByVal R As Range)
Dim T()
Set Plage = R
T = Plage.Resize(1, 15).Value
civilite = T(1, 1)
Nom.Value = T(1, 2)
etc.
Me.Show
End Sub

Et dans la Private Sub Ajouter_Click(), naturellement on fait l'inverse :

'insertion des valeurs sur la feuille
        Dim T(1 To 1, 1 To 15)
        T(1, 1) = civilite
        T(1, 2) = Nom.Value
        T(1, 3) = Prenom.Value
        T(1, 4) = Adresse.Value
        T(1, 5) = CodePostal.Value
        T(1, 6) = Ville.Value
        T(1, 7) = Telephone.Value
        T(1, 8) = Mail.Value
        T(1, 9) = electricite
        T(1, 10) = Du.Value
        T(1, 11) = Au.Value
        T(1, 12) = Adulte.Value
        T(1, 13) = Enfant.Value
        T(1, 14) = Animal.Value
        T(1, 15) = Emplacement.Value
        Plage.Resize(1, 15).Value = T

 

[Don pépé]

ok merci beaucoup je vais de se pas potasser ca

 

[Dranreb]

Bonjour BISSON Nicole.
Ce classeur a-t-il un quelconque rapport avec cette discussion ?

 

[Dranreb]

De répondre à une demande, bien sûr. Mais intervenir par quelque chose qui n'y répond en rien, ça…
J'ai eu beau revoir votre classeur, je n'y ai vu de dispositif permettant d'afficher dans un UserForm les infos contenues à partir d'une cellule sélectionnée dans la feuille. Relisez le poste #1.

 

[Dranreb]

Si le demandeur a finalement trouvé intéressant de chercher l'info seulement depuis l'UserForm, d'accord, mais ce n'est pas ce qu'il avait demandé.

 

[JM27]

Bonsoir
A tester
je te laisses finir l'initialyse de le l'Userform ( selon l'exemple en début de la macro)
il est possible qu'il y ait encore quelques petits pb à régler