Utilisation de Nbval en vba

L

let88

Guest

• 13 Novembre 2007

• #2

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

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 13 Novembre 2007

• #3

Re : Utilisation de Nbval en vba

Bonjour

Sans garantie (Pas testé)

Code:

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

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 13 Novembre 2007

• #4

Re : Utilisation de Nbval en vba

Bonjour let88

Pour compter les cellules non vides utilise ceci :

Code:

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

Sinon pour remplir ta listbox tu peux faire comme ceci :

Code:

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

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 13 Novembre 2007

• #5

Re : Utilisation de Nbval en vba

bonsoir bqtr

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

 

Vote positif 0 Vote négatif

L

let88

Guest

• 14 Novembre 2007

• #6

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

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 14 Novembre 2007

• #7

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

 

Vote positif 0 Vote négatif