Bonjour,
je cherche à créer une base de donne ( nom et adresse client), et que quand
je clique sur une cellule d'une feuille excel, il m'ouvre cette base de
donnee, pour que je n'ai plus qu'a cliquer sur un nom de client pour qu'il me
l'affiche dans la cellule
avez vous une solution svp
par avance 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. En supposant que ta base de données soit sur la feuille "Feuil1 et que les noms à sélectionner soient en A1:A100. En supposant que le clic initial soit en feuille "Feuil2" regarde le code suivant :
Dans un module : Public var As String
Dans le code de "Feuil1" : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Range("A1:A100"), Target) Is Nothing Then Exit Sub var = Target.Value Sheets("Feuil2").Activate ActiveCell.Value = var End Sub
Dans le code de "Feuil2" : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheets("Feuil1").Activate Sheets("Feuil1").Range("B1").Select End Sub
Note que les évènements se déclenchent n'importe où dans "Feuil2". Il y lieu sans doute lieu de restreindre.
Cordialement. Daniel
"tdm850" a écrit dans le message de news:
Bonjour, je cherche à créer une base de donne ( nom et adresse client), et que quand je clique sur une cellule d'une feuille excel, il m'ouvre cette base de donnee, pour que je n'ai plus qu'a cliquer sur un nom de client pour qu'il me l'affiche dans la cellule avez vous une solution svp par avance merci ! ! ! ! !
Bonjour.
En supposant que ta base de données soit sur la feuille "Feuil1 et que les
noms à sélectionner soient en A1:A100.
En supposant que le clic initial soit en feuille "Feuil2" regarde le code
suivant :
Dans un module :
Public var As String
Dans le code de "Feuil1" :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("A1:A100"), Target) Is Nothing Then Exit Sub
var = Target.Value
Sheets("Feuil2").Activate
ActiveCell.Value = var
End Sub
Dans le code de "Feuil2" :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Feuil1").Activate
Sheets("Feuil1").Range("B1").Select
End Sub
Note que les évènements se déclenchent n'importe où dans "Feuil2". Il y lieu
sans doute lieu de restreindre.
Cordialement.
Daniel
"tdm850" <tdm850@discussions.microsoft.com> a écrit dans le message de news:
BA6A470D-8E03-45E2-AAC1-7676EDD2535E@microsoft.com...
Bonjour,
je cherche à créer une base de donne ( nom et adresse client), et que
quand
je clique sur une cellule d'une feuille excel, il m'ouvre cette base de
donnee, pour que je n'ai plus qu'a cliquer sur un nom de client pour qu'il
me
l'affiche dans la cellule
avez vous une solution svp
par avance merci ! ! ! ! !
Bonjour. En supposant que ta base de données soit sur la feuille "Feuil1 et que les noms à sélectionner soient en A1:A100. En supposant que le clic initial soit en feuille "Feuil2" regarde le code suivant :
Dans un module : Public var As String
Dans le code de "Feuil1" : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Range("A1:A100"), Target) Is Nothing Then Exit Sub var = Target.Value Sheets("Feuil2").Activate ActiveCell.Value = var End Sub
Dans le code de "Feuil2" : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheets("Feuil1").Activate Sheets("Feuil1").Range("B1").Select End Sub
Note que les évènements se déclenchent n'importe où dans "Feuil2". Il y lieu sans doute lieu de restreindre.
Cordialement. Daniel
"tdm850" a écrit dans le message de news:
Bonjour, je cherche à créer une base de donne ( nom et adresse client), et que quand je clique sur une cellule d'une feuille excel, il m'ouvre cette base de donnee, pour que je n'ai plus qu'a cliquer sur un nom de client pour qu'il me l'affiche dans la cellule avez vous une solution svp par avance merci ! ! ! ! !
