gianluca
XLDnaute Occasionnel
Hello le Forum....
Me revoilà.. avec une nouvelle sollicitation lol
j'ai écris le bout de code ci-dessous pour récupérer le nom de chaque feuille de mon classeur et pour y appliquer un traitement. Mais, boum badaboum... ca ne fonctionne pas....
...
dim FeuilleActive as sheets
If CheckBox1.Value = True Then 'Traitement collectif
For i = 1 To ThisWorkbook.Sheets.Count - 2
FeuilleActive = sheets(i).Name
Sheets(FeuilleActive).Visible = True
Sheets(FeuilleActive).Activate
derlign = Range("A65536").End(xlUp).Row
Range("A" & derlign + 1).Activate
ActiveCell.Value = DateTraitement
ActiveCell.Offset(0, 3).Value = 30
Next i
Else .... 'Traiteme
Me revoilà.. avec une nouvelle sollicitation lol
j'ai écris le bout de code ci-dessous pour récupérer le nom de chaque feuille de mon classeur et pour y appliquer un traitement. Mais, boum badaboum... ca ne fonctionne pas....
...
dim FeuilleActive as sheets
If CheckBox1.Value = True Then 'Traitement collectif
For i = 1 To ThisWorkbook.Sheets.Count - 2
FeuilleActive = sheets(i).Name
Sheets(FeuilleActive).Visible = True
Sheets(FeuilleActive).Activate
derlign = Range("A65536").End(xlUp).Row
Range("A" & derlign + 1).Activate
ActiveCell.Value = DateTraitement
ActiveCell.Offset(0, 3).Value = 30
Next i
Else .... 'Traiteme