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
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
-
Bonjour,
Si la valeur recherché est "VRAI"
Faut montrer votre code pour savoir comment vous faites cette recherche -
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 -
Re,
ces valeurs a chercher sont dans la meme colonne ?????
Si la valeur recherché est "VRAI" tout ce déroule bienRange(ActiveCell, ActiveCell.Offset(0,"-8")).Select
Ceci ne marche pas, enlevez les ""
