copie Résolu/Fermé

Question

bonjour excelleur...ou excellence..,

est il possible de copier une cellule par exemple en feuille1 celluleA1 et cellule B1 dans une feuille2 en A1 et A2 de sauvegarder ...et de changer en feuille1 la valeur de la cellule A1 et B1 et que ces valeurs ce copie en feuille2 en B1 et B2 et ainsi de suite...

Merci

via55 · Answer

Bonsoir

Possible par macro :

Macro à mettre dans un module (ALT F11 pour ouvrir l'éditeur VBA Insertion puis Module copier coller la macro et fermer l'editeur
Private Sub transfert()
Dim DernCol As Integer
If Sheets(2).Range("A1") = "" Then DernCol = 1 Else DernCol = Sheets(2).Cells(1, Cells.Columns.Count).End(xlToLeft).Column + 1
MsgBox DernCol
With Sheets(2)
.Cells(1, DernCol) = Sheets(1).Range("A1")
.Cells(2, DernCol) = Sheets(1).Range("B1")
End With
MsgBox ("transfert effectué")
End Sub

Cdlmnt
Activer la macro en lui attribuant un raccourci clavier (Onglet Developpeur  Macros) ou la lançant depuis un bouton Contrôle ActiveX inséré sur la feuille 1

Copie

1 réponse

Discussions similaires