Pb de correspondance entre listbox et label après Zoom

[mfb]

Bonjour,
J'ai transposé à une appli un fil de ROLAND du 08-09-2007portant sur zoom Usf .
Le zoom marche super bien.
Mais je ne sais si j'ai mal "copié" toujours est il qu'après un coup de zoom la correspondance entre le texte du label et les colonnes de la listbox ne" suit" pas.
Le petit fichier joint vous en dira peut être un peu plus.
Mes recherches sur le forum et mes bricolages sont restés vains.
Je me tourne vers vous pour m'aiguiller.
Merci par avance;
A+
Daniel

 

[camarchepas]

Re : Pb de correspondance entre listbox et label après Zoom

Bonjour,

Regardes dans le code du userform :

Et oui .....

Supprime le label supérieur
remplaces le code Affichage comme ceci

Sub Affichage()
 Dim Di As Integer
 Dim Tablo
  With Sheets("feuil1")
    Di = .Range("B65536").End(xlUp).Row
    Tablo = .Range(.Cells(3, 32), .Cells(Di + 1, 2))
  End With

With ListBox1
    
        .ColumnCount = 6
        .ColumnWidths = "60;60;100;90;60;60;"
    
    .List = Tablo
 
End With
End Sub

 

[mfb]

Re : Pb de correspondance entre listbox et label après Zoom

Re,
et bien si "Camarche"
j'étais parti chercher bien loin une solution que j'avais sous la main.
Alors merci et
A+
Daniel