bonsoir
j'ai voulu créer un tableau qui reprend chaque valeur de chaque cellule d'une feuille entiere en ecrivant
Dim t As Variant
Set f = ActiveWorkbook.Worksheets
'For Each f In f
ReDim t(0 To Rows.Count, 0 To Columns.Count - 1)
For i = 0 To Rows.Count
For j = 0 To Columns.Count - 1
If t(i, j) = "xcx" Then
w = w & Chr(10) & f.Name
End If
Next
Next
MsgBox w
j'ai bien evidement une anomalie a la ligne :
ReDim t(0 To Rows.Count, 0 To Columns.Count - 1)
Il y a t il une petite astuce pour contourner ce manque de memoire.
Merci pour vos suggestions.