Bonjour
Je suis débutant en vba et essaie d'adapter les codes trouvés sur le site à mon application.
Mais là je suis bloqué.
J'ai une macro qui permet de rechercher dans une colonne la ligne qui contient le libellé "Largeur" et qui sur toute la ligne remplace la virgule par un point.
Tout fonctionne bien mais certaines fois ce champ n'existe pas dans cette colonne.
Evidemment dans ce cas ma macro bug.
Ma question est donc : comment passer à l'action suivante si ce champ n'existe pas.
D'avance merci pour votre aide.
Cordialement.
StStym

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
    Application.Goto Reference:="C_ProductId"
    ActiveCell.EntireColumn.Select
    Selection.Find(What:="Largeur", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.EntireRow.Select
    Selection.NumberFormat = "@"
    For Each Cell In Selection
    Cell.Value = Replace(Cell.Value, ",", ".")
    Next