[VBA-EXCEL] Afficher le résultat d'une variable à l'écran
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:
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 |
