Supprimer le format de cellules non définies sur une feuille

Question

Bonjour,

Je voudrais supprimer le format de cellules qui sont susceptibles de varier sur une feuille.
Je voudrais pour celà utiliser " Selection.clearFormats" ausein d'une boucle Do While Loop mais je ne sais pas quelle condition introduire dans la boucle do while :
Ex :
Do while sheets ("Feuil1".cells(y, 1)????????????????? et après je ne sais pas quelle condition.
Quelqu'un peut il venir à mon secours ? Je l'en remercie d'avance

rimbaut · Answer

Bonsoir, Voilà j'ai travaillé sur le sujet mais je rencontre un problème en ce sens que si les formats sont effacés au début, ils ne le sont plus par la suite. Quelq'un pourrait il me dire pourquoi. Je joins ci après mon code : Sub ViderFeuilleB600() Worksheets("B600").Activate Dim y_debut_salaire, y_fin_salaire As Integer Dim y_debut_charge, y_fin_charge As Integer Dim y As Integer y = 8 'Ici nous supprimons le format et le contenu des dates des exercices Sheets("b600").Range("c" & y & ":d" & y).Select Selection.ClearContents Selection.ClearFormats Sheets("b600").Range("f" & y & ":g" & y).Select Selection.ClearContents Selection.ClearFormats 'ici nous supprimonsle contenu des cellules salaire et leur format y = y + 2 Do While Sheets("b600").Cells(y, 1).Value <> "" ' boucle tant que la cellule est non vide Sheets("b600").Range("a" & y & ":d" & y).Select Selection.ClearContents Selection.ClearFormats Sheets("b600").Range("f" & y & ":g" & y).Select Selection.ClearContents Selection.ClearFormats y = y + 1 Loop ' Ici nous supprimons les cellules "total" y = y + 1 Sheets("b600").Range("a" & y & ":d" & y).Select Selection.ClearContents Selection.ClearFormats Sheets("b600").Range("f" & y & ":g" & y).Select Selection.ClearContents Selection.ClearFormats ' Ici nous supprimons les charges y = y + 2 Do While Sheets("b600").Cells(y, 1).Value <> "" ' boucle tant que la cellule est non vide Sheets("b600").Range("a" & y & ":d" & y).Select Selection.ClearContents Selection.ClearFormats Sheets("b600").Range("f" & y & ":g" & y).Select Selection.ClearContents Selection.ClearFormats y = y + 1 Loop ' Ici nous supprimons le total des charges y = y + 2 Sheets("b600").Range("a" & y & ":d" & y).Select Selection.ClearContents Selection.ClearFormats Sheets("b600").Range("f" & y & ":g" & y).Select Selection.ClearContents Selection.ClearFormats ' ici nous supprimons le taux moyen de charges y = y + 2 End Sub Merci beaucoup pour votre aide

Supprimer le format de cellules non définies sur une feuille

1 réponse

Votre réponse

Discussions similaires