Discussion :

[Froggy007]

Bonjour à tous,

Je cherche à afficher à l'écran le contenu d'une variable.
Pour l'instant, je me sers d'un msgbox et chaque fois je dois cliquer sur OK.
Comment faire pour l'afficher sans avoir à cliquer ?

Le code sur lequel je travaille actuellement est le suivant.
Je cherche l'occurence de la châine "TC" dans toutes les cellules d'un classeur, que ce soit dans le libellé de la cellule ou dans la formule qu'elle contient. Lorsque trouvée, la cellule est en jaune si c'est dans un libellé ou en rose si cette occurence se trouve dans une formule.

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
Sub IdentifierCellulesAvecChaineDeCaractèresStipulée()
 
    Dim SearchString, SearchChar As String
    Dim Feuille As Worksheet
    Dim Cell As Range
 
  ' Pour chacune des feuilles contenues dans un classeur,
  ' cherche les cellules connant la chaîne de caractères SearchChar
  ' avec respect de la casse et applique une couleur de fond jaune
  ' si elle les contient.
 
    SearchChar = "TC"
 
    For Each Feuille In Worksheets
        For Each Cell In Worksheets(Feuille.Name).UsedRange.Cells
 
            If Cell.HasFormula Then
                SearchString = Cell.Formula
                If InStr(1, SearchString, SearchChar, 0) > 0 Then
                    MsgBox (Feuille.Name & " // " & SearchString & " (dans le libellé !!!) ")
                    Cell.Interior.ColorIndex = 7 'Rose fluo
                End If
            End If
 
            MsgBox (Feuille.Name & " // " & Cell.Value)
            If Not IsNumeric(Cell.Value) Then
                SearchString = Cell.Value
                If InStr(1, SearchString, SearchChar, 0) > 0 Then
                    MsgBox (Feuille.Name & " // " & SearchString & " (dans la formule !!!) ")
                    Cell.Interior.ColorIndex = 6 'Jaune fluo
                End If
 
            End If
 
        Next Cell
    Next Feuille
 
End Sub

[ouskel'n'or]

Tu peux définir le temps d'affichage. Tu as ça dans la FAQ.
Comme je l'ai, ici affichage 1 seconde

Code :

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

    CreateObject("Wscript.shell").Popup Texte_A_Afficher, 1, "Titre de la boîte"

Bonne soirée

[JackOuYA]

Bonsoir,

Voir aussi Debug.print .

[Froggy007]

Re-bonjour,

1) Je ne trouve pas dans la FAQ
2) Je voudrais que ça s'affiche à l'écran pas dans la fenêtre d'exécution
3) Je voudrais que ça s'affiche à l'écran dans un truc style msgbox sur laquelle il n'y aurait plus à cliquer et où l'affichage se rafraichirait à chaque nouvelle affichage


mci de votre aide

[JackOuYA]

re,

Utilise un userform avec une listbox où un textbox multiligne..

[ouskel'n'or]

As-tu testé la solution que je t'ai donnée ? Elle évite l'userform + 1 textbox + 1 tempo pour ne laisser affiché ton message qu'un temps limité... Si ça ne te convient pas, dis ce qui ne te convient pas et ce qui te conviendrait, on ira plus vite
Ce que je n'ai pas dit dans mon premier post est que les boutons ne servent que si on veut récupérer une indication sur le bouton activé. Sinon, c'est le temps indiqué qui conditionne la durée d'affichage.
Exemple : r = InputBox(".....", ...., paramètre)

[JackOuYA]

Bonsoir,

re,

Utilise un userform avec une listbox où un textbox multiligne..

si tu n'as qu'une valeur à afficher, utilise un userform : UserForm1, avec un label : Label1

et dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
Sub YaBoucle()
 Dim i As Integer
 UserForm1.Show False
 For i = 1 To 1000
    UserForm1.Label1 = i
    DoEvents
 Next
Unload UserForm1
 End Sub