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 appartient à une sélection ?

appartient à une sélection ?

4 réponses
Avatar
caroual
Bonjour,

Quelqu'un pourrait-il m'aider à traduire ceci :
J'ai défini une plage de cellule Set plage1=Range("a1:b10")
Je voudrais pouvoir dire :
Si ma sélection fait partie de plage1 then...

Merci
caroual2@wanadoo.fr
Signaler un problème avec ce contenu

4 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
garnote
Salut caroual,

Peut-être que :

Sub Suis_Je_Dedans()
Set plage1 = Range("a1:b10")
Set inter = Union(Selection, plage1)
If inter.Address = plage1.Address Then MsgBox "Contenu dans"
End Sub

Serge

"caroual" a écrit dans le message de news:
buua1k$g6e$
Bonjour,

Quelqu'un pourrait-il m'aider à traduire ceci :
J'ai défini une plage de cellule Set plage1=Range("a1:b10")
Je voudrais pouvoir dire :
Si ma sélection fait partie de plage1 then...

Merci



Avatar
garnote
Un peu ridicule de nommer «inter» l'union.

Sub Suis_Je_Dedans()
Set plage1 = Range("a1:b10")
Set réunion = Union(Selection, plage1)
If réunion.Address = plage1.Address Then
MsgBox "La sélection est contenue dans la plage1"
Else
MsgBox "La sélection n'est pas contenue dans la plage1"
End If
End Sub

Serge

"garnote" a écrit dans le message de news:
4cyQb.6839$
Salut caroual,

Peut-être que :

Sub Suis_Je_Dedans()
Set plage1 = Range("a1:b10")
Set inter = Union(Selection, plage1)
If inter.Address = plage1.Address Then MsgBox "Contenu dans"
End Sub

Serge

"caroual" a écrit dans le message de news:
buua1k$g6e$
Bonjour,

Quelqu'un pourrait-il m'aider à traduire ceci :
J'ai défini une plage de cellule Set plage1=Range("a1:b10")
Je voudrais pouvoir dire :
Si ma sélection fait partie de plage1 then...

Merci







Avatar
Daniel.M
Bonjour,

If Not InterSect(Plage1,Selection) Is Nothing Then
Msgbox "Ça se recoupe!"
Else
Msgbox "À côté de la track"
End If

Salutations,

Daniel M.

"caroual" wrote in message
news:buua1k$g6e$
Bonjour,

Quelqu'un pourrait-il m'aider à traduire ceci :
J'ai défini une plage de cellule Set plage1=Range("a1:b10")
Je voudrais pouvoir dire :
Si ma sélection fait partie de plage1 then...

Merci



Avatar
caroual
Bonjour,

If Not InterSect(Plage1,Selection) Is Nothing Then
Msgbox "Ça se recoupe!"
Else
Msgbox "À côté de la track"
End If

Salutations,

Daniel M.

"caroual" wrote in message
news:buua1k$g6e$

Bonjour,

Quelqu'un pourrait-il m'aider à traduire ceci :
J'ai défini une plage de cellule Set plage1=Range("a1:b10")
Je voudrais pouvoir dire :
Si ma sélection fait partie de plage1 then...

Merci





Merci cette solution est top.