XL 2010 Macro sur valeur dans une colonne

[Michel C]

Bonjour,

J'ai une macro qui démarre lorsqu'il y a un changement dans la colonne C :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c:c")) Is Nothing Then
bla..bla..bla
end if
end sub

Ma question est la suivante :
J'essaie de refaire la même chose pour une 2e colonne (dans le même onglet), soit la colonne J.

Que dois-je modifier dans les lignes ?
J'ai essayé de réécrire les mêmes lignes ci-haut mais j'obtiens un message d'erreur.

Merci de prendre le temps de me répondre,
Michel

 

[mécano41]

Bonjour,

Si c'est dans la même feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
  MsgBox "Modif en colonne C"
ElseIf Not Intersect(Target, Range("J:J")) Is Nothing Then
  MsgBox "Modif en colonne J"
End If
End Sub

 

[job75]

Bonjour Michel C, mécano41,

Une modif peut porter sur les 2 colonnes C et J (sélection multiple) donc utiliser :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C:C,J:J]) Is Nothing Then
  MsgBox "Modif en colonnes C ou J"
End If
End Sub

ou si l'on veut étudier chaque colonne séparément :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C:C]) Is Nothing Then
  MsgBox "Modif en colonne C"
End If
If Not Intersect(Target, [J:J]) Is Nothing Then
  MsgBox "Modif en colonne J"
End If
End Sub

A+

 

[Michel C]

Merci beaucoup de la rapidité de votre réponse. J'apprécie.