BenHarber
XLDnaute Occasionnel
Bonjour Le Forum,
Je souhaite utiliser une variable tableau ("monTab2") de x lignes et 5 colonnes.
Le nombre de x lignes dépend d'une boucle : à chaque fois que la condition est satisfaite, le traitement intègre 5 valeurs dans les 5 colonnes de la dernière ligne du tableau et il faut que je redimensionne mon tableau en ajoutant une ligne pour l'enregistrement suivant.
J'ai donc codé :
Dim monTab2() As Integer
Set znBasBurAgts = ActiveWorkbook.Sheets(1).Range("G11:G" & Sheets("Base Agents").Range("G65536").End(xlUp).Row)
w = 0
ReDim Preserve monTab2(w, 5)
For Each cBurAgts In znBasBurAgts
If CONDITION REMPLIE Then
For z = 1 To 5 ' représente les 5 colonnes de monTab2
Select Case z
Case 1 To 3: monTab2(w, z) = cBurAgts.Offset(0, -7 + z)
Case 4: monTab2(w, z) = cBurAgts.Offset(0, -1)
Case 5: monTab2(w, z) = cBurAgts.Offset(0, 23)
End Select
Next z
w = w + 1
ReDim Preserve monTab2(w, 5)
End If
Next cBurAgts
La macro plante car je dois mal utiliser les mots clés Dim + Redim (voire mal déclarer mon tableau en début de procédure ???)
Quelqu'un pourrait-il m'aider ?
Merci d'avance.
Cordialement,
Je souhaite utiliser une variable tableau ("monTab2") de x lignes et 5 colonnes.
Le nombre de x lignes dépend d'une boucle : à chaque fois que la condition est satisfaite, le traitement intègre 5 valeurs dans les 5 colonnes de la dernière ligne du tableau et il faut que je redimensionne mon tableau en ajoutant une ligne pour l'enregistrement suivant.
J'ai donc codé :
Dim monTab2() As Integer
Set znBasBurAgts = ActiveWorkbook.Sheets(1).Range("G11:G" & Sheets("Base Agents").Range("G65536").End(xlUp).Row)
w = 0
ReDim Preserve monTab2(w, 5)
For Each cBurAgts In znBasBurAgts
If CONDITION REMPLIE Then
For z = 1 To 5 ' représente les 5 colonnes de monTab2
Select Case z
Case 1 To 3: monTab2(w, z) = cBurAgts.Offset(0, -7 + z)
Case 4: monTab2(w, z) = cBurAgts.Offset(0, -1)
Case 5: monTab2(w, z) = cBurAgts.Offset(0, 23)
End Select
Next z
w = w + 1
ReDim Preserve monTab2(w, 5)
End If
Next cBurAgts
La macro plante car je dois mal utiliser les mots clés Dim + Redim (voire mal déclarer mon tableau en début de procédure ???)
Quelqu'un pourrait-il m'aider ?
Merci d'avance.
Cordialement,