Macro renvoi cellule

Résolu
Mimouch2 Messages postés 63 Statut Membre -  
Mimouch2 Messages postés 63 Statut Membre -
Bonjour,
Dans un tableau excel, je voudrais pouvoir renvoyer dans n'importe quelle cellule active, via une macro simple, la case B de la même ligne (donc colonne "B" fixe, ligne relative, égale à la ligne de la cellule active).
Par exemple, dans G3 : faire venir B3, dans U3 : B3
dans K4 : B4, etc...
Merci d'avance pour votre aide,
Mimouch2

1 réponse

  1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonsoir

    Ok mais comment déterminer que la copie se fera plutôt en U3 qu'en X3 ?
    Par un double-clic dans la cellule d'arrivée ?

    Cdlmnt
    Via

    0
    1. Mimouch2 Messages postés 63 Statut Membre
       
      Ah, je pensais que si je suis en U3 en déclenchant la macro, la copie se ferait en U3. C'est pas possible ?
      0
      1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759 > Mimouch2 Messages postés 63 Statut Membre
         
        C'est possible mais il faut la déclencher en allant dans l'onglet Développeur ou à partir d'un bouton, alors que par simple double-click c'est plus rapide et intuitif
        Que préfères-tu ?
        0
      2. Mimouch2 Messages postés 63 Statut Membre > via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention  
         
        Oui, par double-click dans chaque cellule où je désire afficher la cellule B de la même ligne, ça doit aller en effet...
        0
      3. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759 > Mimouch2 Messages postés 63 Statut Membre
         
        OK alors :
        1) ALT + F11 pour ouvrir l'éditeur VBA
        2) Dans l'arborescence double-cliquer sur la feuille concernée
        3) Copier -coller cette macro dans la page blanche et fermer éditeur
        Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        Target.Value = Range("B" & Target.Row)
        End Sub


        Cdlmnt
        Via
        0
      4. Mimouch2 Messages postés 63 Statut Membre > via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention  
         
        Merci, ça marche très bien ! (mais je ne comprends pas pourquoi il faut le mettre en "PrivateSub", alors que j'ai créé d'autres macros en "Sub", qui sont insérées dans des modules et pas directement sur la Feuille).
        Il faudrait que je trouve le temps de m'y mettre vraiment un jour !!!
        En tous cas, merci pour l'aide.
        Cordialement,
        Mimouch2
        0