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 interception d'uen cellule dans une plage

interception d'uen cellule dans une plage

7 réponses
Avatar
Gerard
Bonjour
comment intercepter une cellule de la plage J2:J8 pour qu'elle prenne la
valeur de la cellule selectionnée

merci
Signaler un problème avec ce contenu

7 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
SL
Bonjour
que veux tu dire par "intercepter une cellule" ?

Stéphane

"Gerard" a écrit dans le message de news:
4358152d$0$17245$
Bonjour
comment intercepter une cellule de la plage J2:J8 pour qu'elle prenne la
valeur de la cellule selectionnée

merci



Avatar
Gerard
salut
une plage de cellule est definie et je veux qu'une action se fasse
uniquement si je clic sur l'une des cellule de cette plage
merci
"SL" a écrit dans le message de news:

Bonjour
que veux tu dire par "intercepter une cellule" ?

Stéphane

"Gerard" a écrit dans le message de news:
4358152d$0$17245$
Bonjour
comment intercepter une cellule de la plage J2:J8 pour qu'elle prenne la
valeur de la cellule selectionnée

merci







Avatar
SL
Bonjour

Voici un exemple à mettre dans le code de la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then MsgBox ("bonjour")
End Sub

affichera une message "Bonjour" si tu double-cliques dans la plage A1:A10

Stéphane


"Gerard" a écrit dans le message de news:
4358d091$0$997$
salut
une plage de cellule est definie et je veux qu'une action se fasse
uniquement si je clic sur l'une des cellule de cette plage
merci
"SL" a écrit dans le message de news:

Bonjour
que veux tu dire par "intercepter une cellule" ?

Stéphane

"Gerard" a écrit dans le message de news:
4358152d$0$17245$
Bonjour
comment intercepter une cellule de la plage J2:J8 pour qu'elle prenne la
valeur de la cellule selectionnée

merci











Avatar
ChrisV
"Gerard" a écrit dans le message de news:
4358d091$0$997$
salut
une plage de cellule est definie et je veux qu'une action se fasse
uniquement si je clic sur l'une des cellule de cette plage
merci
"SL" a écrit dans le message de news:

Bonjour
que veux tu dire par "intercepter une cellule" ?

Stéphane

"Gerard" a écrit dans le message de news:
4358152d$0$17245$
Bonjour
comment intercepter une cellule de la plage J2:J8 pour qu'elle prenne la
valeur de la cellule selectionnée

merci











Avatar
jb
On vérifie si la saisie a eu lieu dans le champ nommé ChampSaisie:

Private Sub Worksheet_Change(ByVal Target As Range)
If EstInclusDans(Range(Target.Address), Range("ChampSaisie")) Then
MsgBox "coucou"
End If
End Sub

Function EstInclusDans(champ1 As Range, Champ2 As Range) As Boolean
Set temp = Intersect(champ1, Champ2)
If temp Is Nothing Then
EstInclusDans = False
Else
EstInclusDans = True
End If
End Function

Cordialement JB
Avatar
ChrisV
Bonjour Gérard,

Avec la plage de cellules nommée ici "zaza"
Dans la feuille de code de l'onglet concerné:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zaza As Name
If Not Intersect(ActiveCell, Range("zaza")) Is Nothing Then _
MsgBox "La cellule active appartient à la zone nommée zaza"
'à remplacer par ton code
End Sub


ChrisV


"Gerard" a écrit dans le message de news:
4358d091$0$997$
salut
une plage de cellule est definie et je veux qu'une action se fasse
uniquement si je clic sur l'une des cellule de cette plage
merci
"SL" a écrit dans le message de news:

Bonjour
que veux tu dire par "intercepter une cellule" ?

Stéphane

"Gerard" a écrit dans le message de news:
4358152d$0$17245$
Bonjour
comment intercepter une cellule de la plage J2:J8 pour qu'elle prenne la
valeur de la cellule selectionnée

merci











Avatar
Gerard
salut
et merci pour ton aide
je m'etais certainement mal expliqué mais j'ai adapte et cela fait
exactement ce que je voulais merci encore
voila si ca peut aider

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("J1:J5")) Is Nothing Then
ActiveCell.Copy
Exit Sub
End If
If Not Intersect(Target, Range("B6:F22")) Is Nothing Then
ActiveCell.PasteSpecial xlPasteAll
Application.CutCopyMode = False
End If

End Sub

"SL" a écrit dans le message de news:

Bonjour

Voici un exemple à mettre dans le code de la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then MsgBox
("bonjour")
End Sub

affichera une message "Bonjour" si tu double-cliques dans la plage A1:A10

Stéphane


"Gerard" a écrit dans le message de news:
4358d091$0$997$
salut
une plage de cellule est definie et je veux qu'une action se fasse
uniquement si je clic sur l'une des cellule de cette plage
merci
"SL" a écrit dans le message de news:

Bonjour
que veux tu dire par "intercepter une cellule" ?

Stéphane

"Gerard" a écrit dans le message de news:
4358152d$0$17245$
Bonjour
comment intercepter une cellule de la plage J2:J8 pour qu'elle prenne
la valeur de la cellule selectionnée

merci