VBA

kevlau29 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
kevlau29 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour,
Je cherche un code VBA :

dans mon fichier excel : - je choisis une cellule ou plusieurs dans une colonne,
dans un fichier txt : - je voudrais récupérer la valeur et la couleur du fond de chaque cellule, ainsi que la valeur et la couleur du fond de chaque cellule à gauche de ma sélection.

J'espère que je suis clair.

Quelqu'un peut-il m'aider ?
merci d'avance

1 réponse

Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour,

voilà un exemple que tu peux adapter:
Dim couleur As Variant
Dim cl
Dim cel As Range
Dim fp As Integer
Dim fichier As String

    
    fp = FreeFile
    fichier = "D:\test.txt"
    Set cel = Selection
    Open fichier For Append As #fp
    For Each cl In cel
        couleur = cl.Interior.Color
        Print #fp, cl.Value & ", couleur: " & couleur
    Next cl
    
    Close #fp


Bon courage

;o)
0
kevlau29 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
OK
Merci de ta réponse
0