lancer une macro automatiquement suivant saisie dans une cellule

loiclass · 11 Juillet 2012

Bonjour,

Je cherche à lancer une macro suivant la valeur d'une cellule.

Je veux que pour toutes les cellules K de la 3ème à la dernière, si la cellule est renseignée (valeur quelconque) alors la cellule L associée soit notée "ok".
Voici mon code qui ne fonctionne pas.

Private Sub Worksheets_Change(ByVal Target As Range)
Dim i as variant
With Worksheets("suivi échantillons")
For i = 3 To 600
Target.Address = .Range("K" & i)
If Target.Value <> "" Then
.Value("L" & i) = "ok"
End If
Next
End With
End Sub

J'ai fait le tour des sujets correspondants à ma demande mais je n'arrive pas à l'adapter.

Merci d'avance.

Pierrot93 · 11 Juillet 2012

Re : lancer une macro automatiquement suivant saisie dans une cellule

Bonjour,

essaye ceci, à placer dans le module de la feuille concernée :

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("K3", Range("K65536").End(xlUp))) Is Nothing Then
    With Application
        .EnableEvents = False
        If Target.Value <> "" Then Target.Offset(0, 1).Value = "ok" Else Target.Offset(0, 1).Value = ""
        .EnableEvents = True
    End With
End If
End Sub

bonne journée
@+

loiclass · 11 Juillet 2012

Re : lancer une macro automatiquement suivant saisie dans une cellule

Merci, c'est bien ça.

Maintenant je n'ai plus qu'à y intégrer un code couleur.
La valeur "ok" était pour simplifier les choses.

En fait au final, je veux faire le test sur 2 colonnes différentes et mettre une couleur jaune (fond de cellule sur colonne A à V) si la colonne K est renseignée, et vert si M est renseignée.

lancer une macro automatiquement suivant saisie dans une cellule

loiclass

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

loiclass

XLDnaute Occasionnel

Discussions similaires