Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Besoin d'une boucle [ Langages dérivés / VBA ] (ticrain)

lundi 28 avril 2008 à 19:53:35 | Besoin d'une boucle

ticrain

Bonjour les ptis loups

J'aimerai mettre une boucle dans ce petit programme. Le but est de dire que tant que la valeur du label76 n'est pas egale à la valeur de la textbox2, je copie et colle des cellules une fois que la valeur du label76 est egale à la textbox 2 je sort de la boucle et j'arrive à ma msgbox. avec DO et LOOP on peux faire quelque chose??? merci

Private Sub CommandButton6_Click()
If Label76.Caption = textbox2.Value Then
MsgBox "Le chariot demandé est arrivé au capotage de déchargement"
Else
Range("A1:A164").Select
ActiveWindow.SmallScroll down:=1
Selection.Cut Destination:=Range("A2:A165")
Range("A165").Select
ActiveWindow.SmallScroll up:=1
Selection.Cut Destination:=Range("A1")
End If
End Sub

lundi 28 avril 2008 à 20:10:57 | Re : Besoin d'une boucle

jack

Administrateur CodeS-SourceS
Réponse acceptée !
Salut
Oui
   Screen.MousePointer = vbHourGlass
   Do While Label76.Caption <> TextBox2.Text
      Range ... ' tout ton code de copie
      ' Attention, ce code s'exécutera des milliers de fois, tant que la condition est vraie !
      DoEvents
   Loop
   MsgBox "Le chariot ..."

   Screen.MousePointer = vbNormal

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

lundi 28 avril 2008 à 20:18:09 | Re : Besoin d'une boucle

ticrain

Bonjour les ptis loups

 ' Attention, ce code s'exécutera des milliers de fois, tant que la condition est vraie !

Moi je veux que ce code s'execute tant que la condition label76.caption = textbox2.value n'est pas vrai!

lundi 28 avril 2008 à 20:25:45 | Re : Besoin d'une boucle

ticrain



Bonjour les ptis loups

Ton code marche parfaitement bravo et merci



Cette discussion est classé dans : boucle, valeur, range, egale, label76


Répondre à ce message

Sujets en rapport avec ce message

récupérer valeur des variables et las copier dans une autre feuille [ par philou1 ] bonjourje n'arrive pas à récupérer la valeur de mes variables pour les recopier dans une autre feuille.voici mon code:dim plage_relevé as range, r1 as VBA Excel : comment intégrer un filtre élaboré dans une boucle de traitement ? [ par Excello ] Pour automatiser une traitement de base de données excel (en fait la sinder en plusieurs morceaux et copier ceux ci dans autant d'autres fichiers) je boucle tant que [ par king_kunu ] salutje dois lire une colonne cellule par cellulelorsque je rencontre une valeur bien précise dans une celluleje dois effacer toute les valeurs suivan pb d'historisation de valeur à intervalle de temps régulier [ par DocteurVB ] salut à tous,j'ai besoin de faire une hitorisation de certaine valeur dans un fichier à interval de temps régulier...pb : j'ai essayer de faire une bo boucle for each, recuperer l'adresse d'une cellule sous excel [ par vincent82 ] bonjourvoila ma question :j'effectue une boucle for each sur un range de cellulesfor each valeur in range("A1:A7")valeur contient alors successivement listbox jour + date [ par ecthug ] Salut je voudrais remplir ma list box à partir d'une feuille excel en ayant dans ma listbox    "  Mar  05/04/05  "  pour mardi 5 avrilmais  comment fa boucle for [ par Tonin39 ] bonjour jaimerais faire une boucle for avec une structure condition a linterieur si possible, en fait ste boucle lit les valeur ds une colonnemais jai Boucle avec macro impression [ par kikou6969 ] bonjour, j aimerai creer une boucle sur visual basic.pour lancer l impression, je clic sur un bouton de cosmmande.l impression s effectue sur une feui Boucle de calcul [ par greggilson ] Bonjour à tous,J'essaie en vain de trouver l'algorhytme me permettant de :1. Lire une ligne comportant plusieurs valeur 2. Pour chaque indicateur se t Analyse de valeur automatique sous excel en vba [ par Alias2008 ] Bonjour, j'ai vraiment besoin d'un coup de main pour un code, j'en ai déja développé une partie et il me faudrait le reste. Je m'explique : dans un ta


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,203 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.