Discussion :

[backx3]

Bonjour,

Voici mon problème :

Je voudrais que lorsqu'une valeur des colonnes G,H,I,J,K,L change, la macro fasse en sorte d'aller dans la colonne A et écrire "?" sur la ligne qui a été changée.

Pour l'instant j'ai ça :

Code :

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

1
2
3
4
5
6
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = "G" Then Cells(Target.Row, 1).Font.Name = "Wingdings"
    Cells(Target.Row, 1).Value = "?"
 
    End If
End Sub

J'ai une erreur que je ne comprends pas "End If sans bloc If"...

Merci de votre aide !

[bboy-eazy]

bonjour,

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)
With ThisWorkbook.Worksheets("test")
If Not Intersect(Target, .Range("G:L")) Is Nothing Then
.Cells(Target.Row, 1).Value = "?"
End If
End With
End Sub

[backx3]

Merci, tu gères !