(multi) Range syntaxe ?

Bonjour,

Ici :

Citation:

---

https://docs.microsoft.com/fr-fr/off...ultiple-ranges

---

j'ai trouvé ça :

Citation:

---

Les plages nommées permettent à la propriété Range de travailler plus facilement sur plusieurs plages. L'exemple suivant fonctionne si les trois plages nommées se trouvent sur la même feuille.

---

Code:

---

1 2 3

Sub ClearNamed() Range("MyRange, YourRange, HisRange").ClearContents End Sub

---

J'ai donc adapté à mes besoins, comme ceci :

Code:

---

1 2 3 4 5 6 7

' If Not Intersect(Range("Plage_Saisies"), Target) Is Nothing Then If Not Intersect(Range("Plage_Saisies, Plage_Matricules"), Target) Is Nothing Then   Application.OnKey "%{RETURN}", "Inser_Comment" Else Application.OnKey "%{RETURN}", "" End If

---

et ça ne fonctionne pas ! Sans doute erreur d'inattention de ma part ?!

En vous remerciant par avance pour vos lumières,
Cordialement,
jp

Salut , il me semble que Application.OnKey sert a appliquer une procédure a l’événement de touche clavier précisé.

Exemple : lancer une macro quand on appuie sur ctrl + a

Par contre pour retour a la normal il faut juste laisser le champ procédure vide.

En suite il me semble également qu'on ne peut pas affecter n’importe quelle touche, Cf : https://docs.microsoft.com/fr-fr/off...lication.onkey

Que cherche tu à faire exactement ?

Bonjour,

Ma question concernait la syntaxe pour Intersect(Range) avec plusieurs plages distinctes

Cdt
jp

Re, désolé mais tu ne précise pas vraiment ton problème, tu dis seulement

Citation:

---

et ça ne fonctionne pas ! Sans doute erreur d'inattention de ma part ?!

---

Avec la fonction Union, essaye ca :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim UnionRange As Range   Set UnionRange = Union(Me.Range("Plage_Saisies"), Target)   If Not Intersect(UnionRange) Is Nothing Then   Application.OnKey "%{RETURN}", "Inser_Comment" Else Application.OnKey "%{RETURN}", "" End If

---

Désolé pour mon manque de clarté,

Citation:

---

Set UnionRange = Union(Me.Range("Plage_Saisies"), Target)

---

Oui, mais Plage_Saisies est 1 plage et quid de l'Union avec Plage_Matricules ?

L'idée étant que

Citation:

---

Application.OnKey "%{RETURN}", "Inser_Comment"

---

s'applique à l'une ou l'autre plage.

Cdt
jp

Pardon je me suis trompé :aie:

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim UnionRange As Range   Set UnionRange = Union(Me.Range("Plage_Saisies"), Me.Range("Plage_Matricules"))   If Not Intersect(UnionRange, Target) Is Nothing Then   Application.OnKey "%{RETURN}", "Inser_Comment" Else Application.OnKey "%{RETURN}", "" End If

---

C'est parfait ! Merci beaucoup !!

Cordialement,
jp