VBA
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
-
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)
