j'ai un classeur nommé "dossier",quand je clique dans ma cellule nom client,
j'ai creer un lien hypertexte avec un carnet d'adresse, je voudrais que
chaque fois que je clique sur un nom de ce carnet, ce nom se copie dans ma
feuille "dossier" à la place du nom client
avez vous une solution ??????
merci
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
Daniel
Bonjour. Mets le code suivant dans ta feuille "carnet d'adresse", en supposant les noms en colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Columns(1), Target) Is Nothing Then Exit Sub Sheets("Dossier").Range("A1") = Target.Value End Sub
La copie se fait dans la cellule A1. Cordialement. Daniel "tdm850" a écrit dans le message de news:
Bonjour,
j'ai un classeur nommé "dossier",quand je clique dans ma cellule nom client, j'ai creer un lien hypertexte avec un carnet d'adresse, je voudrais que chaque fois que je clique sur un nom de ce carnet, ce nom se copie dans ma feuille "dossier" à la place du nom client avez vous une solution ?????? merci
Bonjour.
Mets le code suivant dans ta feuille "carnet d'adresse", en supposant les
noms en colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Columns(1), Target) Is Nothing Then Exit Sub
Sheets("Dossier").Range("A1") = Target.Value
End Sub
La copie se fait dans la cellule A1.
Cordialement.
Daniel
"tdm850" <tdm850@discussions.microsoft.com> a écrit dans le message de news:
F2F0A090-F948-4069-8F0F-1CF106876CE3@microsoft.com...
Bonjour,
j'ai un classeur nommé "dossier",quand je clique dans ma cellule nom
client,
j'ai creer un lien hypertexte avec un carnet d'adresse, je voudrais que
chaque fois que je clique sur un nom de ce carnet, ce nom se copie dans ma
feuille "dossier" à la place du nom client
avez vous une solution ??????
merci
Bonjour. Mets le code suivant dans ta feuille "carnet d'adresse", en supposant les noms en colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Columns(1), Target) Is Nothing Then Exit Sub Sheets("Dossier").Range("A1") = Target.Value End Sub
La copie se fait dans la cellule A1. Cordialement. Daniel "tdm850" a écrit dans le message de news:
Bonjour,
j'ai un classeur nommé "dossier",quand je clique dans ma cellule nom client, j'ai creer un lien hypertexte avec un carnet d'adresse, je voudrais que chaque fois que je clique sur un nom de ce carnet, ce nom se copie dans ma feuille "dossier" à la place du nom client avez vous une solution ?????? merci
tdm850
Bonjour Daniel, je sais comment attribuer une macro à un bouton, mais je ne sais pas comment faire pour une feuille ! ! ! peux tu me l'expliquer stp merci
Bonjour. Mets le code suivant dans ta feuille "carnet d'adresse", en supposant les noms en colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Columns(1), Target) Is Nothing Then Exit Sub Sheets("Dossier").Range("A1") = Target.Value End Sub
La copie se fait dans la cellule A1. Cordialement. Daniel "tdm850" a écrit dans le message de news:
Bonjour,
j'ai un classeur nommé "dossier",quand je clique dans ma cellule nom client, j'ai creer un lien hypertexte avec un carnet d'adresse, je voudrais que chaque fois que je clique sur un nom de ce carnet, ce nom se copie dans ma feuille "dossier" à la place du nom client avez vous une solution ?????? merci
Bonjour Daniel,
je sais comment attribuer une macro à un bouton, mais je ne sais pas comment
faire pour une feuille ! ! !
peux tu me l'expliquer stp
merci
Bonjour.
Mets le code suivant dans ta feuille "carnet d'adresse", en supposant les
noms en colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Columns(1), Target) Is Nothing Then Exit Sub
Sheets("Dossier").Range("A1") = Target.Value
End Sub
La copie se fait dans la cellule A1.
Cordialement.
Daniel
"tdm850" <tdm850@discussions.microsoft.com> a écrit dans le message de news:
F2F0A090-F948-4069-8F0F-1CF106876CE3@microsoft.com...
Bonjour,
j'ai un classeur nommé "dossier",quand je clique dans ma cellule nom
client,
j'ai creer un lien hypertexte avec un carnet d'adresse, je voudrais que
chaque fois que je clique sur un nom de ce carnet, ce nom se copie dans ma
feuille "dossier" à la place du nom client
avez vous une solution ??????
merci
Bonjour Daniel, je sais comment attribuer une macro à un bouton, mais je ne sais pas comment faire pour une feuille ! ! ! peux tu me l'expliquer stp merci
Bonjour. Mets le code suivant dans ta feuille "carnet d'adresse", en supposant les noms en colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Columns(1), Target) Is Nothing Then Exit Sub Sheets("Dossier").Range("A1") = Target.Value End Sub
La copie se fait dans la cellule A1. Cordialement. Daniel "tdm850" a écrit dans le message de news:
Bonjour,
j'ai un classeur nommé "dossier",quand je clique dans ma cellule nom client, j'ai creer un lien hypertexte avec un carnet d'adresse, je voudrais que chaque fois que je clique sur un nom de ce carnet, ce nom se copie dans ma feuille "dossier" à la place du nom client avez vous une solution ?????? merci
G. L
Bonsoir, Pour lancer une macro avec un double clic dans une cellule d'une colonne :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set plage = Range("A30:A" & Range("A65536").End(xlUp).Row) ' A ADAPTER If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1 Then Call TA MACRO Cancel = True End If End Sub
Cordialement Gérard
"tdm850" a écrit dans le message de news:
Bonjour Daniel, je sais comment attribuer une macro à un bouton, mais je ne sais pas comment
faire pour une feuille ! ! ! peux tu me l'expliquer stp merci
Bonjour. Mets le code suivant dans ta feuille "carnet d'adresse", en supposant les
noms en colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Columns(1), Target) Is Nothing Then Exit Sub Sheets("Dossier").Range("A1") = Target.Value End Sub
La copie se fait dans la cellule A1. Cordialement. Daniel "tdm850" a écrit dans le message de news:
Bonjour,
j'ai un classeur nommé "dossier",quand je clique dans ma cellule nom client, j'ai creer un lien hypertexte avec un carnet d'adresse, je voudrais que
chaque fois que je clique sur un nom de ce carnet, ce nom se copie dans ma
feuille "dossier" à la place du nom client avez vous une solution ?????? merci
Bonsoir,
Pour lancer une macro avec un double clic dans une cellule d'une colonne :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Set plage = Range("A30:A" & Range("A65536").End(xlUp).Row) ' A ADAPTER
If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1 Then
Call TA MACRO
Cancel = True
End If
End Sub
Cordialement
Gérard
"tdm850" <tdm850@discussions.microsoft.com> a écrit dans le message de
news:F6837C1C-ED8A-499E-820E-1C7B83B75E9B@microsoft.com...
Bonjour Daniel,
je sais comment attribuer une macro à un bouton, mais je ne sais pas
comment
faire pour une feuille ! ! !
peux tu me l'expliquer stp
merci
Bonjour.
Mets le code suivant dans ta feuille "carnet d'adresse", en supposant
les
noms en colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Columns(1), Target) Is Nothing Then Exit Sub
Sheets("Dossier").Range("A1") = Target.Value
End Sub
La copie se fait dans la cellule A1.
Cordialement.
Daniel
"tdm850" <tdm850@discussions.microsoft.com> a écrit dans le message de
news:
Bonsoir, Pour lancer une macro avec un double clic dans une cellule d'une colonne :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set plage = Range("A30:A" & Range("A65536").End(xlUp).Row) ' A ADAPTER If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1 Then Call TA MACRO Cancel = True End If End Sub
Cordialement Gérard
"tdm850" a écrit dans le message de news:
Bonjour Daniel, je sais comment attribuer une macro à un bouton, mais je ne sais pas comment
faire pour une feuille ! ! ! peux tu me l'expliquer stp merci
Bonjour. Mets le code suivant dans ta feuille "carnet d'adresse", en supposant les
noms en colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Columns(1), Target) Is Nothing Then Exit Sub Sheets("Dossier").Range("A1") = Target.Value End Sub
La copie se fait dans la cellule A1. Cordialement. Daniel "tdm850" a écrit dans le message de news:
Bonjour,
j'ai un classeur nommé "dossier",quand je clique dans ma cellule nom client, j'ai creer un lien hypertexte avec un carnet d'adresse, je voudrais que
chaque fois que je clique sur un nom de ce carnet, ce nom se copie dans ma
feuille "dossier" à la place du nom client avez vous une solution ?????? merci
tdm850
Bonsoir Gerard je dois aller dans outils/macro/nouvelle macro ?????????????? comment l'associer à la feuille, j'ai quelques lacunes ! ! ! désolé et merci de ton aide
Bonsoir, Pour lancer une macro avec un double clic dans une cellule d'une colonne :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set plage = Range("A30:A" & Range("A65536").End(xlUp).Row) ' A ADAPTER If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1 Then Call TA MACRO Cancel = True End If End Sub
Cordialement Gérard
"tdm850" a écrit dans le message de news:
Bonjour Daniel, je sais comment attribuer une macro à un bouton, mais je ne sais pas comment
faire pour une feuille ! ! ! peux tu me l'expliquer stp merci
Bonjour. Mets le code suivant dans ta feuille "carnet d'adresse", en supposant les
noms en colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Columns(1), Target) Is Nothing Then Exit Sub Sheets("Dossier").Range("A1") = Target.Value End Sub
La copie se fait dans la cellule A1. Cordialement. Daniel "tdm850" a écrit dans le message de news:
Bonjour,
j'ai un classeur nommé "dossier",quand je clique dans ma cellule nom client, j'ai creer un lien hypertexte avec un carnet d'adresse, je voudrais que
chaque fois que je clique sur un nom de ce carnet, ce nom se copie dans ma
feuille "dossier" à la place du nom client avez vous une solution ?????? merci
Bonsoir Gerard
je dois aller dans outils/macro/nouvelle macro ??????????????
comment l'associer à la feuille, j'ai quelques lacunes ! ! !
désolé et merci de ton aide
Bonsoir,
Pour lancer une macro avec un double clic dans une cellule d'une colonne :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Set plage = Range("A30:A" & Range("A65536").End(xlUp).Row) ' A ADAPTER
If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1 Then
Call TA MACRO
Cancel = True
End If
End Sub
Cordialement
Gérard
"tdm850" <tdm850@discussions.microsoft.com> a écrit dans le message de
news:F6837C1C-ED8A-499E-820E-1C7B83B75E9B@microsoft.com...
Bonjour Daniel,
je sais comment attribuer une macro à un bouton, mais je ne sais pas
comment
faire pour une feuille ! ! !
peux tu me l'expliquer stp
merci
Bonjour.
Mets le code suivant dans ta feuille "carnet d'adresse", en supposant
les
noms en colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Columns(1), Target) Is Nothing Then Exit Sub
Sheets("Dossier").Range("A1") = Target.Value
End Sub
La copie se fait dans la cellule A1.
Cordialement.
Daniel
"tdm850" <tdm850@discussions.microsoft.com> a écrit dans le message de
news:
Bonsoir Gerard je dois aller dans outils/macro/nouvelle macro ?????????????? comment l'associer à la feuille, j'ai quelques lacunes ! ! ! désolé et merci de ton aide
Bonsoir, Pour lancer une macro avec un double clic dans une cellule d'une colonne :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set plage = Range("A30:A" & Range("A65536").End(xlUp).Row) ' A ADAPTER If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1 Then Call TA MACRO Cancel = True End If End Sub
Cordialement Gérard
"tdm850" a écrit dans le message de news:
Bonjour Daniel, je sais comment attribuer une macro à un bouton, mais je ne sais pas comment
faire pour une feuille ! ! ! peux tu me l'expliquer stp merci
Bonjour. Mets le code suivant dans ta feuille "carnet d'adresse", en supposant les
noms en colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Columns(1), Target) Is Nothing Then Exit Sub Sheets("Dossier").Range("A1") = Target.Value End Sub
La copie se fait dans la cellule A1. Cordialement. Daniel "tdm850" a écrit dans le message de news:
Bonjour,
j'ai un classeur nommé "dossier",quand je clique dans ma cellule nom client, j'ai creer un lien hypertexte avec un carnet d'adresse, je voudrais que
chaque fois que je clique sur un nom de ce carnet, ce nom se copie dans ma
feuille "dossier" à la place du nom client avez vous une solution ?????? merci
G. L
Bonsoir, Un moyen parmi ..... Faire clic droit sur l'onglet de la feuille concernée afin de visualiser le code et ouvrir VBA Coller dans la partie droite : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set plage = Range("A1:A" & Range("A65536").End(xlUp).Row) ' A ADAPTER If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1 Then ' Call TA MACRO ou pour essai : MsgBox (" La mise à jour depuis est terminée . ! ") Cancel = True End If End Sub
Cordialement
Gérard
"tdm850" a écrit dans le message de news:
Bonsoir Gerard je dois aller dans outils/macro/nouvelle macro ?????????????? comment l'associer à la feuille, j'ai quelques lacunes ! ! ! désolé et merci de ton aide
Bonsoir, Pour lancer une macro avec un double clic dans une cellule d'une colonne :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set plage = Range("A30:A" & Range("A65536").End(xlUp).Row) ' A ADAPTER If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1 Then
Call TA MACRO Cancel = True End If End Sub
Cordialement Gérard
"tdm850" a écrit dans le message de news:
Bonjour Daniel, je sais comment attribuer une macro à un bouton, mais je ne sais pas comment
faire pour une feuille ! ! ! peux tu me l'expliquer stp merci
Bonjour. Mets le code suivant dans ta feuille "carnet d'adresse", en supposant
les
noms en colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Columns(1), Target) Is Nothing Then Exit Sub Sheets("Dossier").Range("A1") = Target.Value End Sub
La copie se fait dans la cellule A1. Cordialement. Daniel "tdm850" a écrit dans le message de
news:
Bonjour,
j'ai un classeur nommé "dossier",quand je clique dans ma cellule nom
client, j'ai creer un lien hypertexte avec un carnet d'adresse, je voudrais
que
chaque fois que je clique sur un nom de ce carnet, ce nom se copie dans ma
feuille "dossier" à la place du nom client avez vous une solution ?????? merci
Bonsoir,
Un moyen parmi .....
Faire clic droit sur l'onglet de la feuille concernée afin de visualiser le
code et ouvrir VBA
Coller dans la partie droite :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Set plage = Range("A1:A" & Range("A65536").End(xlUp).Row) ' A ADAPTER
If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1 Then
' Call TA MACRO ou pour essai :
MsgBox (" La mise à jour depuis est terminée . ! ")
Cancel = True
End If
End Sub
Cordialement
Gérard
"tdm850" <tdm850@discussions.microsoft.com> a écrit dans le message de
news:A10A8379-C4FD-4CA3-A51B-9665D3969CF9@microsoft.com...
Bonsoir Gerard
je dois aller dans outils/macro/nouvelle macro ??????????????
comment l'associer à la feuille, j'ai quelques lacunes ! ! !
désolé et merci de ton aide
Bonsoir,
Pour lancer une macro avec un double clic dans une cellule d'une colonne
:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Set plage = Range("A30:A" & Range("A65536").End(xlUp).Row) ' A ADAPTER
If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1
Then
Call TA MACRO
Cancel = True
End If
End Sub
Cordialement
Gérard
"tdm850" <tdm850@discussions.microsoft.com> a écrit dans le message de
news:F6837C1C-ED8A-499E-820E-1C7B83B75E9B@microsoft.com...
Bonjour Daniel,
je sais comment attribuer une macro à un bouton, mais je ne sais pas
comment
faire pour une feuille ! ! !
peux tu me l'expliquer stp
merci
Bonjour.
Mets le code suivant dans ta feuille "carnet d'adresse", en
supposant
les
noms en colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Columns(1), Target) Is Nothing Then Exit Sub
Sheets("Dossier").Range("A1") = Target.Value
End Sub
La copie se fait dans la cellule A1.
Cordialement.
Daniel
"tdm850" <tdm850@discussions.microsoft.com> a écrit dans le message
de
Bonsoir, Un moyen parmi ..... Faire clic droit sur l'onglet de la feuille concernée afin de visualiser le code et ouvrir VBA Coller dans la partie droite : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set plage = Range("A1:A" & Range("A65536").End(xlUp).Row) ' A ADAPTER If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1 Then ' Call TA MACRO ou pour essai : MsgBox (" La mise à jour depuis est terminée . ! ") Cancel = True End If End Sub
Cordialement
Gérard
"tdm850" a écrit dans le message de news:
Bonsoir Gerard je dois aller dans outils/macro/nouvelle macro ?????????????? comment l'associer à la feuille, j'ai quelques lacunes ! ! ! désolé et merci de ton aide
Bonsoir, Pour lancer une macro avec un double clic dans une cellule d'une colonne :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set plage = Range("A30:A" & Range("A65536").End(xlUp).Row) ' A ADAPTER If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1 Then
Call TA MACRO Cancel = True End If End Sub
Cordialement Gérard
"tdm850" a écrit dans le message de news:
Bonjour Daniel, je sais comment attribuer une macro à un bouton, mais je ne sais pas comment
faire pour une feuille ! ! ! peux tu me l'expliquer stp merci
Bonjour. Mets le code suivant dans ta feuille "carnet d'adresse", en supposant
les
noms en colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Columns(1), Target) Is Nothing Then Exit Sub Sheets("Dossier").Range("A1") = Target.Value End Sub
La copie se fait dans la cellule A1. Cordialement. Daniel "tdm850" a écrit dans le message de
news:
Bonjour,
j'ai un classeur nommé "dossier",quand je clique dans ma cellule nom
client, j'ai creer un lien hypertexte avec un carnet d'adresse, je voudrais
que
chaque fois que je clique sur un nom de ce carnet, ce nom se copie dans ma
feuille "dossier" à la place du nom client avez vous une solution ?????? merci
