J'ai une ListBox avec 4 colonnes qui est aliment=E9e de la mani=E8re
suivante :
Set r =3D Range("ListeCartes!A1:" &
Worksheets("ListeCartes").Range("A65536").End(xlUp).Address)
Set r =3D r.SpecialCells(xlCellTypeVisible)
If Not r Is Nothing Then
ReDim temp(1 To r.Count, 1 To 4)
i =3D 1
For Each cell In r
temp(i, 1) =3D cell.Value
temp(i, 2) =3D cell.Offset(0, 5).Value
temp(i, 3) =3D cell.Offset(0, 14).Value
temp(i, 4) =3D cell.Offset(0, 15).Text
i =3D i + 1
Next cell
ReDim Preserve temp(i - 1)
End If
Ce que je souhaite, c'est :
D'aligner =E0 gauche les donn=E9es de la 1=E8re & 2=E8me colonne,
Centrer les donn=E9es de la 3=E8me colonne et
Aligner =E0 droite les donn=E9es de la 4=E8me.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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.
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
On 3 mai, 08:23, FFO wrote:
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+
On 3 mai, 08:23, FFO <F...@discussions.microsoft.com> wrote:
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 !
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 !