Re : scripting.dictionnary et restitution de données
re,
je tente de modifier/améliorer ce code de Pierre et je patauge..
je cherche (ça n'est peut être pas possible de cette manière) à copier en + la couleur de fond des cellules d'une manière ou l'autre...
voilà une partie du code
je cherche le @ dans les cellulles)
Les adresses mails sont parfois en double mais je ne garde qu'un exemplaire de chacune et s'il elle est mémorisée, je dois pouvoir mémoriser la couleur de la cellule aussi non ?
Merci
Et si vous savez où trouver un bon endroit pour apprendre les tableaux et dictionnaires, je suis preneur
Selection.SpecialCells(xlCellTypeConstants, 2).Select
For Each C In Selection
Trouve = IIf(InStr(1, C.Value, Texte) > 1, 1, 0)
If Trouve >= 1 Then
Clé = C.Value ' valeur de la cellule
Adr = C.Address ' adresse de la cellule
Dico.Item(Clé) = Dico.Item(Clé) + 1
End If
Next C
' déposer les items trouvés sur la zone prévue (A2 de feuille Destination)
Dest.Resize(Dico.Count) = Application.Transpose(Dico.Keys)
Dest.Resize(Dico.Count, 2).Sort Dest, xlAscending, Header:=xlNo, Orientation:=xlTopToBottom
' ------------ ajout couleur
For Each Cel In Selection
Trouve = IIf(InStr(1, Cel.Value, Texte) > 1, 1, 0)
If Trouve >= 1 Then
'clé = Cel.Value ' valeur de la cellule
Mclé = Cel.Interior.ColorIndex
'clé = Mcoul
If Not Dico2.Exists(Mclé) Then Dico2.Add Mclé, Mclé
'dico2.Item(clé) = dico2.Item(clé) + 1
End If
Next Cel