TextAlign ListBox multicolonnes

Le
domivax
Bonjour à tous,

J'ai une ListBox avec 4 colonnes qui est alimentée de la manière
suivante :

Set r = Range("ListeCartes!A1:" &
Worksheets("ListeCartes").Range("A65536").End(xlUp).Address)
Set r = r.SpecialCells(xlCellTypeVisible)
If Not r Is Nothing Then
ReDim temp(1 To r.Count, 1 To 4)
i = 1
For Each cell In r
temp(i, 1) = cell.Value
temp(i, 2) = cell.Offset(0, 5).Value
temp(i, 3) = cell.Offset(0, 14).Value
temp(i, 4) = cell.Offset(0, 15).Text
i = i + 1
Next cell
ReDim Preserve temp(i - 1)
End If


Ce que je souhaite, c'est :

D'aligner à gauche les données de la 1ère & 2ème colonne,
Centrer les données de la 3ème colonne et
Aligner à droite les données de la 4ème.

Comment faire.

Merci pour votre aide.
Xavier
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #4478861
Salut à toi
Pour t'aider j'ai tenté d'executer ton code afin de lui rajouter le
complément que tu souhaites
Pb je n'ai pas tes données et la macro plante en conséquence
Difficile donc de te donner satisfaction
Visiblement ce n'est qu'une mise en forme supplémentaire que tu attends
Pourquoi dans une petite macro supplémentaire tu n'enregistrerais pas
manuellement les manipulations et de récupérer le code ainsi réalisé à
rajouter en fin de celui-ci ???
Une idée comme ça
Qu'en penses tu ???
Dis moi !!!


Bonjour à tous,

J'ai une ListBox avec 4 colonnes qui est alimentée de la manière
suivante :

Set r = Range("ListeCartes!A1:" &
Worksheets("ListeCartes").Range("A65536").End(xlUp).Address)
Set r = r.SpecialCells(xlCellTypeVisible)
If Not r Is Nothing Then
ReDim temp(1 To r.Count, 1 To 4)
i = 1
For Each cell In r
temp(i, 1) = cell.Value
temp(i, 2) = cell.Offset(0, 5).Value
temp(i, 3) = cell.Offset(0, 14).Value
temp(i, 4) = cell.Offset(0, 15).Text
i = i + 1
Next cell
ReDim Preserve temp(i - 1)
End If


Ce que je souhaite, c'est :

D'aligner à gauche les données de la 1ère & 2ème colonne,
Centrer les données de la 3ème colonne et
Aligner à droite les données de la 4ème.

Comment faire.

Merci pour votre aide.
Xavier




domivax
Le #4478621
On 3 mai, 08:23, FFO
Salut à toi
Pour t'aider j'ai tenté d'executer ton code afin de lui rajouter le
complément que tu souhaites
Pb je n'ai pas tes données et la macro plante en conséquence
Difficile donc de te donner satisfaction
Visiblement ce n'est qu'une mise en forme supplémentaire que tu attends
Pourquoi dans une petite macro supplémentaire tu n'enregistrerais pas
manuellement les manipulations et de récupérer le code ainsi réalis é à
rajouter en fin de celui-ci ???
Une idée comme ça
Qu'en penses tu ???
Dis moi !!!




Bonjour à tous,

J'ai une ListBox avec 4 colonnes qui est alimentée de la manière
suivante :

Set r = Range("ListeCartes!A1:" &
Worksheets("ListeCartes").Range("A65536").End(xlUp).Address)
Set r = r.SpecialCells(xlCellTypeVisible)
If Not r Is Nothing Then
ReDim temp(1 To r.Count, 1 To 4)
i = 1
For Each cell In r
temp(i, 1) = cell.Value
temp(i, 2) = cell.Offset(0, 5).Value
temp(i, 3) = cell.Offset(0, 14).Value
temp(i, 4) = cell.Offset(0, 15).Text
i = i + 1
Next cell
ReDim Preserve temp(i - 1)
End If

Ce que je souhaite, c'est :

D'aligner à gauche les données de la 1ère & 2ème colonne,
Centrer les données de la 3ème colonne et
Aligner à droite les données de la 4ème.

Comment faire.

Merci pour votre aide.
Xavier- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


Salut,

J'ai comme l'impression que l'on ne peut pas paramétrer l'alignement
d'une colonne de ListBox, différemment des autres colonnes !

A+


Publicité
Poster une réponse
Anonyme