Utilisation de Nbval en vba

[let88]

Bonjour,

Je souhaite utiliser nbval dans un code pour me permettre de rentrer dans une listbox uniquement les cellules avec quelques d'écris dedans!
Voilà mon code:

'Remplissage de la liste déroulante générale
Dim i As Byte
For i = 2 To Application.nbval("A2:A51")
ListBoxenf.AddItem Sheets("enfants").Cells(i, 1).Value
Next i
End Sub

Il semblait avoir compris que application. permet de faire reference à toute fonction de Excel.

Merci

 

[let88]

Re : Utilisation de Nbval en vba

Après relecture je me rend compte que je n'ai pas vraiment fini!!! (dur de travailler toute la journée sur le pc)
Donc cette formule ne marche pas, si quelqu'un peu m'aider merci

 

[Banzai64]

Re : Utilisation de Nbval en vba

Bonjour

Sans garantie (Pas testé)

Sub test()
Dim i As Byte
  i = 2
  With Sheets("Enfants")
    While .Cells(i, 1) <> ""
      ListBoxenf.AddItem .Cells(i, 1).Value
      i = i + 1
    Wend
  End With
End Sub

 

[bqtr]

Re : Utilisation de Nbval en vba

Bonjour let88

Pour compter les cellules non vides utilise ceci :

Application.WorksheetFunction.CountA(Range("A2:A51"))

Sinon pour remplir ta listbox tu peux faire comme ceci :

Dim i As Byte
For i = 2 To 51
  if Cells(i,1) <> "" Then ListBoxenf.AddItem Sheets("enfants").Cells(i, 1).Value
Next i
End Sub

A+

Bonsoir Banzai64, pas rafraichi

 

[Banzai64]

Re : Utilisation de Nbval en vba

bonsoir bqtr

Ta méthode est meilleure parce que dans la plage on peut avoir des cases vides

 

[let88]

Re : Utilisation de Nbval en vba

Merci, ben pourtant c'est la tienne qui marche Banzai64!!! je regarderai ca bien demain mais au premier essai ca marche bien alors merci bcp, je n'hésiterai pas a reposer des questions car la rapidité des réponses est impressionnante

 

[bqtr]

Re : Utilisation de Nbval en vba

Re,


Qu'est ce qui ne marche pas avec le code que je t'ai proposé ?
Il fait exactement ce que tu demandes, à savoir remplir la listbox avec les cellules non vides de la plage A2:A51.

Le code de Banzai64 le fait aussi bien, mais il a juste un petit défaut.
Dés qu'il rencontre une cellules vide, la boucle s'arrête. Donc si en A2:A10 il y a des données et si A11 est vide, le code ignorera tout ce qu'il y a après A11 même si il y a des données dans les autres cellules.


Bonne journée