Bonjour à tous,
Voici le code où j'ai un souci:
sub test()
Dim plage_traitement As Range 'plage de données
Dim v_traitement As Variant
Set plage_traitement = Sheets("traitement").Range("A1:X" & nb_ligne_traitement)
v_traitement = plage_traitement
For i = 100 To 2 Step -1 'on part de la fin car on va supprimer des lignes
If Not v_traitement(i, 1) Like "2*" Then
Rows(i & ":" & i).Delete Shift:=xlUp
End If
Next i
plage_traitement = v_traitement 'On copie nos données de la variable "Variant" dans Excel.
end sub
En fait, je travaille dans un type variant (une sorte de tableau dans le cas ici), mais lorsque je parcours ce variant, je supprime une ligne du fichier Excel et non pas une ligne du tableau (v_traitement). Comment faire pour supprimer une ligne dans la variable v_traitement? J'ai pensé à : "v_traitement(i, 1).EntireRow.Delete" sans succès.
Merci d'avance,
Voici le code où j'ai un souci:
sub test()
Dim plage_traitement As Range 'plage de données
Dim v_traitement As Variant
Set plage_traitement = Sheets("traitement").Range("A1:X" & nb_ligne_traitement)
v_traitement = plage_traitement
For i = 100 To 2 Step -1 'on part de la fin car on va supprimer des lignes
If Not v_traitement(i, 1) Like "2*" Then
Rows(i & ":" & i).Delete Shift:=xlUp
End If
Next i
plage_traitement = v_traitement 'On copie nos données de la variable "Variant" dans Excel.
end sub
En fait, je travaille dans un type variant (une sorte de tableau dans le cas ici), mais lorsque je parcours ce variant, je supprime une ligne du fichier Excel et non pas une ligne du tableau (v_traitement). Comment faire pour supprimer une ligne dans la variable v_traitement? J'ai pensé à : "v_traitement(i, 1).EntireRow.Delete" sans succès.
Merci d'avance,