Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA - procédure événementielle

  • Initiateur de la discussion Initiateur de la discussion Hub
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Hub

XLDnaute Occasionnel
Bonjour à tous

Comment créer une procédure événementielle qui intégre la ligne de commande [Range("D6 : M10").Select] et donc ne fait appel à aucune macro ???

L'exemple est traité dans le fichier joint,

merci d'avance pour vos réponses,

@+
 

Pièces jointes

Re : VBA - procédure événementielle

Bonjour

pas sûr de tout comprendre, mais a priori dans la feuille de code de la feuille concernée:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If not Intersect(Target, Range("D3")) Is Nothing Then 
         Range("D6 : M10").Select
         'ou Range("C10:M10").Select ?
    End If
End Sub

A+
 
Re : VBA - procédure événementielle

Merci, ça correspond à ce que j'attendais.

Etant débutant en VBA, je ne comprends pas comment et quand utiliser [If Not Intersect] ou [If Intersect]
Existe il un support de cours spécifique à ce sujet ?

@+
 
Re : VBA - procédure événementielle

re,

je ne comprends pas comment et quand utiliser [If Not Intersect] ou [If Intersect]
ça dépend de ce qu'on veut faire:

If Intersect(Plage1, Plage2) Is Nothing then si l'intersection des 2 plages est vide alors
If Not Intersect(Plage1, Plage2) Is Nothing then si l'intersection des 2 plages n'est pas vide alors


Existe il un support de cours spécifique à ce sujet ?

sur un moteur de recherche en tapant excel vba intersect par exemple

et ce lien

[VBA] Utilisation de la méthode Intersect : Cours et astuces

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
349
Réponses
3
Affichages
213
Réponses
22
Affichages
520
wDog66
W
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…