Ne coller qu'une coller que la 4è colonnes d'une variable tableau

Bonjour,

Pour commencer voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub tets()   Dim tb As Variant, i As Long   With ActiveWorkbook.ActiveSheet tb = .Range("a2:d5") For i = 1 To UBound(tb) tb(i, 4) = DateSerial(tb(i, 3), tb(i, 2), tb(i, 1)) Next .Range("d2:d5") = tb End With   End Sub

---

Comment je fais pour ne coller que la 4è colonnes du tableau svp ?

J'ai essayer tb(1 to UBound(tb), 4), mais ça ne fonctionne pas

Merci par avance

Bonjour,

tu mets l'alimentation des cases voulues (donc cases par cases) dans ta boucle, pour le direct, c'est du tout ou rien.

cordialement,

Didier

Ok merci pour ta réponse

Je viens de mofifier mon code de cette façon :

Code:

---

1 2 3 4 5 6 7

With ActiveWorkbook.ActiveSheet tb = .Range("a2:d5") For i = 1 To UBound(tb) tb(i, 1) = DateSerial(tb(i, 3), tb(i, 2), tb(i, 1)) Next .Range("a2:a5") = tb End With

---

Car autant travailler directement sur la colonne A