Discussion :

[erbou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[anasecu]

Bonsoir,

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.

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.

[deedolith]

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.

[erbou]

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

[Tête de chat]

Bonjour

Accessoirement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

est équivalent à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je pense que tu voulais écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Par ailleurs dans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[deedolith]

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

[Franc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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