Je cherche à tester une modification du contenu de plusieurs cellules.
J'essaie d'écrire le code suivant, mais ça ne fonctionne pas !
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$D$4" Then GoTo 1
If Target.Address = "$D$60:$D$61" Then GoTo 2
If Target.Address = "$D$116" Then GoTo 3
Exit Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Nicolas B.
Salut,
Il te faudrait plutôt utiliser la procédure évènementielle Worksheet_Change.
A+ Nicolas B.
Bonjour,
Je cherche à tester une modification du contenu de plusieurs cellules. J'essaie d'écrire le code suivant, mais ça ne fonctionne pas !
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Address = "$D$4" Then GoTo 1 If Target.Address = "$D$60:$D$61" Then GoTo 2 If Target.Address = "$D$116" Then GoTo 3 Exit Sub
Qui peut m'aider ?
Coco
Salut,
Il te faudrait plutôt utiliser la procédure évènementielle Worksheet_Change.
A+
Nicolas B.
Bonjour,
Je cherche à tester une modification du contenu de plusieurs cellules.
J'essaie d'écrire le code suivant, mais ça ne fonctionne pas !
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$D$4" Then GoTo 1
If Target.Address = "$D$60:$D$61" Then GoTo 2
If Target.Address = "$D$116" Then GoTo 3
Exit Sub
Il te faudrait plutôt utiliser la procédure évènementielle Worksheet_Change.
A+ Nicolas B.
Bonjour,
Je cherche à tester une modification du contenu de plusieurs cellules. J'essaie d'écrire le code suivant, mais ça ne fonctionne pas !
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Address = "$D$4" Then GoTo 1 If Target.Address = "$D$60:$D$61" Then GoTo 2 If Target.Address = "$D$116" Then GoTo 3 Exit Sub
Qui peut m'aider ?
Coco
JB
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("D4"), Target) Is Nothing Then MsgBox "action1" End If
If Not Intersect(Range("F4:G4"), Target) Is Nothing Then MsgBox "action2" End If
End Sub
Si l'action est la même pour toutes les cellules:
If Not Intersect(Range("D4,F4:G4,D116"), Target) Is Nothing Then Msgbox "Action" End If
JB
Bonjour,
Je cherche à tester une modification du contenu de plusieurs cellules. J'essaie d'écrire le code suivant, mais ça ne fonctionne pas !
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Address = "$D$4" Then GoTo 1 If Target.Address = "$D$60:$D$61" Then GoTo 2 If Target.Address = "$D$116" Then GoTo 3 Exit Sub
Qui peut m'aider ?
Coco
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D4"), Target) Is Nothing Then
MsgBox "action1"
End If
If Not Intersect(Range("F4:G4"), Target) Is Nothing Then
MsgBox "action2"
End If
End Sub
Si l'action est la même pour toutes les cellules:
If Not Intersect(Range("D4,F4:G4,D116"), Target) Is Nothing Then
Msgbox "Action"
End If
JB
Bonjour,
Je cherche à tester une modification du contenu de plusieurs cellules.
J'essaie d'écrire le code suivant, mais ça ne fonctionne pas !
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$D$4" Then GoTo 1
If Target.Address = "$D$60:$D$61" Then GoTo 2
If Target.Address = "$D$116" Then GoTo 3
Exit Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("D4"), Target) Is Nothing Then MsgBox "action1" End If
If Not Intersect(Range("F4:G4"), Target) Is Nothing Then MsgBox "action2" End If
End Sub
Si l'action est la même pour toutes les cellules:
If Not Intersect(Range("D4,F4:G4,D116"), Target) Is Nothing Then Msgbox "Action" End If
JB
Bonjour,
Je cherche à tester une modification du contenu de plusieurs cellules. J'essaie d'écrire le code suivant, mais ça ne fonctionne pas !
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Address = "$D$4" Then GoTo 1 If Target.Address = "$D$60:$D$61" Then GoTo 2 If Target.Address = "$D$116" Then GoTo 3 Exit Sub
Qui peut m'aider ?
Coco
coco74
Excellent JB ! ! Ca fonctionne ! !
Merci et à bientôt.
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("D4"), Target) Is Nothing Then MsgBox "action1" End If
If Not Intersect(Range("F4:G4"), Target) Is Nothing Then MsgBox "action2" End If
End Sub
Si l'action est la même pour toutes les cellules:
If Not Intersect(Range("D4,F4:G4,D116"), Target) Is Nothing Then Msgbox "Action" End If
JB
Bonjour,
Je cherche à tester une modification du contenu de plusieurs cellules. J'essaie d'écrire le code suivant, mais ça ne fonctionne pas !
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Address = "$D$4" Then GoTo 1 If Target.Address = "$D$60:$D$61" Then GoTo 2 If Target.Address = "$D$116" Then GoTo 3 Exit Sub
Qui peut m'aider ?
Coco
Excellent JB ! !
Ca fonctionne ! !
Merci et à bientôt.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1154445042.308115.272990@p79g2000cwp.googlegroups.com...
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D4"), Target) Is Nothing Then
MsgBox "action1"
End If
If Not Intersect(Range("F4:G4"), Target) Is Nothing Then
MsgBox "action2"
End If
End Sub
Si l'action est la même pour toutes les cellules:
If Not Intersect(Range("D4,F4:G4,D116"), Target) Is Nothing Then
Msgbox "Action"
End If
JB
Bonjour,
Je cherche à tester une modification du contenu de plusieurs cellules.
J'essaie d'écrire le code suivant, mais ça ne fonctionne pas !
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$D$4" Then GoTo 1
If Target.Address = "$D$60:$D$61" Then GoTo 2
If Target.Address = "$D$116" Then GoTo 3
Exit Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("D4"), Target) Is Nothing Then MsgBox "action1" End If
If Not Intersect(Range("F4:G4"), Target) Is Nothing Then MsgBox "action2" End If
End Sub
Si l'action est la même pour toutes les cellules:
If Not Intersect(Range("D4,F4:G4,D116"), Target) Is Nothing Then Msgbox "Action" End If
JB
Bonjour,
Je cherche à tester une modification du contenu de plusieurs cellules. J'essaie d'écrire le code suivant, mais ça ne fonctionne pas !
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Address = "$D$4" Then GoTo 1 If Target.Address = "$D$60:$D$61" Then GoTo 2 If Target.Address = "$D$116" Then GoTo 3 Exit Sub
