Boite de dialogue

C'est faisable, pas si facile que cela. J'explique : vous voulez que lorsque T8 est complétée (automatiquement) apparaisse une boite de dialogue. Facile :
Clic droit sur l'onglet de la feuil : sélectionner Worksheet dans le menu déroulant (milieu haut) et selectionchange dans celui de droite en haut. ça donne :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
Pour faire apparaitre une boite de dialogue permettant à l'utilisateur d'interagir sur le document (cela s'appelle une InputBox), il faut déclarer une variable et lui affecter la valeur de l'InputBox :
Dim result as String
result = InputBox("date de la séance :", "Date")
Le test maintenant : Si T8 est non vide, lancer la boite de dialogue et placer son résultat en B10 :
If [T8] <> "" Then
result = InputBox("date de la séance :", "Date")
[B10] = result
Le problème est que l'inputbox va apparaitre tout le temps (selectionchange = à chaque fois que l'utilisateur change de cellule...). Pour pallier à cela il faut, lorsque l'on inscrit le résultat en B10 pour la 1ère fois, compléter avec un 1 par ex une autre cellule pour pouvoir la tester. Ici j'ai choisit C10 :
Dim result As String
If [T8] <> "" Then 'si T8 est différente de rien alors
If [C10] = 1 Then 'Si C10 = 1 (donc il ne s'agit plus de la 1ère fois) alors
Exit Sub ' on quitte la macro
Else ' sinon (s'il s'agit de la 1ère fois)
result = InputBox("date de la séance :", "Date") 'affiche la boite de dialogue
[B10] = result 'complète la cellule B10 avec la valeur de l'InputBox
[C10] = 1 'inscrit 1 en C10
End If
End If
Il n'y a plus qu'à inscrire ce code entre les deux lignes qui "commandent" cette macro, ce qui nous donne :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim result As String
If [T8] <> "" Then
If [C10] = 1 Then
Exit Sub
Else
result = InputBox("date de la séance :" & Chr(10) & Chr(10) & "(merci de mettre cette date au format : jj/mm/aaaa"), "Date")
[B10] = result
[C10] = 1
End If
End If
End Sub

Ok merci pour ta patience et cette aide précieuse,

La seule chose que je ne comprends pas c'est ceci :

"Clic droit sur l'onglet de la feuil : sélectionner Worksheet dans le menu déroulant (milieu haut) et selectionchange dans celui de droite en haut. ça donne :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub"

Quand je fais un clic droit sur l'onglet de ma feuille, j'ai le chois entre renommer, déplacer ou copier...mais je n'ai pas Worksheet.

Est-ce que j'ai mal compris la procédure à suivre ?

Ok,
Bon en cherchant bien en fait j'ai compris où il fallait écrire le code.

Par contre maintenant, il faut bien que je crée mon Inputbox (ma boite de dialogue), non ?

Comment dois-je faire : je dois insérer un useform, c'est ça ?

Après je sais créer un useform très basique avec un message texte et un boutton genre "quitter" mais ke ne sais pas comment faire pour créer la case à côté de mon texte "date de la séance :" où je devrai remplir la date qui sera renvoyée automatiquement en B10.

Merci de votre aide.

J'avais oublié... Clic droit/visualiser le code. Pardon. Une fois que vous avez fait cela, une fenêtre Visual Basic s'ouvre. Vous copiez/collez le code que je vous ai décrit précédemment :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim result As String
If [T8] <> "" Then
If [C10] = 1 Then
Exit Sub
Else
result = InputBox("date de la séance :" & Chr(10) & Chr(10) & "(merci de mettre cette date au format : jj/mm/aaaa"), "Date")
[B10] = result
[C10] = 1
End If
End If
End Sub
Vous fermez la fenêtre VB et c'est tout. Vous avez une InputBox et tout fonctionne... Pas besoin de userform, votre inputbox est ici :
result = InputBox("date de la séance :" & Chr(10) & Chr(10) & "(merci de mettre cette date au format : jj/mm/aaaa"), "Date")
Essayez, vous verrez

De pls, quand je visualise le code, la ligne :

"result = InputBox("date de la séance :" & Chr(10) & Chr(10) & "(merci de mettre cette date au format : jj/mm/aaaa"), "Date")"

est inscrite en rouge, est-ce normal ?

Non ce n'est pas normal. Joint nous ton fichier stp grâce à cjoint...

Ok merci beaucoup, ça semble parfait.

Si toutefois je voulais que la date s'inscrive aussi en même temps dans les cellules D53 et D80, comment devrai-je faire ?

Est-ce que cela peut fonctionner :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim result As String
If [G26] <> "" Then
If [J19] = 1 Then
Exit Sub
Else
result = InputBox("date de la séance :" & Chr(10) & Chr(10) & "merci de mettre cette date au format : jj/mm/aaaa", "Date")
If result = "" Then
Exit Sub
End If
[D26] = result
[D53] = result
[D80] = result
[J19] = 1
End If
End If
End Sub

Vraiment mille mercis, c'est super !!

Bonjour je fais remonter l'un de mes messages car j'ai une petite modif à faire :

J'avais bien réussi donc à créer ma boite de dialogue suite à vos messages ci-dessus.
Seulement, je souhaiterai maintenant avoir la posiibilité d'ouvrir plusieurs boites de dialogues sur la même page.

Comme c'est boites de dialogues seront les mêmes que ce que j'ai déjà créé, j'ai fait un copier/coller de la procédure et j'ai changé les noms des cellules à prendre en compte.

Mais cela ne fonctionne pas car il semnle qu'il y ait un souci de désignation :
le souci semble provenir de cette ligne :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Quelqu'un peut-il m'aider ?
Merci d'avance.

Tu ne peux avoir qu'un seul : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Donc il faut mettre tes 2 procédures entre Private sub et end sub.

Ok mais alors que dois devenir mon code ? Que dois-je supprimer ?

Qu'as tu modifié, je ne vois pas de différence ?

pardon le 28....

Euhhh je suis un peu perdu dans nos échanges :-)

Donc tu y regardes et tu me tiens au courant, c'est ça ?