J'ai deux plages, soient (A1:BC1) et (D21:BC21).
Si j'appliques un changement/ajout dans l'unes ou
plusieurs des cellules parmis c'est deux ranges
seulement, et bien je dois pouvoir connaitre la cellule
modifiee.
Exemple, si j'ajoutes JOJO dans la cellule G1, je dois
pouvoir extraire cette information pour faire le reste du
calcul.
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
michdenis
Bob,
Dans la feuille module où l'action se déroule, tu insères cette procédure :
'-------------------- Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Union(Range("A1:BC1"), Range("D21:BC21")))
If Not Rg Is Nothing Then For Each C In Rg 'Insère le code qui traitera la cellule ! MsgBox C.Address & " vient de changer de valeur" Next End If
Set Rg = Nothing End Sub '--------------------
Salutations!
"Bob Hallen" a écrit dans le message de news:2f0001c4c117$dabc7950$ Bonjour,
J'ai deux plages, soient (A1:BC1) et (D21:BC21). Si j'appliques un changement/ajout dans l'unes ou plusieurs des cellules parmis c'est deux ranges seulement, et bien je dois pouvoir connaitre la cellule modifiee.
Exemple, si j'ajoutes JOJO dans la cellule G1, je dois pouvoir extraire cette information pour faire le reste du calcul.
Comment puis-je obtenir cela? Merci!
Bob,
Dans la feuille module où l'action se déroule, tu insères cette procédure :
'--------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Union(Range("A1:BC1"), Range("D21:BC21")))
If Not Rg Is Nothing Then
For Each C In Rg
'Insère le code qui traitera la cellule !
MsgBox C.Address & " vient de changer de valeur"
Next
End If
Set Rg = Nothing
End Sub
'--------------------
Salutations!
"Bob Hallen" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2f0001c4c117$dabc7950$a601280a@phx.gbl...
Bonjour,
J'ai deux plages, soient (A1:BC1) et (D21:BC21).
Si j'appliques un changement/ajout dans l'unes ou
plusieurs des cellules parmis c'est deux ranges
seulement, et bien je dois pouvoir connaitre la cellule
modifiee.
Exemple, si j'ajoutes JOJO dans la cellule G1, je dois
pouvoir extraire cette information pour faire le reste du
calcul.
Dans la feuille module où l'action se déroule, tu insères cette procédure :
'-------------------- Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Union(Range("A1:BC1"), Range("D21:BC21")))
If Not Rg Is Nothing Then For Each C In Rg 'Insère le code qui traitera la cellule ! MsgBox C.Address & " vient de changer de valeur" Next End If
Set Rg = Nothing End Sub '--------------------
Salutations!
"Bob Hallen" a écrit dans le message de news:2f0001c4c117$dabc7950$ Bonjour,
J'ai deux plages, soient (A1:BC1) et (D21:BC21). Si j'appliques un changement/ajout dans l'unes ou plusieurs des cellules parmis c'est deux ranges seulement, et bien je dois pouvoir connaitre la cellule modifiee.
Exemple, si j'ajoutes JOJO dans la cellule G1, je dois pouvoir extraire cette information pour faire le reste du calcul.
