Discussion :

[jmnexcelpas]

Bonjour,
Je cherche à remplacer les cellules vides de chaque tableau figurant sur chaque feuille par un point. Il y a donc un tableau de données par feuille.
J'ai créé la macro suivante qui fonctionne jusqu'à ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub remplcelvide()
For sh_index = 1 To Sheets.Count
    Sheets(sh_index).Select
        Range("A1").Select
        Selection.SpecialCells(xlCellTypeBlanks).Select
        Selection.Replace What:="", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False        
Next sh_index
End Sub

... jusqu'à ce qu'un tableau ne comporte pas de cellule vide ! Et c'est la qu'est l'os, parce que le message n'est pas "une erreur" mais bien qu'aucune valeur n'a été trouvée dans ce tableau. En clair : il n'y a pas de cellule vide. Et patatra, la macro s'arrête.

J'ai bien trouvé comment contourner une "erreur", par : On Error GoTo ErrorHandler mais dans mon cas, je dois juste passer à la feuille suivante si la macro ne trouve pas de cellule vide. Et je ne parviens pas à adapter ma macro pour y arriver.

Un conseil ou une solution ? Je vous remercie déjà pour votre aide.

[Menhir]

La solution est simple : faire une recherche avant de lancer le Replace.

Je me suis permis au passage de simplifier un peu ton code : les Select/Selection, c'est comme l'alcool, avec modération.
Sauf que je n'ai pas compris ton Range("A1") (recherche limitée à une seule cellule ?) alors je l'ai remplacé par un UsedRange, mais il se peut que tu ais à corriger ça.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub remplcelvide()
Dim sh_index As Worksheet, Zone As Range
For Each sh_index in WorkSheets
    Set Zone = sh_index.UsedRange.SpecialCells(xlCellTypeBlanks)
    If Zone.Count > 0 Then Zone.Replace What:="", Replacement:="."
Next sh_index
End Sub

Autre mise en garde : j'ai tapé ça à l'arrache sur le forum sans passer par le VBE et sans faire de test. Il y a donc peut-être du débugage à faire.

[jmnexcelpas]

Merci, super ça fonctionne. Je prends bonne note du conseil.