Bonsoir,
Quelqu'un pourrait-il m’éclairer sur ce plantage:Je comprends pas tout là
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub test() Dim toto As Variant, titi As Variant toto = Range("A1:A3").Value Debug.Print UBound(toto, 1), UBound(toto, 2) 'affiche 3 (lignes) et 1 (colonne) titi = WorksheetFunction.Transpose(toto) Debug.Print UBound(titi, 1), UBound(titi, 2) 'plante sur la dimension 2, devrait afficher 1 et 3 ??????? End Sub?
Merci d'avance à tous.
Partager