format dans listview sans plusieurs boucles

[Shakasukali]

Bonsoir,

Novice dans le langage VBA, je cherche une astuce pour appliquer des formats dans ma listview sans avoir à effectuer plusieurs boucles.

Pourriez-vous me simplifier les codes?

Merci et bonne soirée.

 

[Yaloo]

Re : format dans listview sans plusieurs boucles

Bonsoir Shakasukali,

Le mieux est peut être de dire ce que tu veux faire, plutôt que de mettre un fichier, sans UserForm donc sans ListView, avec un code qui ne correspond à rien.

Martial

 

[Habitude]

Re : format dans listview sans plusieurs boucles

Bonjour

Une méthode parmis tant d'autres

 

[Habitude]

Re : format dans listview sans plusieurs boucles

Re,

Merci carcharodon-carcharias

Dommage que ca n'intéresse pas le demandeur

 

[Shakasukali]

Re : format dans listview sans plusieurs boucles

Bonsoir à tous,

Merci à tous pour vos réponses. Habitude, j'ai adapté ton code et ça fonctionne à merveille.

Merci énormément.

 

[Shakasukali]

Re : format dans listview sans plusieurs boucles

De nouveau bonsoir,

J'essaie tant bien que mal d'adapter le code de "Habitude" à ma base de données mais rien n'y fait et je ne peux pas envoyer ma base de données car il y a trop de Mo.

Bordel qu'est ce que je galère!!!!!!!!!!!

J'ai essayé en pas-à-pas et visiblement, je bloque au niveau de "ListView1.ColumnHeaders.Add Text:=cell, Width:=cell.Width: Next cell"

Ainsi, je requiers une nouvelle fois votre aide. Merci d'avance

Je vous envoie néanmoins les codes que j'ai mis dans mon formMaintenance.

"With frmMaintenance.ListView1.ColumnHeaders: .Add , , "N°", 20: .Add , , "genre", 35, lvwColumnCenter: .Add , , "état", 45, lvwColumnCenter: .Add , , "équipement", 60, lvwColumnCenter: .Add , , "tech", 35, lvwColumnCenter: .Add , , "date panne", 55, lvwColumnCenter: .Add , , "hr panne", 45, lvwColumnCenter: .Add , , "cause", 250, lvwColumnLeft: .Add , , "remèdes", 250, lvwColumnLeft: .Add , , "nature", 60, lvwColumnCenter: .Add , , "type maint", 60, lvwColumnCenter: .Add , , "date début", 55, lvwColumnCenter: .Add , , "hr déb", 35, lvwColumnCenter: .Add , , "date fin", 55, lvwColumnCenter: .Add , , "hr fin", 35, lvwColumnCenter: End With
Call init_ListView(True)"

 

[Yaloo]

Re : format dans listview sans plusieurs boucles

Bonsoir Shakasukali, le forum,

Pour une meilleure lisibilité mets ton code dans les balises ci-dessous entre ][ , puis enlève l'espace entre le [ et le /

[ /highlight]

Se sera beaucoup plus lisible.

A+

Martial

 

[Yaloo]

Re : format dans listview sans plusieurs boucles

Re,

Voici ton fichier en retour

A+

Martial

 

[Staple1600]

Re : format dans listview sans plusieurs boucles

Bonsoir à tous

Mon cher CC
[NOPARSE]

CODE VBA

[/NOPARSE] fait partie des outils mis à notre disposition
(d'ailleurs suite à une suggestion de ma part auprès de DavidXLD, -> cf le fil dans le salon de mromain et de son addin)

Et cela nous donne de jolies couleurs, ce que ne donne la balise BBCODE : [NOPARSE]

Code VBA

[/NOPARSE]

Sub a()
'Rem ;o)
MsgBox "Hello, Sharky"
End Sub

Sub a()
'Rem ;o)
MsgBox "Hello, Sharky"
End Sub

 

[Yaloo]

Re : format dans listview sans plusieurs boucles

Bonjour à tous,

Pour être encore plus simple, il serait bien que les balises (puisqu'elles existent) soient rattachées à un bouton dans la barre de boutons, aussi bien dans la réponse rapide que dans le mode avancé.

Le code est nettement plus clair lorsque ces balises sont utilisées.

A+

Martial

 

[Shakasukali]

Re : format dans listview sans plusieurs boucles

Bonjour Martial,

J'ai déjà essayé ton code hier mais cela me double le nombre de colonne.
Je pourrais me débrouiller si on me traduisait les codes.

Merci encore.

 

[Yaloo]

Re : format dans listview sans plusieurs boucles

Bonsoir Shakasukali, le forum,

Vois avec le fichier ci-dessous.

Sachant que dans le code d'Habitude il y avait cette ligne

ListView1.ColumnHeaders.Add Text:=cell, Width:=cell.Width

Width:=cell.Width indique que la largeur de la colonne de la ListView est égale à la largeur de la colonne du fichier. Donc si, dans ton fichier, tu ajustes tes largeurs de colonne, ça fait le même effet dans ton UserForm.

A+

Martial