Copier/Coller cellules avec macro

Résolu/Fermé
michaelD Messages postés 10 Date d'inscription jeudi 21 mars 2013 Statut Membre Dernière intervention 14 avril 2013 - 21 mars 2013 à 18:36
michaelD Messages postés 10 Date d'inscription jeudi 21 mars 2013 Statut Membre Dernière intervention 14 avril 2013 - 22 mars 2013 à 13:51
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.


A voir également:

2 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
22 mars 2013 à 12:59
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+

0
michaelD Messages postés 10 Date d'inscription jeudi 21 mars 2013 Statut Membre Dernière intervention 14 avril 2013
22 mars 2013 à 13:51
Merci beaucoup!
C'est encore mieux de ce que je m'imaginais !
0