Discussion :

[Angus74]

Bonjour,

je suis en train de mettre en place un formulaire dynamique avec un UserForm.

J'ai codifié mon UserForm.

Maintenant j'aimerai que lorsque je sélectionne moi même une plage de cellule, j'aimerai que les données que j'ai remplis dans mon formulaire se remplissent dans ma plage de cellule sélectionné.

Ma 1ère cellule commence par M15 et finis par DA55

Voici le début de mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub UsersForm1()
 
'Met à zéro les valeurs de la boîte de dialogue
UserForm1.champ_pro = ""
UserForm1.champ_patient = ""
 
'J'ouvre la boîte de dialogue
UserForm1.Show
 
'Sélectionne la feuille "planning"
 
Sheets("Planning").Select
 
End Sub

Merci par avance

[Thautheme]

Bonjour Angus, bonjour le forum,

Le plus souvent on utilise un CommandBouton dans l'UserForm (Valider par exemple) qui permet de renvoyer les données de l'UserForm dans le tableau avec le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
'ton code
End Sub

Là encore, le plus souvent on utilise la première ligne vide de la colonne A (ou d'une autre) pour renvoyer les données.

Tu peux faire la même chose avec ton système. Tu commences par sélectionner la cellule qui va contenir la première donnée puis un code du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
 
Set DEST = ActiveCell
DEST.Value = champ_pro.Value 'renvoie dans DEST la valeur de champ_pro
DEST.Offset(0, 1) = champ_patient 'renvoie dans DEST déclarer d'une colonne à droite la valeur de champ_patient
'etc.
Unload Me 'vide et ferme l'UserForm
End Sub

tu renvoies dans les autres cellule avec Offset(Ligne, Colonne) qui décale dans les lignes au-dessous si Ligne est positif et dans les lignes au-dessus si ligne est négatif, dans les colonnes à droite si Colonne est positif, à gauche si Colonne est négatif.

[Angus74]

Bonjour,

merci pour votre retour, mais ça ne fonctionne pas. Lorsque je sélectionne manuellement 2 cellules et que je rentres le nom du professionnel et le nom du patient, seul la première ligne avec le nom du patient se rempli.
J'aimerai que lorsque je sélectionne plusieurs lignes manuellement, que le nom du pro se mette dans la première ligne et en dessous le nom du patient.

Merci pour votre aide

[Thautheme]

Bonjour Angus, bonjour le forum,

Ça marche mais tu as mal lu ou mal compris...

[Angus74]

Bonjour Thautheme,

Merci de ton retour, il me met l'erreur suivante comme quoi il ne connais pas Unload Me

Cordialement

[Sebphyto]

Salut Angus,

Changement seulement le "Unload Me" par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Userform1.hide 'vide et ferme l'UserForm

Et essai de voir si cela fonctionne

A+Seb