Appel Popups par macro

Version imprimable

08/06/2010, 19h24
skrobar

Appel Popups par macro

Bonsoir,
je voudrais savoir si c'est possible de creer un popup avec excel?

je m'explique, je voudrais que lorsqu'on ecrit "OK" dans la cellule J8, un popup s'affiche en demandant de remplir la date sous format Mois/Jour/Annee et remplis automatiquement la cellule K8 avec la date.
et ainsi de suite

"ok" dans la cellule J9, un popup s'affiche, on remplis dans le popup et la celulle K9 est remplis automatiquement....

je voudrais que le popup s'affiche UNIQUEMENT lorsqu'on a "OK" et pas autre chose.. s'il y a autre chose que "OK", le popup ne s'ouvre pas...

J'espere avoir des reponses...:mrgreen:

Dans l'évènement Change de ta feuille

Code:

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
   If Target.Column = 10 And Target.Row >= 8 Then
      If UCase(Target.Value) = "OK" Then Target.Offset(0, 1).Value = InputBox("Entrez la date")
   End If
End If
End Sub

08/06/2010, 20h09
skrobar

1 pièce(s) jointe(s)

Merci ca marche nikel mais une autre question, est ce que c'est possible de rentrer la date automatiquement? lorsqu'on met OK, la date d'aujourd'hui est renseigne automatiquement...

par contre lorsque je veux enregistrer ce code, j'ai une fenetre d'erreur qui s'ouvre, est ce que quelqu'un sait comment regler ce soucis? (voir en piece jointe)

Code:

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
   If Target.Column = 10 And Target.Row >= 8 Then
      If UCase(Target.Value) = "OK" Then Target.Offset(0, 1).Value = Date
   End If
End If
End Sub

08/06/2010, 22h04
skrobar

Merci Beaucoup! ca marche nikel!:ccool: