For i = 1 To 3
If i > 1 Then ReDim Preserve Tablo(i, 3)
MsgBox Cells(i, 1).Value
Tablo(i, 1) = Cells(i, 1).Value
Tablo(i, 2) = Cells(i, 2).Value
Tablo(i, 3) = Cells(i, 3).Value
Next
>>
Et l'exécution plante sur mon ReDim... J'ai un message << Erreur d'exécution
'9': Indice en dehors de la plage >>... Je ne vois pas ce qu'il se passe...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour HD,
Je suppose que tu obtiens le message d'erreur sur le ReDim Preserve Tablo(i,3) Dès lors que tu utilises le mot-clé Preserve tu ne peux redéfinir que la dernière dimension du tableau (dans ton cas la deuxieme ici 3)
A+ Eric
Bonjour,
J'ai un simple tableau à deux dimensions :
<< Dim i As Integer ReDim Tablo(1, 3)
For i = 1 To 3 If i > 1 Then ReDim Preserve Tablo(i, 3) MsgBox Cells(i, 1).Value Tablo(i, 1) = Cells(i, 1).Value Tablo(i, 2) = Cells(i, 2).Value Tablo(i, 3) = Cells(i, 3).Value Next
Et l'exécution plante sur mon ReDim... J'ai un message << Erreur d'exécution '9': Indice en dehors de la plage >>... Je ne vois pas ce qu'il se passe...
Merci d'avance pour votre aide.
Bonjour HD,
Je suppose que tu obtiens le message d'erreur sur le
ReDim Preserve Tablo(i,3)
Dès lors que tu utilises le mot-clé Preserve tu ne peux redéfinir que
la dernière dimension du tableau (dans ton cas la deuxieme ici 3)
A+
Eric
Bonjour,
J'ai un simple tableau à deux dimensions :
<<
Dim i As Integer
ReDim Tablo(1, 3)
For i = 1 To 3
If i > 1 Then ReDim Preserve Tablo(i, 3)
MsgBox Cells(i, 1).Value
Tablo(i, 1) = Cells(i, 1).Value
Tablo(i, 2) = Cells(i, 2).Value
Tablo(i, 3) = Cells(i, 3).Value
Next
Et l'exécution plante sur mon ReDim... J'ai un message << Erreur d'exécution
'9': Indice en dehors de la plage >>... Je ne vois pas ce qu'il se passe...
Je suppose que tu obtiens le message d'erreur sur le ReDim Preserve Tablo(i,3) Dès lors que tu utilises le mot-clé Preserve tu ne peux redéfinir que la dernière dimension du tableau (dans ton cas la deuxieme ici 3)
A+ Eric
Bonjour,
J'ai un simple tableau à deux dimensions :
<< Dim i As Integer ReDim Tablo(1, 3)
For i = 1 To 3 If i > 1 Then ReDim Preserve Tablo(i, 3) MsgBox Cells(i, 1).Value Tablo(i, 1) = Cells(i, 1).Value Tablo(i, 2) = Cells(i, 2).Value Tablo(i, 3) = Cells(i, 3).Value Next
Et l'exécution plante sur mon ReDim... J'ai un message << Erreur d'exécution '9': Indice en dehors de la plage >>... Je ne vois pas ce qu'il se passe...
Merci d'avance pour votre aide.
HD
Dès lors que tu utilises le mot-clé Preserve tu ne peux redéfinir que la dernière dimension du tableau (dans ton cas la deuxieme ici 3) Merci pour l'info...
-- @+ HD
Dès lors que tu utilises le mot-clé Preserve tu ne peux redéfinir que
la dernière dimension du tableau (dans ton cas la deuxieme ici 3)
Merci pour l'info...
Dès lors que tu utilises le mot-clé Preserve tu ne peux redéfinir que la dernière dimension du tableau (dans ton cas la deuxieme ici 3) Merci pour l'info...
