Discussion :

[wyzer]

Bonjour,

Pour commencer voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Didier Gonard]

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

[wyzer]

Ok merci pour ta réponse

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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