Clique cellule

[YANOU]

Bonjour à tous,

rien de mieux qu'un exemple :

Je voudrais que d'un clique sur la cellule A1, la cellule A2, de cette même feuille, me fasse apparaître une adresse postale.
Si je clique sur une autre cellule, B1, la même cellule A2 me fasse apparaître l'adresse postale en relation avec B1 et ainsi de suite.
Je choisis en faite des personnes et son adresse s'affiche toujours dans la même case pour pouvoir reventiler cette adresse sur plusieurs feuille (du même classeur).

Merci à tous pour votre aide.

 

[PascalXLD]

Re : Clique cellule

Bonjour

L'adresse est en mémoire où celà ?

Tu ne le veux que sur le clic ?
Et ensuite elle s'efface ??

 

[YANOU]

Re : Clique cellule

J'avais pensé à cela :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F15")) Is Nothing Then
If ActiveCell = Range("F15") Then
ActiveSheet.Range("F16") = " ASAP Immeuble Saturne, 4 place de Londres Continental square BP 16757 95 727 ROISSY CHARLES DE GAULE CEDEX Organisme N° 0851"
End If
If ActiveCell = Range("G15") Then
ActiveSheet.Range("F16") = "AIB VINÇOTTE INTERNATIONAL 5 Rue Georges Eastman 71100 CHALON SUR SAONE Organisme N° 0026"
End If

End Sub

D'une part ça ne fonctionne pas (je suis une truffe en programmation), de plus je ne sais pas comment imposer un retour à la ligne sur l'adresse.

Merci à tous

 

[YANOU]

Re : Clique cellule

Bonjour Pascal (on s'est croisé).
Quand je clique, l'adresse s'affiche et reste.
Si tu as une idée plus simple, je suis preneur.

Merci pour ton aide.

 

[PascalXLD]

Re : Clique cellule

RE

Oui mais ton adresse elle est où ??

 

[YANOU]

Re : Clique cellule

RE

je peux créer une nouvelle feuille (dans le même classeur) avec une adresse par cellule.

Merci

 

[PascalXLD]

Re : Clique cellule

Re

un petit exemple pour les cellules A1 et A2

Je ne sais pas si c'est cela que tu veux

 

[YANOU]

Re : Clique cellule

Juste une modification, je voudrais que l'adresse se mette toujours dans la cellule B1 (que l'on clique dans A1-A2-A3.....)

Merci pour ton aide.

 

[PascalXLD]

Re : Clique cellule

re

modifies la ligne

Range("B" & Target.Row) = Sheets("Feuil2").Range("A" & Target.Row)

Par

Range("B1") = Sheets("Feuil2").Range("A" & Target.Row)

 

[YANOU]

Re : Clique cellule

Un soucis.
Un onglet "questionnaire" avec un choix sur les cellules E17 E18.
Un onglet "Adresse" avec sur la cellule E17 une adresse X et sur la cellule E18 une adresse Y
L'affichage sous "questionnaire" dans la cellule F17 de l'adresse.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E17:E18")) Is Nothing Then
Range("F17") = Sheets("Adresse").Range("E" & Target.Row)
End If

End Sub

Merci pour ton aide

 

[PascalXLD]

Re : Clique cellule

RE

si tu as bien mis ton code dans la feuille "questionnaire" cela doit marcher

 

[YANOU]

Re : Clique cellule

Merci Pascal, tout fonctionne (je me suis trompé d'onglet, une vraie truffe....)

L'année dernière, nous avons fait la Bretagne en camping-car sur 15 jours, une merveille....

A+

 

[PascalXLD]

Re : Clique cellule

L'année dernière, nous avons fait la Bretagne en camping-car sur 15 jours, une merveille....

A+

Oui c'est beau la Bretagne