Copier/Coller cellules avec macro [Résolu/Fermé]

Signaler
Messages postés
10
Date d'inscription
jeudi 21 mars 2013
Statut
Membre
Dernière intervention
14 avril 2013
-
Messages postés
10
Date d'inscription
jeudi 21 mars 2013
Statut
Membre
Dernière intervention
14 avril 2013
-
Bonjour,

Je ne suis pas vraiment à l'aise avec la codification de VB. Cependant, voici la fonction dont j'aimerais avoir une macro afin de simplifier les manipulations.

Ex:
Colonne A = Activités standardisé de la compagnie
Colonne B = Code d'activité de la compagnie

J'ai des activités et des codes jusqu'à la ligne 10000. Donc de A1 à B10000.
Chaque terme de la colonne A correspond à son code de la colonne B et doivent être considéré comme un tout. Ils ne peuvent être séparés.


J'aimerais copier une activité et un code (par exemple A2 et B2) et les coller dans H2 et I2.
Note: A2 et B2 ne sont pas fixe. j'aimerais pouvoir sélectionner n'importe quelle cellule dans A et B et les envoyé sur la même ligne mais 6 colonnes plus loin sans les effacer de ma colonne A et B.

Merci d'avance de votre aide.
Michael D.


2 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 140
Bonjour,
Avec double-clic ?
Colle le code dans le module de la feuille
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Lig As Long
    If Not Intersect(Target, [A1:B10000]) Is Nothing Then
        Cancel = True
        Lig = Target.Row
        Cells(Lig, "H") = Cells(Lig, "A")
        Cells(Lig, "I") = Cells(Lig, "B")
    End If
End Sub

Double-clic sur une cellule en A ou B copie les 2 dans H et I
A+

Messages postés
10
Date d'inscription
jeudi 21 mars 2013
Statut
Membre
Dernière intervention
14 avril 2013

Merci beaucoup!
C'est encore mieux de ce que je m'imaginais !