bonjour a tous
j'ai 1 tableau d'une cinquantaine de cellule
est il possible que lorsque l'on clic dans 1 des cellules du tableau
le contenu (1 mot) de cette cellule
s'affiche dans 1 cellule ;toujours la meme ;qui est hors du tableau
merci de votre aide
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
Jacky
Bonjour,
Ceci à Coller dans le module de la feuille. Le tableau nommé "Tableau" ou adapté la plage ([b2:l30] dans l'exemple) '----------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [tableau]) Is Nothing Then [a1] = Target.Value 'OU 'If Not Intersect(Target, [b2:l30]) Is Nothing Then [a1] = Target.Value End Sub '------------------- voir ici http://www.cijoint.fr/cjlink.php?file=cj200904/cijR2dOc5w.xls -- Salutations JJ
a écrit dans le message de news:
bonjour a tous j'ai 1 tableau d'une cinquantaine de cellule est il possible que lorsque l'on clic dans 1 des cellules du tableau le contenu (1 mot) de cette cellule s'affiche dans 1 cellule ;toujours la meme ;qui est hors du tableau merci de votre aide
Bonjour,
Ceci à Coller dans le module de la feuille.
Le tableau nommé "Tableau" ou adapté la plage ([b2:l30] dans l'exemple)
'-----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [tableau]) Is Nothing Then [a1] = Target.Value
'OU
'If Not Intersect(Target, [b2:l30]) Is Nothing Then [a1] = Target.Value
End Sub
'-------------------
voir ici
http://www.cijoint.fr/cjlink.php?file=cj200904/cijR2dOc5w.xls
--
Salutations
JJ
<srogeau@free.fr> a écrit dans le message de news:
72f2d128-9d32-4a1a-a051-ba21bf88d200@s20g2000vbp.googlegroups.com...
bonjour a tous
j'ai 1 tableau d'une cinquantaine de cellule
est il possible que lorsque l'on clic dans 1 des cellules du tableau
le contenu (1 mot) de cette cellule
s'affiche dans 1 cellule ;toujours la meme ;qui est hors du tableau
merci de votre aide
Ceci à Coller dans le module de la feuille. Le tableau nommé "Tableau" ou adapté la plage ([b2:l30] dans l'exemple) '----------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [tableau]) Is Nothing Then [a1] = Target.Value 'OU 'If Not Intersect(Target, [b2:l30]) Is Nothing Then [a1] = Target.Value End Sub '------------------- voir ici http://www.cijoint.fr/cjlink.php?file=cj200904/cijR2dOc5w.xls -- Salutations JJ
a écrit dans le message de news:
bonjour a tous j'ai 1 tableau d'une cinquantaine de cellule est il possible que lorsque l'on clic dans 1 des cellules du tableau le contenu (1 mot) de cette cellule s'affiche dans 1 cellule ;toujours la meme ;qui est hors du tableau merci de votre aide
FFO
Salut à toi
Dans le VBA de la feuille (Alt+F11)
Mets ce code :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address <> Range("A1").Address Then Range("A1") = Target End If End Sub
Résultat aprés double clique dans une cellule du tableau en A1
Si tu souhaites ce résultat dans une autre cellule modifies les lignes :
If Target.Address <> Range("A1").Address Then Range("A1") = Target
A1 par la cellule choisie
Fais des essais et dis moi !!!!!
Salut à toi
Dans le VBA de la feuille (Alt+F11)
Mets ce code :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address <> Range("A1").Address Then
Range("A1") = Target
End If
End Sub
Résultat aprés double clique dans une cellule du tableau en A1
Si tu souhaites ce résultat dans une autre cellule modifies les lignes :
If Target.Address <> Range("A1").Address Then
Range("A1") = Target
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address <> Range("A1").Address Then Range("A1") = Target End If End Sub
Résultat aprés double clique dans une cellule du tableau en A1
Si tu souhaites ce résultat dans une autre cellule modifies les lignes :
If Target.Address <> Range("A1").Address Then Range("A1") = Target
A1 par la cellule choisie
Fais des essais et dis moi !!!!!
srogeau
On 23 avr, 16:05, "Jacky" wrote:
Bonjour,
Ceci à Coller dans le module de la feuille. Le tableau nommé "Tableau" ou adapté la plage ([b2:l30] dans l'exe mple) '----------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [tableau]) Is Nothing Then [a1] = Target.Value 'OU 'If Not Intersect(Target, [b2:l30]) Is Nothing Then [a1] = Target.Value End Sub '------------------- voir icihttp://www.cijoint.fr/cjlink.php?file=cj200904/cijR2dOc5w.xls -- Salutations JJ
a écrit dans le message de news:
> bonjour a tous > j'ai 1 tableau d'une cinquantaine de cellule > est il possible que lorsque l'on clic dans 1 des cellules du tableau > le contenu (1 mot) de cette cellule > s'affiche dans 1 cellule ;toujours la meme ;qui est hors du tableau > merci de votre aide
bonsoir a tous les deux merci pour vos reponses j'aurai voulu tester les deux propositions celle de jacky cela fonctionne par contre "ffo" cette partie "Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean) " reste surlignee en rouge je pense un espace ,ou parenthese pourriez vous voir cela merci
On 23 avr, 16:05, "Jacky" <Dup...@marcel.fr> wrote:
Bonjour,
Ceci à Coller dans le module de la feuille.
Le tableau nommé "Tableau" ou adapté la plage ([b2:l30] dans l'exe mple)
'-----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [tableau]) Is Nothing Then [a1] = Target.Value
'OU
'If Not Intersect(Target, [b2:l30]) Is Nothing Then [a1] = Target.Value
End Sub
'-------------------
voir icihttp://www.cijoint.fr/cjlink.php?file=cj200904/cijR2dOc5w.xls
--
Salutations
JJ
<srog...@free.fr> a écrit dans le message de news:
72f2d128-9d32-4a1a-a051-ba21bf88d...@s20g2000vbp.googlegroups.com...
> bonjour a tous
> j'ai 1 tableau d'une cinquantaine de cellule
> est il possible que lorsque l'on clic dans 1 des cellules du tableau
> le contenu (1 mot) de cette cellule
> s'affiche dans 1 cellule ;toujours la meme ;qui est hors du tableau
> merci de votre aide
bonsoir a tous les deux
merci pour vos reponses
j'aurai voulu tester les deux propositions
celle de jacky cela fonctionne
par contre "ffo" cette partie "Private Sub Worksheet_BeforeDoubleClick
(ByVal Target As Range, Cancel As
Boolean) " reste surlignee en rouge je pense un espace ,ou parenthese
pourriez vous voir cela
merci
Ceci à Coller dans le module de la feuille. Le tableau nommé "Tableau" ou adapté la plage ([b2:l30] dans l'exe mple) '----------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [tableau]) Is Nothing Then [a1] = Target.Value 'OU 'If Not Intersect(Target, [b2:l30]) Is Nothing Then [a1] = Target.Value End Sub '------------------- voir icihttp://www.cijoint.fr/cjlink.php?file=cj200904/cijR2dOc5w.xls -- Salutations JJ
a écrit dans le message de news:
> bonjour a tous > j'ai 1 tableau d'une cinquantaine de cellule > est il possible que lorsque l'on clic dans 1 des cellules du tableau > le contenu (1 mot) de cette cellule > s'affiche dans 1 cellule ;toujours la meme ;qui est hors du tableau > merci de votre aide
bonsoir a tous les deux merci pour vos reponses j'aurai voulu tester les deux propositions celle de jacky cela fonctionne par contre "ffo" cette partie "Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean) " reste surlignee en rouge je pense un espace ,ou parenthese pourriez vous voir cela merci
srogeau
On 23 avr, 16:05, "Jacky" wrote:
Bonjour,
Ceci à Coller dans le module de la feuille. Le tableau nommé "Tableau" ou adapté la plage ([b2:l30] dans l'exe mple) '----------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [tableau]) Is Nothing Then [a1] = Target.Value 'OU 'If Not Intersect(Target, [b2:l30]) Is Nothing Then [a1] = Target.Value End Sub '------------------- voir icihttp://www.cijoint.fr/cjlink.php?file=cj200904/cijR2dOc5w.xls -- Salutations JJ
a écrit dans le message de news:
> bonjour a tous > j'ai 1 tableau d'une cinquantaine de cellule > est il possible que lorsque l'on clic dans 1 des cellules du tableau > le contenu (1 mot) de cette cellule > s'affiche dans 1 cellule ;toujours la meme ;qui est hors du tableau > merci de votre aide
excuse moi "ffo" cela fonctionne tres bien egalement c'est moi qui ai fait une erreur merci a tous les deux
On 23 avr, 16:05, "Jacky" <Dup...@marcel.fr> wrote:
Bonjour,
Ceci à Coller dans le module de la feuille.
Le tableau nommé "Tableau" ou adapté la plage ([b2:l30] dans l'exe mple)
'-----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [tableau]) Is Nothing Then [a1] = Target.Value
'OU
'If Not Intersect(Target, [b2:l30]) Is Nothing Then [a1] = Target.Value
End Sub
'-------------------
voir icihttp://www.cijoint.fr/cjlink.php?file=cj200904/cijR2dOc5w.xls
--
Salutations
JJ
<srog...@free.fr> a écrit dans le message de news:
72f2d128-9d32-4a1a-a051-ba21bf88d...@s20g2000vbp.googlegroups.com...
> bonjour a tous
> j'ai 1 tableau d'une cinquantaine de cellule
> est il possible que lorsque l'on clic dans 1 des cellules du tableau
> le contenu (1 mot) de cette cellule
> s'affiche dans 1 cellule ;toujours la meme ;qui est hors du tableau
> merci de votre aide
excuse moi "ffo"
cela fonctionne tres bien egalement
c'est moi qui ai fait une erreur
merci a tous les deux
Ceci à Coller dans le module de la feuille. Le tableau nommé "Tableau" ou adapté la plage ([b2:l30] dans l'exe mple) '----------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [tableau]) Is Nothing Then [a1] = Target.Value 'OU 'If Not Intersect(Target, [b2:l30]) Is Nothing Then [a1] = Target.Value End Sub '------------------- voir icihttp://www.cijoint.fr/cjlink.php?file=cj200904/cijR2dOc5w.xls -- Salutations JJ
a écrit dans le message de news:
> bonjour a tous > j'ai 1 tableau d'une cinquantaine de cellule > est il possible que lorsque l'on clic dans 1 des cellules du tableau > le contenu (1 mot) de cette cellule > s'affiche dans 1 cellule ;toujours la meme ;qui est hors du tableau > merci de votre aide
excuse moi "ffo" cela fonctionne tres bien egalement c'est moi qui ai fait une erreur merci a tous les deux