Discussion :

[isodoro]

Salut,


je souhaite créé une macro dans mon tableau qui me permettrait lorsque je clique sur un bouton

de passer automatiquement à la ligne avec la date du jour.


Qui peut m'aider ?

merci

[joe.levrai]

Bonjour,

tu parles de "passer à la ligne"

c'est une action qui signifie "en partant de la cellule où je suis, je veux aller à la cellule en dessous"

c'est à dire que tu veux un bouton où il faut cliquer pour .... déplacer ton curseur d'une cellule ... ce qui revient à remplacer la touche "flèche bas" par un clic de bouton et du code VBA ?

et pour écrire la date du jour, on peut utiliser la fonction =AUJOURDHUI()



je ne comprend pas l'avantage que tu souhaites obtenir en faisant ça, quelque chose m'échappe ? tu pourrais préciser un peu dans quel contexte d'utilisation se trouve le fichier, et surtout ce "tableau" ?

[isodoro]

Mon tableau comporte 4 colonnes : A, B, C et D

Exemple :

Si je suis en D4, je veux cliquer sur un bouton pour passer à la cellule A5 et afficher la date d'aujourd'hui et ainsi suite.


j'ai fait une macro avec la fonction =AUJOURDHUI(), cela fonctionne mais qu'une fois

moi je voudrais que ceux soit répétitif

[joe.levrai]

J'ai peut-être une solution sans macro et sans formule (enfin quasiment )

mais, quelle version d'excel as-tu ?

2007 ou + ??

[isodoro]

j'ai un PC sur 2007 et un sur 2013

[joe.levrai]

Mince,

je voulais te proposer un tableau Excel (voir ici ce que c'est : http://silkyroad.developpez.com/excel/tableau/)

en faisant une tabulation après avoir rempli ta colonne D, ça crée automatiquement une nouvelle ligne
on mettait simplement en colonne A un calcul automatique de la date
et le tour était quasiment joué

mais si le fichier dois aussi être utilisé sur excel 2003, tant pis ...

je peux te proposer autre chose du coup :

1) quand tu as rempli une cellule en colonne D (juste après avoir appuyé sur la touche Entrée)
2) une macro se lance automatiquement : si la cellule de la colonne D est la dernière ligne remplie ==> on revient à la ligne suivante en colonne A et on écrit la date du jour

tu n'aura même pas besoin de cliquer sur un bouton

[isodoro]

ok et merci pour ton aide

mais je dois partir je reprends demain matin

[joe.levrai]

Pas de souci,

voici une proposition, à placer dans le module de la feuille concernée :

- faire un clic droit sur l'onglet de la feuille
- sélectionner "visualiser le code" pour ouvrir l'éditeur de code
- coller la procédure suivante

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 And Target.Offset(1, 0).Value = "" Then
        With Cells(Target.Row + 1, 1)
            .Select
            .Value = Date
        End With
    End If
End Sub

- tester et me dire ce qu'il en est


le principe :

- dès que tu vas changer la valeur d'une cellule sur la feuille, la macro se lance automatiquement
- si la cellule modifiée est en colonne D, et que la cellule juste en dessous est vide :
* La cellule de la colonne A située sur la ligne du dessous se sélectionne
* La date du jour s'inscrit automatiquement

[isodoro]

Salut joe.levrai,

je suis novice en visualbasic

j'ai bien coller ton code mais ensuite je fais comment pour l'appliquer dans mon tableau.

merci

[isodoro]

j'ai réussi à me débrouiller avec ce code :

Sub test()
ActiveCell.Offset(1, -3).Select
ActiveCell.FormulaR1C1 = "=TODAY()"
End Sub

merci joe.levrai pour ton aide

@+

[joe.levrai]

Bonjour,

il n'y a rien à faire pour la déclencher, elle se lance toute seule ! tu l'avais bien collée dans le module de la feuille
dès que tu remplis une cellule de la colonne D, et que la ligne du dessous est vide, ça te ramenait à la ligne automatiquement


le problème de ta procédure, c'est que tu es obligé de cliquer sur un bouton .... et ne fonctionnera pas correctement si l'utilisateur appuie sur le bouton en étant ailleurs que sur la dernière cellule de la colonne D

[isodoro]

pour ma procédure, j'ai prévenu les autres utilisateurs du fichier.

par contre, je n'y arrive pas avec ta méthode. il ne se passe rien.

je te joins mon fichier exemple, peux-tu appliquer ton code et me le renvoyer.


merci

jeremy.xlsx

[joe.levrai]

Bonjour,

j'ai ouvert ton fichier
Clic-droit sur l'onglet de ta feuille 1
"Visualiser le code"
l'éditeur de code apparait, sur le module de la feuille : j'ai collé ma procédure VBA proposée plus haut
fermé l'éditeur
écrit un truc en D4 ... le curseur se positionne en E1 avec la date du jour dedans

procède ainsi, pas à pas, pour comprendre

[isodoro]

merci de ta patience

je viens de recommencer à nouveau et cela fonctionne.

hors mis de fermer l'éditeur, j'avais fait exactement la même chose précédemment.


un grand merci