Discussion :

[jpma75]

Bonjour,

Ici :

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

j'ai trouvé ça :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ChristianBosch]

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 ?

[jpma75]

Bonjour,

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

Cdt
jp

[ChristianBosch]

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

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

Avec la fonction Union, essaye ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jpma75]

Désolé pour mon manque de clarté,

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

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

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

Cdt
jp

[ChristianBosch]

Pardon je me suis trompé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jpma75]

C'est parfait ! Merci beaucoup !!

Cordialement,
jp