Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel est-ce que c'est bon ? (au sujet de Worksheet_change)

est-ce que c'est bon ? (au sujet de Worksheet_change)

3 réponses
Avatar
Alfred WALLACE
j'ai un "modele" de feuille qui contiend du code.
=E0 l'ouverture de la feuille, j'initialise une variable NomFeuille avec
le nom de l'onglet concern=E9

est-ce que je peux =E9crire le code ci-dessous

Private Sub Worksheet_change(ByVal Target As Range)
Stop
' pour ne faire quelque chose que si c'est AD1 qui a =E9t=E9 modifi=E9
If Sheets(NomFeuille).Target.Address =3D Sheets(NomFeuille).Range("AD1")
Then
beep
End If

End Sub


je souhaite donc, pouvoir dupliquer la feuille, avec des noms
diff=E9rents par onglets.

Merci
Jos=E9
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Daniel
Bonjour.
Target.address.address renvoie un résultat "string" alors que
Sheets(NomFeuille).Range("AD1") renvoie un objet "range".
Ecris donc :
If Target.Address = "$AD$1" then
Cordialement.
Daniel
"Alfred WALLACE" a écrit dans le message de news:


j'ai un "modele" de feuille qui contiend du code.
à l'ouverture de la feuille, j'initialise une variable NomFeuille avec
le nom de l'onglet concerné

est-ce que je peux écrire le code ci-dessous

Private Sub Worksheet_change(ByVal Target As Range)
Stop
' pour ne faire quelque chose que si c'est AD1 qui a été modifié
If Sheets(NomFeuille).Target.Address = Sheets(NomFeuille).Range("AD1")
Then
beep
End If

End Sub


je souhaite donc, pouvoir dupliquer la feuille, avec des noms
différents par onglets.

Merci
José
Avatar
Alfred WALLACE
Merci

José

Bonjour.
Target.address.address renvoie un résultat "string" alors que
Sheets(NomFeuille).Range("AD1") renvoie un objet "range".
Ecris donc :
If Target.Address = "$AD$1" then
Cordialement.
Daniel
"Alfred WALLACE" a écrit dans le message de news:


j'ai un "modele" de feuille qui contiend du code.
à l'ouverture de la feuille, j'initialise une variable NomFeuille avec
le nom de l'onglet concerné

est-ce que je peux écrire le code ci-dessous

Private Sub Worksheet_change(ByVal Target As Range)
Stop
' pour ne faire quelque chose que si c'est AD1 qui a été modifié
If Sheets(NomFeuille).Target.Address = Sheets(NomFeuille).Range("AD1")
Then
beep
End If

End Sub


je souhaite donc, pouvoir dupliquer la feuille, avec des noms
différents par onglets.

Merci
José


Avatar
Daniel
FAUX !!!!!!!!!!!!!!
A la place de :
Sheets(NomFeuille).Range("AD1") renvoie un objet "range".
Lire :
Sheets(NomFeuille).Range("AD1") renvoie la valeur de AD1.
Daniel
"Daniel" a écrit dans le message de news:
%
Bonjour.
Target.address.address renvoie un résultat "string" alors que
Sheets(NomFeuille).Range("AD1") renvoie un objet "range".
Ecris donc :
If Target.Address = "$AD$1" then
Cordialement.
Daniel
"Alfred WALLACE" a écrit dans le message de news:


j'ai un "modele" de feuille qui contiend du code.
à l'ouverture de la feuille, j'initialise une variable NomFeuille avec
le nom de l'onglet concerné

est-ce que je peux écrire le code ci-dessous

Private Sub Worksheet_change(ByVal Target As Range)
Stop
' pour ne faire quelque chose que si c'est AD1 qui a été modifié
If Sheets(NomFeuille).Target.Address = Sheets(NomFeuille).Range("AD1")
Then
beep
End If

End Sub


je souhaite donc, pouvoir dupliquer la feuille, avec des noms
différents par onglets.

Merci
José