Discussion :

[backx3]

Bonjour bonjour,

Je fais une nouvelle fois appel à vous parce que je suis en galère
Désolé pour le titre pas très très explicite. Je vous explique mon problème :

Je voudrais qu'automatiquement, ma macro fasse en sorte que si une valeur est modifiée "à la main" dans une cellule, qu'elle écrive le caractère "main" (| en police wingdings) dans la colonne "A" et sur la même ligne. (Pour la police c'est pas très grave, si je peux afficher n'importe quoi je serais content )

Si je n'ai pas été assez clair, voici un exemple :

J'ai une date en colonne G, ligne 9. Si cette date est modifiée à la main, je voudrais qu'en colonne A, ligne 9, apparaisse le caractère main (ou n'importe quoi).

J'ai un ch'tit début de code pour l'execution auto :

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.count = 1 Then 'Ben je cherche.. Aha    
End Sub

J'espère que vous saurez m'aider, et vous remercie d'avance !

[Igloobel]

Bonjour,

j'ai l'impression que tu ne maitrise pas le "Target"

Dans les macros événementielles le Target représente la (les) cellule(s) que l'on sélectionne avec la souris.

Donc l'objet "Target" contient son N° de ligne et son N° de colonne du coup la macro devient très simple

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Cells(Target.Row, 1).Font.Name = "Wingdings"
    Cells(Target.Row, 1).Font.Size = 26
    Cells(Target.Row, 1).Value = "?"
 
End Sub

la taille n'est pas obligatoire c'est juste pour illustrer que tu peux faire autant d'action que tu le souhaites (Taille, couleur de fond, couleur de police ... )

tu dis si cela te va

A+

[backx3]

Merci de ta réponse, c'est exactement ce que je cherchais, j'ai compris ce qu'il fallait faire, c'était pas si compliqué en fait !

Merci encore et bonne journée