VBA Excel... sub Worksheet_change

Résolu

gyom -
nizzoo - 22 sept. 2016 à 21:47

Bonjour,
dans Excel, j'aimerais écrire une macro si et seulement si une cellule bien définie change.
pb : je ne connais que la procédure 'Private Sub Worksheet_Change(ByVal Target As range)' et celle-ci se lance quelle que soit la cellule de l'onglet qui est changée.

qqn connaît-il une procédure qui me permettre d'écrire un truc du genre :
'Private Sub range("A1")_Change(ByVal Target As range)' ???

merci beaucoup

A voir également:

Worksheet_change vba
Excel compter cellule couleur sans vba - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA
Vba range avec variable ✓ - Forum VB / VBA

4 réponses

Réponse 1 / 4

Mytå Messages postés 2973 Date d'inscription Statut Contributeur Dernière intervention 953

Salut le forum

Private Sub Worksheet_Change(ByVal Target As Range) 
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then 
MsgBox "Click on " & Target.Address 
End If 
End Sub

Un petit lien utile : Utilisation de la méthode Intesect

Mytå
Quelle prétention de prétendre que l'informatique est récente
Adam et Eve avaient déjà un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)]

Réponse 2 / 4

gyom

TOPISSIME !!!
merci bcp

Réponse 3 / 4

gyom

Mytå ,
en fait, j'ai encore un petit souci !!!
ok, la macro s'active bien quand je clique en cellule A1 et uniquement en cellule A1 grâce à cette fameuse méthode qui permet l'intersection...
Par contre, j'aimerais qu'elle ne s'active QUE SI je fais un changement de valeur en cellule A1.

Pour illuster un peu ma demande, j'ai une cellule qui sert de choix pour l'utilisateur.
soit il opère un changement et donc, derrière, j'ai quelques préparations
soit il clique dans la cellule mais sans opérer de changement et là, j'aimerais que la macro ne se lance pas !
sais-tu comment je pourrais faire ?

merci

Mytå Messages postés 2973 Date d'inscription Statut Contributeur Dernière intervention 953

re le forum

C'est la fonction du

Private Sub Worksheet_Change(ByVal Target As Range)

Contrairement au

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Le premier code pour un changement de valeur de la cellule, et
le deuxième pour le changement de selection de cellule.

Mytå

Réponse 4 / 4

gyom

ah.... c'est BON maintenant.
merci beaucoup.
ce coup-ci, c'est vraiment résolu ;-)

nizzoo

intersect !! very useful function

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires