Aide pour du codage en Excel

Version imprimable

09/09/2013, 15h02
NEC14

Aide pour du codage en Excel

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é

heu

Bonjour nec

dans le module thisworkbook met ceci:

Code:

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

10/09/2013, 08h15
NEC14

1 pièce(s) jointe(s)

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.
10/09/2013, 09h36
nibledispo

aide pour du codage en excel

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.
10/09/2013, 10h07
NEC14

1 pièce(s) jointe(s)

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

Bonjour,

essyes comme ça :

Code:

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

10/09/2013, 11h19
NEC14

Bonjour,

Super c'est exactement ce que je souhaitais faire. J'ai ajouté une ligne qui manquait, mais c'est super.

Par contre, après le double clic, la cellule reste sélectionnée, comment faire pour qu'après le double clic, le curseur se place dans la cellule de la colonne B ?

Merci.

René
10/09/2013, 11h30
NEC14

J'ai trouvé une solution. J'active la feuille "Fiche".

Merci à tous pour votre participation.

Amicalement

René
10/09/2013, 14h47
patricktoulon

re

Bonjour nec

je n'ai fait que repondre a ta question de base tu devrais donner tout les parametres des ta premiere demande :lol:

a plus :ccool:
10/09/2013, 16h03
NEC14

Citation:

Envoyé par patricktoulon

Bonjour nec

je n'ai fait que repondre a ta question de base tu devrais donner tout les parametres des ta premiere demande :lol:

a plus :ccool:

Bonjour,

Je pensais avoir été clair, mais ce n'est pas le cas. Je te présente mes excuses. On écrit souvent les choses comme on les pense, mais chacun les comprend à sa façon. Je vais faire attention à l'avenir.

Merci encore pour ton aide