Label1.Caption ???????

[chuinul]

Bonjour à tous et à toutes,

Je voudrais afficher le nombre de colonne remplie par des valeurs dans un USF via un label.

Comment on fait ?

J'ai tester un code mais ca ne marche pas.

Je joint mon fichier xls.

Si quelqu'un pouvait regarder mon tout petit problème...

Merci d'avance

 

[Robert]

Re : Label1.Caption ???????

Bonjour Chuinul, bonjour le forum,

un proposition à l'initialisation de ton UserForm :

Private Sub UserForm_Initialize()
Dim col As Byte 'déclare la variable col
col = Sheets("Feuil2").Range("IV1").End(xlToLeft).Column 'définit la variable col
Label2.Caption = col 'affiche la variable col dans l'étiquette Label2
End Sub

 

[Excel_lent]

Re : Label1.Caption ???????

Bonjour Chuinul, Robert, aux chalands qui passent,

Une autre proposition :

Private Sub UserForm_Initialize()
  Dim dercolF2 As Byte
    
  Sheets("Feuil2").Activate
  dercolF2 = Selection.SpecialCells(xlCellTypeLastCell).Column
  Sheets("Feuil1").Activate
  Label1.Caption = "Nb de colonnes de la feuille 2 : " & dercolF2
End Sub

Avec Label1 (comme dans le titre) et surtout avec le numéro de la dernière colonne de la feuille et pas seulement de la ligne !
@+

 

[chuinul]

Re : Label1.Caption ???????

Re,

Merci beaucoup Robert. Ca marche très bien qd il n' y a pas de colonnes vide 😀 .


Mais le problème c'est que j'en ai et il les comptabilises. Quelle serait la formule pour compter seulement les colonnes remplies sans prendre en compte les colonnes vides.

Ex : ColA vide/ ColB remplie/ ColC remplie/ ColD vide/ ColE remplie ...

Ps :Le traitement se fait toujours sur la première ligne de chaque colonne.


Merci d'avance

 

[Robert]

Re : Label1.Caption ???????

Bonjour le fil, bonjour le forum,

Hé oui Chuinul ça marche pas si il y a des colonnes vide mais dans ton exemple il n'y en avait pas non plus...


Essaie comme ça :

Private Sub UserForm_Initialize()
Dim nb As Byte
With Sheets("Feuil2")
    nb = Application.WorksheetFunction.Count(Rows(1))
End With
Me.Label2.Caption = nb
End Sub

 

[chuinul]

Re : Label1.Caption ???????

Salut Robert,

Effectivement j'ai oublier!!!!

J'ai tester ton code et il m'affiche 0. 😕

Alors je l'ai un peut modifier :

Private Sub UserForm_Initialize()

Dim nb As Byte

Sheets("Feuil2").Activate
nb = Application.WorksheetFunction.Count(Rows(1))
Label2.Caption = nb


End Sub

Encore merci pour tout

Bonne fin de journée 😀