Export du resulta affiché dans une MessageBox vers fichier

[sayan92]

Bonjour,
Je recherche le moyen d'exporter dans un fichier excel le résultat de recherche d'une macro, affichage actuel dans une msgbox..

J'affiche parfaitement ma recherche dans un message Box,
mais impossible à exporter dans un fichier.
ci-joint ma msg box:

msgbox ("trouvé '/' en "& coul & " sur la feuille " & sh.name & " à l'adresse " & c.adress(0, 0))


Merci de votre aide.

JF

 

[Pierrot93]

Re : Export du resulta affiché dans une MessageBox vers fichier

Bonjour,

pas testé, mais ceci devrait fonctionner, à condition que les variables soient bien initialisées...

Range("A1").value = "trouvé '/' en " & coul & " sur la feuille " & sh.name & " à l'adresse " & c.adress(0, 0)

bonne journée
@+

 

[sayan92]

Re : Export du resulta affiché dans une MessageBox vers fichier

Bonjour Pierrot93,
et merci de ta réponse,
cette solution fonctionne pour une varible
mais pas pour les autres...
PB de déclaration...?

Merci de ta collaboration.
@+
Cordialement.


Ci-joint mon code.

' Recherche de "/" en texte Rouge dans tous les Sheets du Document
Sub VALIDATEFindSlashRedForAllSheets()
Dim Nb As Long
Dim test As Long
Dim Sh As Worksheet


Nb = 0
For Each Sh In Sheets
With Sh.Cells
Set c = .Find(" /", LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address

Do
If c.Font.ColorIndex = 3 Or c.Font.ColorIndex = 4 Then
If c.Font.ColorIndex = 3 Then
coul = "Rouge"
Nb = Nb + 1
test = Nb

'ouverture d'un fichier report pour copier le résultat de la recherche de cellule modifiers
If Nb = 1 Then
Application.Workbooks.Open Application.ActiveWorkbook.Path & "\" & "report.xls"



Else
End If

Else


End If

If test > 0 Then
MsgBox ("trouvé ' /' en " & coul & " sur la feuille " & Sh.Name & " à l'adresse " & c.Address(0, 0))
MsgBox (Nb & " = Nombre de SLASH in RED ")

' ligne ci-apres en error ??????
'Range("a2").Value = ("trouvé ' /' en " & coul & " sur la feuille " & Sh.Name & " à l'adresse " & c.Address(0, 0))

'note cette ligne ci-apres fonctionne
Range("a2").Value = "trouvé '/' en " & coul & " sur la feuille " & Sh.Name & " à l'adresse " & c.adress(0, 0)


Range("f2").Value = Nb & " = Nombre de SLASH in RED "


Else
On Error Resume Next
End If
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If

End With
Next Sh
End Sub

 

[sayan92]

Re : Export du resulta affiché dans une MessageBox vers fichier

Salut,
Complement d'explication suite erreur dans mes commentaires:

' ligne ci-apres en error ??????
'Range("a2").Value = ("trouvé ' /' en " & coul & " sur la feuille " & Sh.Name & " à l'adresse " & c.Address(0, 0))

'note cette ligne ci-apres fonctionne
Range("f2").Value = Nb & " = Nombre de SLASH in RED "

Sorry,
@+