XL 2010 diminuer colonne listview

[gena]

bonsoir le forum
voila mon petit soucis j'ai un listview ou je vois pas tout mes colonnes voila le code que j'ai j'aimerais si vous pouvais me dire comment et ou pour changé ses colonnes
avec tout mes remerciment
Private Sub UserForm_Initialize()
Dim i As Integer, j As Integer
With ListView1
With .ColumnHeaders ' Definir less entetes de colonnes
.Clear
For i = 1 To 29 ' 5 colonne
.Add , , Cells(3, i), 45 ' Creation des titres en fonction de la ligne 19
Next i
End With
' Ensuite on defini les ligne (avec en colonne 1 l'index)
For i = 1 To 11
.ListItems.Add , , Range("A" & i + 3).Value ' Chacune des lignes
Next i
' ensuite on remplit les colonnes (Sur la feuille de 2 à 5, mais dans listview 1 à 4)
For i = 1 To 11
For j = 2 To 12
.ListItems(i).SubItems(j - 1) = Cells(i + 3, j)
Next j
Next i
End With
End Sub

 

[_Thierry]

Bonsoir @gena , le Forum

Je pense que tu n'a pas de réponse car sans fichier exemple (sans donnée confidentielle) il est très difficile de te répondre...
Je viens d'essayer de simuler ton code sur un classeur vierge et il semble que tu alimentes la première ligne de la ListView1 avec les rows de la feuille active... C'est déjà bizare ça...

Bien à toi, à vous
@+Thierry

 

[eriiic]

Bonjour à tous,

For i = 1 To 29 ' 5 colonne
.Add , , Cells(3, i), 45 ' Creation des titres en fonction de la ligne 19
Next i

Si on tient compte des commentaires, il n'y a que Next i de cohérent là-dedans non ?
eric

 

[_Thierry]

Bonsoir @eriiiic ,

Oui je me demande ce que le 45 fait là LoL, mais le pire c'est que ca ne bug pas à l'écécution, sauf que ca fait n'importenawak dans la ListView !

@+Thierry

 

[eriiic]

45 c'est la largeur de la colonne.
On peut la déclarer dans l'entête.
Ce qui me choquait c'est ligne 3 vs 19. Faudrait savoir 🙂
Mais ça fait quand même 29 colonnes au lieu de 5. Ca ne doit pas aider pour la lisibilité ;-)
eric

 

[_Thierry]

Ah oui merci @eriiiic c'est tellement confus ce code que je n'ai même pas capté !
Oui @gena , un fichier exemple, serait bien bienvenu, car là on patauge !

@+Thierry

 

[jmfmarques]

Bonjour à tous
Nous avons là selon moi un exemple classique où :
- on a copié/collé un code qui fonctionne dans le classeur où il se trouvait
- on n'y a rien compris, au point que l'on a laissé intacts les commentaires (pensant peut-être qu'ils étaient partie intégrante du code)
- on vient demander ailleurs d'adapter ce code à son propre besoin
Je "passe" généralement mon chemin lorsque je constate ce "genre".
Amitiés

 

[gena]

bonjour le forum
merci pour vos réponses
effectivement je me suis trompé dans les copie des codes grâce a vos commentaire
je revois la copie et je reviendrais avec un fichier
encore tout mes excuses