Discussion :

[Kamo76]

Bonjour à tous,

Je suis un (grand) débutant concernant VBA sous Excel et ma première mission, si je veux bien la remplir, est la suivante :

Soit un tableau Excel classique, assez gros pour se donner la peine de faire une ou deux petites macros pour l'améliorer. Et notamment une fonction de mise à jour par colonne (et non du document entier).

Ainsi, je désirerais, à chaque fois qu'un utilisateur vient modifier une colonne du tableau, que la date de mise à jour s'affiche automatiquement dans la première cellule de cette colonne.

Sur le principe, je suppose qu'il faut faire la fonction suivante : Si Excel détecte une modification dans la colonne X alors il faut changer la date de mise à jour dans la cellule "AX" sinon il ne faut rien modifier.

Ne trouvant de fonction sous Excel qui permette cela, je suppose qu'il faut passer par du VBA pour y arriver.

Sauf que, j'ai fait quelques essais ce matin sous VBA, juste pour voir à quoi ressembler l'environnement et déjà, pour la moindre petite fonction test, il m'affiche déjà des erreurs... Ca commence bien !

Est-ce que l'un d'entre vous aurez une idée concernant mon problème ? Faut-il passer par une procédure ou une fonction ? (N'ayant jamais fait de programmation, faut avouer que les termes semblent un peu abscons, au départ...)

Merci d'avance.

[Invité]

Lorsque que tu es dans l'éditeur VBA (ALT+F11)
Tu double-cliques sur la feuille sur laquelle vont être effectuées les modifs
Et tu colles ce code

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim NumCol As Integer
  NumCol = Target.Column
  ' Inscrit la date et heure
  ActiveSheet.Cells(1, NumCol).Value = Format(Now(), "dd/mm/yy hh:mm")
End Sub

Suivant ce que tu veux inscrire, il suffit de changer le format de Now()

Voilà

[Kamo76]

Waouh, ça, c'est une réponse rapide, claire et nette. Et ça marche !

Un grand merci, BrunoM45 .

Pour ne pas copier bêtement sans comprendre,

Code :

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

Private Sub Worksheet_Change(ByVal Target As Range)

-> Cette ligne indique donc qu'il s'agit d'une procédure... C'est à dire qui ne renvoit pas de valeur mais qui fait uniquement une (ou plusieurs) action(s). Jusque là, ça va.

Par contre, je comprends moins la partie "ByVal Target As Range"...

Code :

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

Dim NumCol As Integer

-> Là, c'est pour définir la variable NumCol comme étant un entier...

Code :

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

NumCol = Target.Column

-> Là, je suis moins sûr... On affecte à la variable NumCol le numéro de la colonne où l'on se situe ? C'est bien ça ? Ca signifie alors que Target.Column est donc une fonction intégrée à VBA pour détecter la colonne active ? (J'ai pourtant averti que j'étais une quiche )

Code :

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

1
2
3
' Inscrit la date et heure
  ActiveSheet.Cells(1, NumCol).Value = Format(Now(), "dd/mm/yy hh:mm")
End Sub

-> Bon, ben, là, c'est pour aller à la première cellule de la colonne active pour y coller la fonction Now() d'Excel sous un certain format.

Voilà... Si tu pouvais éventuellement m'éclairer sur ce joli petit bout de code qui va me rendre des services ^^.

Par contre, j'ai constaté que la condition If était effectivement inutile dans le sens où c'est l'utilisateur lui-même qui, en modifiant une colonne ou non, va réaliser la condition If. Fallait y penser.

Encore merci !

[Invité]

En fait lorsque tu es dans le code VBA de ton Objet "Feuil",
Tu sélectionnes "Worksheet" dans la liste ou est marqué "Général", puis dans la seconde liste tu sélectionnes "Change"
Et là VBA te met :

Code :

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

Private Sub Worksheet_Change(ByVal Target As Range)

Le mot clé ByVal indique qu'un argument est passé comme valeur.
Target : c'est la variable
As Range : c'est la définition de ta variable, ici c'est "Comme REFERENCE"

Mais c'est l'éditeur VBA qui inscrit cela d'office !

NumCol = Target.Column -> Là, je suis moins sûr... On affecte à la variable NumCol le numéro de la colonne où l'on se situe ? C'est bien ça ? Ca signifie alors que Target.Column est donc une fonction intégrée à VBA pour détecter la colonne active ? (J'ai pourtant averti que j'étais une quiche )

En fait "Target" prends la référence de la cellule qui vient d'être modifiée, la propriété ".Columns" récupère le numéro de la colonne dans laquelle on se trouve à l'instant T

Voilà

[Kamo76]

Impeccable !

Il ne me reste plus qu'à passer le statut de ce topic en "Résolu" !