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