Remplacer cellule vide par des zéros

Bonjour,

Je bloque sur un point.

J'aimerais une macro qui me permet de parcourir les colonnes D, E, F, G et remplacer toutes les cellules vides par 0 dans les colonnes D, E, F, G.

Un grand merci d'avance.

Bonjour,

Avec l'enregistreur de macro, tu obtiens cela

Sub Zero()
   Columns("D:G").Select
    Selection.Replace What:="", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A1").Select
End Sub

Bonjour,

une petite instruction avec "cellule spéciale vide" :

Sub LouReeD()
    ActiveSheet.Range("D2:G1243").SpecialCells(xlCellTypeBlanks).Value = 0
End Sub

Après pour le 1243, il suffit de le remplacer par une recherche de "dernière cellule pleine".

@ bientôt

LouReeD

Merci beaucoup. à tous les deux.

Problème solved.

Merci à vous pour les remerciements

@ bientôt

LouReeD