Arrêt d'une opération

Bonjour,

Mon niveau est faux débutant

je fais tourner une macro Excel VBA qui dans l'ensemble fonctionne plutôt bien

mais je rencontre un problème de temps en temps

"je fais une recherche pour trouver une valeur suivi d'une opération simple. Si la valeur recherché est "VRAI" tout ce déroule bien mais si la valeur recherché est "FAUX" alors la macro s'arrête en débogage"

quelqu'un aurait-il une piste à me suggérer pour que la macro ne s'arrête pas à FAUX et continue son travail

merci d'avance

3 réponses

  1. Re,

    ces valeurs a chercher sont dans la meme colonne ?????

    Si la valeur recherché est "VRAI" tout ce déroule bien
    Range(ActiveCell, ActiveCell.Offset(0,"-8")).Select
    Ceci ne marche pas, enlevez les ""
    1. j'enchaine cette séquence pour une dizaine de valeur

      Cells.Find(What:="00610", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
      :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
      False, SearchFormat:=False).Activate
      Range(ActiveCell, ActiveCell.Offset(0, "-8")).Select
      With Selection.Interior
      .Pattern = xlSolid
      .PatternColorIndex = xlAutomatic
      .Color = 65535
      .TintAndShade = 0
      .PatternTintAndShade = 0
      End With
      Range("A1").Select

      Cells.Find(What:="03004", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
      :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
      False, SearchFormat:=False).Activate
      Range(ActiveCell, ActiveCell.Offset(0, "-8")).Select
      With Selection.Interior
      .Pattern = xlSolid
      .PatternColorIndex = xlAutomatic
      .Color = 65535
      .TintAndShade = 0
      .PatternTintAndShade = 0
      End With
      Range("A1").Select
      1. Bonjour,

        Si la valeur recherché est "VRAI"
        Faut montrer votre code pour savoir comment vous faites cette recherche