Arrêt d'une opération

Fermé

CHABRIER Messages postés 4 Date d'inscription jeudi 28 novembre 2013 Statut Membre Dernière intervention 24 novembre 2014 - 24 nov. 2014 à 09:22
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 24 nov. 2014 à 13:39

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

A voir également:

Arrêt d'une opération
Comment supprimer les pubs qui apparaissent sans arrêt - Guide
Arret en cours infini - Forum Windows 7
Forcer l'arrêt d'une application pc - Guide
Ma tablette samsung s'eteint sans arret ✓ - Forum Mobile
Kamisama opération divine scan vf - Forum Loisirs / Divertissements

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 nov. 2014 à 12:15

Bonjour,

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

Réponse 2 / 3

CHABRIER Messages postés 4 Date d'inscription jeudi 28 novembre 2013 Statut Membre Dernière intervention 24 novembre 2014
24 nov. 2014 à 13:03

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

Réponse 3 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 24/11/2014 à 13:42

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 ""

Discussions similaires

l'opération demandée necessite une elevation

Bouton ON OFF, O ou I ?

Ma manette vibre sans arret

coupures tv freebox hd

Mon PC bloqué sur "arret en cours"

Discussions similaires

Newsletters