Discussion :

[nico5065]

Bonjour à tous,

Voila, je souhaite créer une macro qui puisse me permettre de remplir une cellule spécifique de mon fichier excel avec la date du jour + heure.

En détail : quand je complète la celulle B4 en feuille1 par "nom1" ou "nom2" ou "nom3", la date du jour + heure se renseignent automatiquement en H4 de feuille1 et de la feuille2

Etant très très très débutant sur les macros, pouvez vous m'indiquer si cela est possible et m'indiquer le code qui permettrait de réaliser cela !

Merci d'avance pour votre aide !

[Jean-Philippe André]

Salut,

oui c'est tout à fait envisageable.

Avant de te proposer du code, peux-tu nous dire si la date en question doit :
-être mise à jour à chaque modification de la cellule ?
-être supprimée si la valeur entrée ne fait pas partie des "nom1", 2 ?


La fonction qui retourne la date et l'heure est Now.

[nico5065]

Merci Jpcheck,

Effectivement si la valeur de la cellule B4 est modifiée, la date devra être mise à jour.

Et bien vu également, quand la valeur est différente de "nom1" ... ou est vide la date devra être supprimée. En faite je vais utiliser une liste déroulante pour "nom1".

PS : j'ai ajouté une petite spécification en plus dans mon premier message.

[Jean-Philippe André]

Tu peux gérer les modifications de valeur avec l'event OnChange de ta worksheet.

Reste à spécifier la cellule qui doit etre checker (la cellule se nomme target dans l'event) et à appliquer avec un select case le changement de valeur de ta date

[nico5065]

Waouh merci,

ça semble simple comme ça mais, mon problème c'est que je ne suis pas capable de coder ce que tu viens de m'indiquer :s

Je suis vraiment un gros débutant

[Jean-Philippe André]

Je t'encourage à profiter des ressources DVP à ta disposition

http://excel.developpez.com/cours

Ici un exemple de code sur l'evènement dont je t'ai parlé
http://silkyroad.developpez.com/VBA/...Feuille/#LII-E
Ca devrait te faire avancer

[nico5065]

Voila ce que j'ai pu en faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not Application.Intersect(Target, Range("b4:d" & [d65000].End(xlUp).Row)) Is Nothing Then
        If Target = "Market" Then
            Target.Columns.Offset(-2, 5) = Now
        Else
            Target.Columns.Offset(-2, 5).ClearContents
        End If
    End If
End Sub

T'en penses quoi ?

[Jean-Philippe André]

C'est pas mal

Reste à l'adapter si tu veux plusieurs cas de valeur dans ta cellule

De plus, ici tu mets une intersection sur toutes les cellules des colonnes B à D, or il me semble que seule la cellule B4 t''intéresse non ?

[nico5065]

C'est tout a fait juste !

Mais comment intégrer plusieurs valeurs ? ça marche avec un "or" ?

Par exemple :

Code :

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

1
2
 
If Target = "Market" or "nom2" Then

Merci pour tes indications

[Jean-Philippe André]

Yep,
un or ou un select case

Code :

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

If Target.value = "Market" or target.value  = "nom2" Then

ou

Code :

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

1
2
3
4
Select Case Target.Value:
Case "Market","nom2":
Case Else:
End Select