Bonjour,
Petit problème de débutant VBA :
J'ai 3 cellules contenues dans une feuille F1, je chercher à les copier en passant par un tableau, puis à les coller dans une feuille F2.
J'ai déjà fait de nombreux test avec objets ou sans objets définis mais pas moyen de réaliser ce satané copier/coller....
ci-dessous mon code sans objet :
Si quelqu'un a une solution à partir de cette méthode, je lui en serais très reconnaissant !
Merci
Très cordialement
Petit problème de débutant VBA :
J'ai 3 cellules contenues dans une feuille F1, je chercher à les copier en passant par un tableau, puis à les coller dans une feuille F2.
J'ai déjà fait de nombreux test avec objets ou sans objets définis mais pas moyen de réaliser ce satané copier/coller....
ci-dessous mon code sans objet :
Code:
Sub copiercollercellules2()
Dim A, B, C As Long
Dim Vartab As Variant
A = Sheets("F1").Range("A4")
B = Sheets("F1").Range("C4")
C = Sheets("F1").Range("C7")
Vartab = Array(A, B, C)
'on cherche à copier les cases A4-C4-C7 présent dans l'onglet F1 vers l'onglet F2. Les données seront coller à partir de A2 sur forme d'une seule ligne
Sheets("F2").Select
Range("A2").Resize(1, UBound(Vartab.Value) + 1) = Vartab
End Sub
Si quelqu'un a une solution à partir de cette méthode, je lui en serais très reconnaissant !
Merci
Très cordialement