Bonjour le forum,
Je cherche le moyen de stocker dans une variable une collection de lignes d'une feuille de classeur. Etant donné que les lignes de la feuille en question sont parcourues au travers d'une boucle de recherche qui conditionne leur insertion dans la variable, j'ai opté pour un tableau de type Range mais je ne suis par sûr de la déclaration et visiblement je m'y prends mal vu que ça plante. Le but de la manoeuvre, c'est de travailler ensuite sur ces lignes mémoires et les supprimer au fur et à mesure de l'exécution du traitement, sans affecter les données effectivement présentent sur la feuille (ci-après le code posant pb). Un avis aux connaisseurs donc.... Merci bcp pour votre aide.
Je cherche le moyen de stocker dans une variable une collection de lignes d'une feuille de classeur. Etant donné que les lignes de la feuille en question sont parcourues au travers d'une boucle de recherche qui conditionne leur insertion dans la variable, j'ai opté pour un tableau de type Range mais je ne suis par sûr de la déclaration et visiblement je m'y prends mal vu que ça plante. Le but de la manoeuvre, c'est de travailler ensuite sur ces lignes mémoires et les supprimer au fur et à mesure de l'exécution du traitement, sans affecter les données effectivement présentent sur la feuille (ci-après le code posant pb). Un avis aux connaisseurs donc.... Merci bcp pour votre aide.
Code:
Dim i, k, j As Integer
Dim C As Range
'affects() stocke les lignes
Dim affects() As Range
j = 0
i = 0
With Worksheets('Affectations').Columns(5)
Set C = .Find(Numtask, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
j = C.Row
Do
ReDim Preserve affects(i)
'stockage ligne courante <- BUG !
affects(i) = Worksheets('Affectations').Rows(j)
i = i + 1
j = j + 1
Loop While Worksheets('Affectations').Cells(j, 5).Value = Numtask
End If
End With