Discussion :

[NEC14]

Bonjour à tous,

Dans un fichier Excel, j'ai plusieurs feuilles de calcul. Les onglets de ces feuilles sont nommés comme suit : SECT 1 - VILLE, SECT 2 - VILLE, etc.
Une autre feuille est nommée "Fiche".

Dans cette dernière, je dois rapatrier des données se trouvant dans une des autres feuilles.

Par exemple : Prenons la feuille "SECT 1 - VILLE". Si je double-clique dans la cellule A4 de cette feuille, alors les données de cette cellule doivent être copiées dans la cellule S2 de la feuille "Fiche". Les données de la cellule B4 dans la cellule A1, les données de la cellule C4 dans la cellule A3 et le nom de l'onglet de la feuille dans la cellule S4;

J'espère avoir été clair dans mes explications. Cela fait plusieurs jours que j'essaie désespérement de réaliser le code mais sans succès.

Merci par avance pour l'aide que vous pourrez m'apporter.

Cordialement

René

[patricktoulon]

Bonjour nec

dans le module thisworkbook met ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    MsgBox Target.Address
    Select Case Target.Address
    Case "$a$4"    'vers (s2)
        Sheets("fiche").Range("S4") = ActiveSheet.Range("a4")
    Case "$B$4"    'vers (a1)
        Sheets("fiche").Range("a1") = ActiveSheet.Range("b4")
    Case "$C$4"    ' vers (a3)
        Sheets("fiche").Range("a3") = ActiveSheet.Range("c4")
    End Select
    'le nom de l'onglet dans s4
    Sheets("fiche").Range("s4") = ActiveSheet.Name
End Sub

au plaisir

[NEC14]

Merci beaucoup Patrick,

Le code que tu m'as donné fonctionne uniquement pour la ligne 4.

Mes données se trouvent de la ligne 4 à 108 et des colonnes A à C. De plus, j'aurai souhaité que toutes les données de la même ligne soit copiées lors d'un seul double-clic, hors dans le code je suis obligé de cliquer sur chacune des cellules.

Merci toutefois pour ta proposition.

René

Bonjour à tous,

Je vous mets une partie de mon fichier pour une meilleure compréhension de mon problème.

Je ne peux pas utiliser la formule Recherchev car j'ai une quinzaine de feuille du même type que SECT 1.

Merci par avance pour l'aide que vous pourrez m'apporter.

[nibledispo]

Bonjour,

Ce que tu demandes est totalement incompréhensible.
PatrickToulon a parfaitement répondu à ta question initiale telle que formulée.

De plus, sur le fichier joint tu reformules les choses de manière identique.

Sur le fichier joint mets un exemple concret de ce qui doit apparaitre dans fiche quand tu cliques sur une cellule donnée. Ce sera clair pour tout le monde.

Cordialement.

[NEC14]

Bonjour,

Le code que m'a donné Patrick ne fonctionne que pour les cellules A4, B4 et C4.
Pour les autres lignes, cela ne fonctionne pas, sauf erreur de ma part. Mon tableau comprend plus de 100 lignes et je dois pouvoir double cliquer sur les cellules de A4 à A109.

De plus, je souhaite ne cliquer qu'une seule fois en début de ligne pour que la copie se fasse.

Par exemple : Je double-clic en A10, alors B10 et C10 ainsi que A10 sont copiées.

J'ai mis le code dans mon fichier joint, essaies et tu rendra compte de ce qui se passe.

Le but est de créer une fiche qui reprend le nom de l'établissement, l'adresse ainsi que le code qui lui est rattaché en colonne A.

Merci par avance

[casefayere]

Bonjour,

essyes comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim r As Integer
If Sh.Name <> "Fiche" Then
  If Target.Column = 1 And Target.Row > 3 Then
    r = Target.Row
    With Sheets("Fiche")
      .Range("S2") = Target.Value
      .Range("A1") = Range("B" & r)
      .Range("A2") = Range("C" & r)
    End With
  End If
End If
End Sub