Barrer des lignes en excel via VB6
elbch
Messages postés
19
Statut
Membre
-
elbch Messages postés 19 Statut Membre -
elbch Messages postés 19 Statut Membre -
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
- Word et excel gratuit - 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.
