Condition if
Bonjour a tous ,
je sollicite encore votre aide car je bloque depuis un moment sur une condtion if malgre que j ai essayer de le faire mais je ne connais pas vba
alors voila ce que je souhaite obtenir comme resultat : j 'ai une boucle avec WHILE and WEND
qui va chercher dans mon classeur des numero l'un apres l'autre et les copies sur mon logiciel de boulot
et ce que je veux c'est que lorsque le numero est valider si le message "SHOW COMPLETE-LAST" apparait alors reprendre la boucle au debut sinon continuer la suite .
Merci d'avance de votre support.
Bonsoir,
Essaie de te relire et de comprendre ce que tu as écrit sans faire intervenir aucun autre élément non mentionné dans ton propos. Si tu te comprends, parfait !
Sur l'idée générale de recommencer une boucle au départ chaque fois qu'un message t'indique que c'est fini, fait se demander comment tu vas en sortir (et aussi pourquoi refaire la même chose au même endroit) : il y a intérêt qu'à un moment ce ne soit pas fini pour qu'on puisse atteindre la fin
Copier un numéro dans un logiciel, j'ai beau réfléchir, je ne vois pas ce que cela peut signifier ?...
desole pour mon explication un peu complique alors voici une copie de mon ecran
en gras le numero qui viens d'excel avec activecell
une fois le numero valider si le le message en bas du formulaire "SHOW COMPLETE-LAST UPDATE" apparait alors reprendre ma boucle au debut sinon continuer la suite de la boucle.
voici ma boucle qui fonctionne mais j'aimerais incorporer cette condition cite ci dessus.
""While ActiveCell.Value <> ""
BZ.WriteScreen Range("A1").Value, 4, 5
.SendKey "@E"
.WaitReady 5, 500
BZ.Pause 2
.WriteScreen TYPEREQ, 1, 80
.SendKey "@E"
.WaitReady 5, 500
.WriteScreen ROUTE, 2, 10
.WriteScreen DATER, 2, 22
.WriteScreen BTCH, 2, 35
.WriteScreen OFF, 2, 79
.WriteScreen DOCS, 3, 9
.SendKey "@E"
.SendKey "@E"
.WaitReady 5, 500
BZ.Pause 2
.WaitReady 5, 500
BZ.ReadScreen MiscData, 2, 8, 77
ActiveCell.Offset(0, 1).Value = Trim(MiscData)
ActiveCell.Offset(1, 0).Select
Wend
Range("A1").Select
'*********************************************************************************************************************
End With ""
"SAVE GOTO ETN IAWB ENTRY TYPE REQ(A,B,D,E,M,S,U,Q)
FLT/TRK ER123 FTDT 15FEB17 BTCH VISA CLC C CHECKR AB OF
DOC/NC N CM CONT BAG ENTRY FRA 0000171293 15 FEB 6
AB 674448810989 SHPDT 14FEB17 METER X THERMAL X BTA RECIP#
SENDER ACCT 494526204 NM PH +4937437531077
CO SCHNEIDERMUSIK GMBH AD1 PROF.-PAUL-KOEHLER-STR. 28
AD2 CTY BAD ELSTER
ST/PR DE CNTRY DE PSTL 08645 REF 40243648
RECIP NM 16 SCALA C CITOFON PH 3382802012
CO CANTONI LAURA AD1 VIA ABELARDO PECORINI
AD2 CTY MILANO
ST/PR CNTRY IT PSTL 20138 RECIP ID # HLD SDL
PKGS 1 WGT 1.0 K/L K DIM K/L HS CD COM CUST VALUE
DESC MUSICAL ACCESSORIES 92093000 DE 52.70
CARR VAL CURR EUR CUSTOMS VAL 52.70 EXP LIC
SV 01 PK 02 PD HDLG CA DG TD N BILL-T/C S ACCT
CC# EXP DT BILL-D/T C ACCT FRT
FORM 0430 ORIG ZAS DEST MIL HDLG UNITS REC`D AT 1 CC AUTH
X-TYPE EEI NO EEI 30.2(D)(1) EPN
SHOW COMPLETE-LAST UPDATE BY 0000171293 AT FRA.
Merci
OK ! On est hors Excel... Attends donc quelqu'un qui parle le même langage.
Bienvenue honorable étranger!
Bonjour MFerrand! Moi qui croyais dur comme fer que tu connaissais tout!
A+