Barrer des lignes en excel via VB6
elbch
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
elbch Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
elbch Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
Bonjour tout le monde
voila je travaille sur une application VB qui envoie des enregistrements sur une base de données acess et depuis celle ci elle les transfert vers un fichier Excel.
Ces enregistrements sont les problèmes ressencés dans l'organisme, ces problèmes sont traités au fur et à mesure. Ce que je veux: c'est que dans le fichier excel de destination: les problème "résolus définitivement" soient barrés (mais pas effacés).
En bref : je veux barrer quelques lignes dans excel en utilisant VB6.
J'ai réussi jusqu'à present à les faire griser, mais mon maitre de stage les veut barrées.
je les ai grisé en utilisant ceci :
ExcelSheet.Application.Cells(i, j).Interior.Color = RGB(130, 180, 180)
quelqu'un peut me dire comment les barrer?
merci d'avance.
voila je travaille sur une application VB qui envoie des enregistrements sur une base de données acess et depuis celle ci elle les transfert vers un fichier Excel.
Ces enregistrements sont les problèmes ressencés dans l'organisme, ces problèmes sont traités au fur et à mesure. Ce que je veux: c'est que dans le fichier excel de destination: les problème "résolus définitivement" soient barrés (mais pas effacés).
En bref : je veux barrer quelques lignes dans excel en utilisant VB6.
J'ai réussi jusqu'à present à les faire griser, mais mon maitre de stage les veut barrées.
je les ai grisé en utilisant ceci :
ExcelSheet.Application.Cells(i, j).Interior.Color = RGB(130, 180, 180)
quelqu'un peut me dire comment les barrer?
merci d'avance.
A voir également:
- Barrer des lignes en excel via VB6
- Liste déroulante excel - Guide
- Vb6 - Télécharger - Divers Utilitaires
- Partager des photos en ligne - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
4 réponses
Salut,
est-ce que ceci te convient ?
ExcelSheet.Application.Cells(i, j).Pattern = xlLightHorizontal
Lupin
est-ce que ceci te convient ?
ExcelSheet.Application.Cells(i, j).Pattern = xlLightHorizontal
Lupin
Merci lupin pour ta réponse qui m'a été très utile;
en fait je l'ai adapté, car elle n'a pas marché telle qu'elle est; je l'ai modifié comme ceci :
ExcelSheet.Application.Cells(i, j).Interior.Pattern = xlLightHorizontal
Le problème; c'est qu'elle me fait 2 ou 3 barres sur la ligne, ce qui la rend illisible. Moi je voulais la barrer comme en word (un seul trait au dessus de l'ecriture).
Alors si tu connais un autre astuce: je te serai très reconnaissant, sinon: je vis la laisser comme ca.
merci encore.
en fait je l'ai adapté, car elle n'a pas marché telle qu'elle est; je l'ai modifié comme ceci :
ExcelSheet.Application.Cells(i, j).Interior.Pattern = xlLightHorizontal
Le problème; c'est qu'elle me fait 2 ou 3 barres sur la ligne, ce qui la rend illisible. Moi je voulais la barrer comme en word (un seul trait au dessus de l'ecriture).
Alors si tu connais un autre astuce: je te serai très reconnaissant, sinon: je vis la laisser comme ca.
merci encore.