Lien entre deux cellules

D

Denis

Guest

• 31 Mai 2006

• #2

Bonjour David
et le Forum
Possible, mais quel et le rapport qui relie ton aaaA2 et ton A5 ?????
à +
Denis B)

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 31 Mai 2006

• #3

Bonjour David,Denis,
peut étre ça, voir fichier joint
Salut
Yves [file name=clas15.zip size=9954]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/clas15.zip[/file]

 

Pièces jointes

• clas15.zip

  9.7 KB · Affichages: 41

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 31 Mai 2006

• #4

Désolé David voici le bon fichier,

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 31 Mai 2006

• #5

Décidément? [file name=clas15_20060531163540.zip size=9497]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/clas15_20060531163540.zip[/file]

 

Pièces jointes

• clas15_20060531163540.zip

  9.3 KB · Affichages: 40

Vote positif 0 Vote négatif

D

david

Guest

• 31 Mai 2006

• #6

Bonjour à tous les 2 et merci de prendre un peu de temps pour m'aider. c'est cool!

Donc, j'ai testé ton fichier joint donc c'est exactement ça qu'il me faut.
Maintenant, il me falloir adapter ta macro à ma feuille.

MErci d'avance !!!
Salut
David

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 31 Mai 2006

• #7

Salut Claude
Feuil2, ta liste de A2 à A15 (par exemple
Feuil1, en A5, ton résultat

Alt+F11 pour passer en VBA
fenêtre Projet - VBA Project
Double-clic sur Feuil2
Fenêtre code
tu clique sur le menu (Général) et tu sélectionnes Worksheet

tu dois avoir une macro qui se crée :
Worksheet_SelectionChange
Sinon tu la crées en sélectionnant SelectionChange dans le 2me menu (à droite du précédent)

il te reste à rentrer le code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Err_SelectionChange
Dim Réf_Nom As String
Réf_Nom = 'A1:A15'

If Not Intersect(Target, Range(Réf_Nom)) Is Nothing Then
If Target.Columns.Count = 1 And Target.Rows.Count = 1 Then
Sheets('Feuil1').Range('A5') = Target
Else
MsgBox ('mauvaise sélection')
End If
End If

Sortie_SelectionChange:
Exit Sub
Err_SelectionChange:
MsgBox (Err.Number & ' - ' & Err.Description)
Resume Sortie_SelectionChange
End Sub

ça devrait fonctionner
A+

 

Vote positif 0 Vote négatif

D

david

Guest

• 31 Mai 2006

• #8

Re bonjour !

Bon, en fait, tellement que je suis nul, je n'arrive pas adapter a macro proposée sur mon type.
Donc, je joint le fichier 'essai' qui représente mon classeur. Donc, si quelqu'un peut y jeter u coup d'oeil et m'aider, ca serait gentil.

Merci d'avance à tt le monde.
David

 

Vote positif 0 Vote négatif

D

david

Guest

• 31 Mai 2006

• #9

Je suis bête, j'ai oublier de joindre le fichier!!!!

Le voici

David [file name=Essai_20060531171908.zip size=2072]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essai_20060531171908.zip[/file]

 

Pièces jointes

• Essai_20060531171908.zip

  2 KB · Affichages: 27

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 31 Mai 2006

• #10

Salut
essaies ça [file name=Essai_Mod.zip size=8717]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essai_Mod.zip[/file]

 

Pièces jointes

• Essai_Mod.zip

  8.5 KB · Affichages: 33

Vote positif 0 Vote négatif