bonjour et belle année 2019 à tous.
Je vous souhaite le meilleur pour cette nouvelle année.
J'ai un problème tout bête mais que je ne parviens pas à régler.
je dois supprimer des lignes sur des une vingtaines d'onglet (mais pas tous) selon une condition sur une colonne.
Sub Test()
Dim V_Sheet As Worksheet
Dim I As Integer
For Each V_Sheet In Worksheets
V_Sheet.Activate
If ActiveSheet.Name <> "Synthese" And ActiveSheet.Name <> "DATA" And ActiveSheet.Name <> "vigie" And ActiveSheet.Name <> "BDD" Then
For I = Range("i65536").End(xlUp).Row To 1 Step -1
If Cells(I, 2) <> "A2" Then Rows(I).Delete
Next I
End If
Next V_Sheet
End Sub
Ca mouline sans faire quoi que ce soit.
est ce quelqu'un sait a quoi c'est dû... ca devrait marcher pourtant
merci d'avance à ceux qui verront pourquoi
Je vous souhaite le meilleur pour cette nouvelle année.
J'ai un problème tout bête mais que je ne parviens pas à régler.
je dois supprimer des lignes sur des une vingtaines d'onglet (mais pas tous) selon une condition sur une colonne.
Sub Test()
Dim V_Sheet As Worksheet
Dim I As Integer
For Each V_Sheet In Worksheets
V_Sheet.Activate
If ActiveSheet.Name <> "Synthese" And ActiveSheet.Name <> "DATA" And ActiveSheet.Name <> "vigie" And ActiveSheet.Name <> "BDD" Then
For I = Range("i65536").End(xlUp).Row To 1 Step -1
If Cells(I, 2) <> "A2" Then Rows(I).Delete
Next I
End If
Next V_Sheet
End Sub
Ca mouline sans faire quoi que ce soit.
est ce quelqu'un sait a quoi c'est dû... ca devrait marcher pourtant
merci d'avance à ceux qui verront pourquoi