Discussion :

[fthem]

Ahhhhh,
je n'arrive pas à rapatrier la date que je sélectionne dans mon calendrier dans une cellule donnée
Voila un bout du code

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Column = 3 And Target.Row = 6 Or Target.Column = 4 And Target.Row = 6 Then
 
UserForm4.Show
End If
End Sub

Merci

[jfontaine]

Bonjour,

Actuellement, ton code affiche la Userform4 si tu sélectionnes une des celulles suivantes (C6 ou D6).
Je ne vois aucune référence à un objet calendrier ni de notion d'affectation de valeur à une cellule

[fthem]

salut,
mon calendrier s'appelle UserForm4

ensuite voila le code qui marche

Code :

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

1
2
3
4
Private Sub Calendar1_Click()
    Range("C6").Value = Calendar1.Value
 
End Sub

Mon probléme est que je saisie un intervale de dates donc en cliquant dans la cellule suivante D6 j'affiche à nouveau mon Calendar1 mais je voudrais que la date sélectionnée aille dans la 2éme cellule soit D6

C'est OK j'ai résolu mon probléme en créant 2 calendars
Il me reste un souci, comment fait-on ouvrir un Calendar à la date du jour?
Merci

[jfontaine]

comment fait-on ouvrir un Calendar à la date du jour?

Code :

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

Calendar1.Value= Date

[fthem]

Salut, et merci
je continue dans mes questions
voici le code que j'ai mis pour rapatrier les données des cellules de ma Feuil2 dans les textbox de mon Userform

Code :

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

1
2
3
4
5
6
7
8
If (Feuil2.Range("A6") <> "") And (Feuil2.Range("B6") <> "") And (Feuil2.Range("A6") <> "") And (Feuil2.Range("D6") <> "") Then
 
    UserForm2.Show
    UserForm2.TextBox1 = Range("A6").Value
    UserForm2.TextBox2 = Range("B6").Value
    UserForm2.TextBox3 = Range("C6").Value
    UserForm2.TextBox4 = Range("D6").Value
    End If

Malheureusement, ça ne m'affiche pas les données à l'ouverture de l'UserForm, ça m'ouvre l'UserForm vide, puis je clique sur la croix pour fermer mon UserForm je sélectionne les 4 cellules pour effacer le contenu et là, il me réouvre l'UserForm avec les données
qq'un pourrait-il m'aider
Merci

[jfontaine]

je sélectionne les 4 cellules pour effacer le contenu et là, il me réouvre l'UserForm avec les données

Ton code affiche la userform si les 4 cellules sont pleines (aucune ne doit être vide)
Comment les textbox peuvent être alimentées si les cellules sont vidées ??

De plus dans ton code tu testes les cellules de Feuil2 et ne spécifies pas de feuille pour l'alimentation. Est ce aussi la feuille 2? Sur quelle feuille te trouves tu quand tu lances la macro.

pour finir, sur quel évènement exécutes tu ce code?

[SfJ5Rpw8]

par défaut l'ouverture d'un userform s'ouvre en mode "modal" c'est à dire que la ligne UserForm2.Show est bloquante, les lignes suivante ne sont effectuées que lors de la fermeture de la form ... inverse l'ordre des lignes ou place tes lignes copiant les données dans la procédure :

Code :

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

1
2
3
Private Sub UserForm_Initialize()
 
End Sub

[fthem]

Code :

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

1
2
3
4
5
6
7
8
If (Feuil2.Range("A6") <> "") And (Feuil2.Range("B6") <> "") And (Feuil2.Range("A6") <> "") And (Feuil2.Range("D6") <> "") Then
       UserForm2.TextBox1 = Range("A6").Value
    UserForm2.TextBox2 = Range("B6").Value
    UserForm2.TextBox3 = Range("C6").Value
    UserForm2.TextBox4 = Range("D6").Value
    UserForm2.Show
 
    End If

ça marche mieux dans ce sens

Par contre j'ai un bouton sur mon UserForm qui a pour effet de fermer celui-ci, mais je voudrais qu'il me remette mes 4 cellules de la feuille vides
comment écrit-on cela?
Merci

[SfJ5Rpw8]

....
Par contre j'ai un bouton sur mon UserForm qui a pour effet de fermer celui-ci, mais je voudrais qu'il me remette mes 4 cellules de la feuille vides
comment écrit-on cela?
Merci

ben tu inverse l'affectation ... profite en pour préciser la feuille (chose que tu as oublié précédemment

Code :

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

Feuil2.Range("B6").Value = UserForm2.TextBox2

)

[fthem]

OK, merci beaucoup, ça marche,
ça commence à venir