Aide pour une macro qui donne un résultat inattendu

J'ai écrit une macro ultra-simple pour accompagner mon apprentissage de débutant.
Elle balaye un tableau comportant une simple colonne de mots et affiche la mot lu dans la 1re boîte de texte (la 2e boîte est pour l'instant inutilisée) d'un formulaire qui comporte aussi 2 boutons de commande pour "continue"r ou "arrêter"; à la fin du balayage ou bien si le bouton "arrêter" a été actionné, la macro affiche le nombre de mots traités.
Je ne comprends pas pourquoi, lorsque je lance la macro, seul le dernier mot du tableau s'affiche immédiatement et aucun bouton ne produit d'effet lorsqu'on l'actionne.
Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 21/03/2023 par Gérard ' ' Déclaration des variables Dim Question, Bilan As String Dim i, Compteur As Integer ' ' Affichage du formulaire en modal UserForm1.Show 0 Compteur = 0 ' Boucle For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row Question = Cells(i, 1).Value UserForm1.TextBox1 = Question If UserForm1.Tag = "Arreter" Then Exit For End If Compteur = Compteur + 1 Next i ' Fin Bilan = CStr(Compteur) & " mots ont été traités" UserForm1.TextBox3 = Bilan ' End Sub   ' ' '   Private Sub UserForm_Initialize() Me.StartUpPosition = 2 i = 0 End Sub Private Sub CommandButton1_Click() Me.Tag = "Continuer" End Sub Private Sub CommandButton2_Click() Me.Tag = "Arreter" End Sub]

---

Je joins également le fichier que j'ai créé sous Excel 2003.
Je remercie par avance qui voudra bient éclairer ma lanterne.

Bonsoir,

Citation:

---

Je ne comprends pas pourquoi, lorsque je lance la macro, seul le dernier mot du tableau s'affiche immédiatement

---

Il s'affiche car tu exécutes ta macro qui balaie ta base jusqu'au dernier.

Citation:

---

aucun bouton ne produit d'effet lorsqu'on l'actionne.

---

Comme ils n'ont aucun code mis à part le positionnement du tag qui ne se voie pas il ne peut y avoir aucun effet.

C'est la découverte et pour que tu vois le cheminement, je t'invite à dérouler tes procédures en pas à pas avec la touche F8 pour en comprendre le fonctionnement.

De plus,
A chaque tour de boucle, tu écrase les valeur de la boucle précédente, donc quand on arrive à la fin, on a que les dernières valeurs.

Si tu veux afficher plusieurs valeurs dans ton formulaire, c'est un contrôle ListBox qu'il te faut (et non un Textbox).

Enfin, il n'y a quasiment aucune chance que la boucle puisse être interrompue en plein milieux via un click sur un bouton, le code va tout simplement trop vite.

J'ai compris pourqooi je ne vois que le dernier contenu de ma liste et je vais chercher comment faire fonctionner les boutons.

Bonjour

Accessoirement

Code:

---

1 2	Dim Question, Bilan As String Dim i, Compteur As Integer

---

est équivalent à

Code:

---

1 2	Dim Question as Variant, Bilan As String Dim i as Variant, Compteur As Integer

---

Je pense que tu voulais écrire

Code:

---

1 2	Dim Question as String, Bilan As String Dim i as Integer, Compteur As Integer

---

Par ailleurs dans :

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() Me.StartUpPosition = 2 i = 0 End Sub

---

i=0 ne sert à rien puisqu'il met 0 dans une variable i locale au sub, qui disparait dès le end sub qui suit, et qui n'a rien à voir avec la variable i utilisée dans Macro1. Si tu veux que i ait une portée globale, il faut la définir au niveau du form.
Pour éviter ce genre d'erreur, ajoute un Option Explicit en tête de module, et déclare systématiquement tes variables.

Le meilleur moyen de se prémunir contre ce genre d'etourderie est encore la directive Option Explicit, et de configurer l'IDE pour qu'il l'ajoute par défaut.

Ne lui introduisons pas les variables globales, ça fait déjà assez de ravages avec les programmeurs confirmés.
Alors un débutant...

Citation:

---

Envoyé par erbou

J'ai compris pourqooi je ne vois que le dernier contenu de ma liste et je vais chercher comment faire fonctionner les boutons.

---

j'ai mis le code dans l'évènement click du bouton, comme ça il affiche un nom à la fois et pas toute la liste pour t'afficher seulement le dernier. J'espère que ça t'aidera.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public i As Integer   Private Sub CommandButton1_Click() i = i + 1 If i > Sheets("Dico").Cells(Rows.Count, 1).End(xlUp).Row - 1 Then i = Sheets("Dico").Cells(Rows.Count, 1).End(xlUp).Row - 1 End If TextBox1.Text = Sheets("Dico").Cells(i + 1, 1).Value End Sub   Private Sub UserForm_Initialize() i = 1 TextBox1.Text = Sheets("Dico").Cells(2, 1).Value End Sub

---