A
alex23
Guest
Bonjour,
j'ai un souci dans un code VBA.
Je voudrais par l'intermediaire d'une variable tableau extraire l'année, le mois, et le jour pour chacune des lignes du tableau.
Regarde la pièce jointe Variable Tableau Dates.xlsm
Merci de votre aide
Option Explicit
Sub Avec_Variables_Tableau()
Dim MonTableau As Variant
Dim cmpt1 As Long
Dim cmpt2 As Long
MonTableau = Range("b2:b" & Range("A1048576").End(xlUp).Row).Value
For cmpt1 = LBound(MonTableau, 1) To UBound(MonTableau, 1)
For cmpt2 = LBound(MonTableau, 2) To UBound(MonTableau, 2)
Next cmpt2
Next cmpt1
Range("c2:c" & Range("A1048576").End(xlUp).Row).Value = MonTableau
End Sub
j'ai un souci dans un code VBA.
Je voudrais par l'intermediaire d'une variable tableau extraire l'année, le mois, et le jour pour chacune des lignes du tableau.
Regarde la pièce jointe Variable Tableau Dates.xlsm
Merci de votre aide
Option Explicit
Sub Avec_Variables_Tableau()
Dim MonTableau As Variant
Dim cmpt1 As Long
Dim cmpt2 As Long
MonTableau = Range("b2:b" & Range("A1048576").End(xlUp).Row).Value
For cmpt1 = LBound(MonTableau, 1) To UBound(MonTableau, 1)
For cmpt2 = LBound(MonTableau, 2) To UBound(MonTableau, 2)
Next cmpt2
Next cmpt1
Range("c2:c" & Range("A1048576").End(xlUp).Row).Value = MonTableau
End Sub
Dernière modification par un modérateur:
