Fonction pour déplacer vers une autre cellule

Résolu
Bonjour,
Je veux trouver une fonction excel qui me permet en cliquant sur une cellule de me

déplacer vers une autre cellule (autre feuille )

Exemple : fonction pour déplacer de :
A1 (feuille 1) vers la cellule A1 (feuille 2)
A2 (feuille 1) ---------> B1 (feuille 2)
A3 (feuille 1)---------> C1 (feuille 2)
A4 (feuille 1) ---------> D1 (feuille 2)
A5 (feuille 1)---------> E1 (feuille 2)
...
...

Y'a t'il quelqu'un qui peut m'aider, merci

@+



_ _ _ Fish66_ _ _ I''"""""I_ _ membre contributeur sécurité_ _I''"""""I_ _ _
¤¤¤ Le meilleur remède pour tous les problèmes, c'est la patience.... ¤¤¤

10 réponses

  1. bonjour

    moyennant une macro à mettre dans le module de la feuille1

    Const plage = "A1:A10"  
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
    Dim li As Long, co As Long  
    If Not Intersect(Target, Range(plage)) Is Nothing Then  
      li = Target.Row  
      co = Target.Column  
      Sheets(2).Activate  
      ActiveSheet.Cells(co, li).Select  
    End If  
    End Sub

    RQ. macro a désactiver pour remplir la plage "A1:Ax"

    bonne suite
    0
    1. Contributeur sécurité
      Re,

      Merci pour la réponse, à part le macro y'a t-il une autre solution svp ?

      @+
      0
      1. Bonjour,

        Un lien hypertexte?

        Clic droit sur la cellule, Insérer un lien hypertexte, et choisir la destination.

        Bonne journée
        0
        1. Tu clique sur la cellule source , puis "Insertion" > "Lein hypertexte" (un choix d'option apparait) , enfin tu cherche la celule de déstination .
          0
          1. Contributeur sécurité
            Bonjour,

            Merci pour cette nouvelle idée mais il existe presque 300 cellules à exécuter, pour cela je cherche une procédure automatisée.

            Merci à tous

            @+
            0
            1. Contributeur
              Bonjour,

              en A1 :
              =LIEN_HYPERTEXTE("[Classeur1]" & ADRESSE(1;LIGNE();1;1;"Feuil2");ADRESSE(1;LIGNE();1;1;"Feuil2"))
              à recopier vers le bas

              eric
              0
              1. Contributeur sécurité
                Re,

                Merci eriiic pour la formule, j'ai essayé mais ca n'a pas marché, peut être j'ai commis une faute car les adresses des cellules ont été modifié comme suit :

                D5 (feuille 1) ---------> E5 (feuille 2)
                D6 (feuille 1) ---------> F5 (feuille 2)
                D7 (feuille 1)---------> G5 (feuille 2)
                D8 (feuille 1) --------->H5 (feuille 2)
                D9 (feuille 1)---------> I5 (feuille 2)
                ...
                ...


                Est ce que tu peux me réécrire la formule avec ces conditions ?

                Merci

                @+

                _ _ _ Fish66_ _ _ I''"""""I_ _ membre contributeur sécurité_ _I''"""""I_ _ _
                ¤¤¤ Le meilleur remède pour tous les problèmes, c'est la patience.... ¤¤¤
                0
                1. Bonjour,

                  En partant de la formule d'éric :

                  =LIEN_HYPERTEXTE("[Classeur1]" & ADRESSE(5;LIGNE();1;1;"Feuil2");ADRESSE(5;LIGNE();1;1;"Feuil2"))


                  A insérer dans la cellule D5, puis incrémenter vers le bas

                  Bonne journée
                  0
                  1. Contributeur sécurité
                    Re,

                    Merci à vous tous le problème est résolu!

                    @+
                    0
                    1. Bonjour,

                      J'ai sensiblement le même problème.
                      Je dois créer une macro qui prend en compte un certain nombre de mise ne forme dont notamment :
                      décaler (et pas copier) de la colonne B:B à la colonne C:C, la valeur de la cellule B1, B2 si en A:A on la valeur x (en supprimant bien évidemment la valeur B). Si en A, valeur y = on ne décale rien et on reste en B.

                      Est-ce possible d'avoir cela dans une macro qui intègre plusieurs actions ?
                      0