Nombre de cellules = 0 dans une colonne

Question

Bonjourà tous,

Merci d'avoir supprimé mon msg qui était dans un topic mal placé et fermé et désolé pour ce désagrément.

Je rencontre un probleme dans ma programmation VBA.

Je voudrais compter le nombre de cellules = 0 consécutives dans une colonne, au dessus d'une cellule donnée. Ensuite je porterais des conditions sur ce nombre.

Voici en exemple ce que je voudarsi faire.

nombre de cellules = 0 consécutives dans une colonne = nbre_0_conseq

If nbre_0_conseq >100 then
____________

ElseIf nbre_0_conseq >50 then
___________

ElseIf nbre_0_conseq >10 then
___________

End If

Je ne parviens pas à trouver un code qui me fasse le calcule de "nbre_0_conseq"

Pouvez-vous m'aider?

Merci d'avance

Fxbrg · Answer

Pas très propre, mais ça marche... :-)

Mets tes données en B1:B23

Private Sub CommandButton3_Click()
Dim i, j, k, l As Integer
k = 1
For i = 1 To 23
    If Cells(i, 2) = 0 Then
        For j = i + 1 To 23
            If Cells(j, 2) = 0 Then
                k = k + 1
                l = k
            Else
                i = j + 1
                k = 1
                Exit For
            End If
        Next
    End If
Next
MsgBox l
End Sub

:-)

Fxbrg · Answer

Oops, non ça ne marche pas...!! Une minute :-)

Il manquait une ligne : 

Private Sub CommandButton3_Click()
Dim i, j, k, l As Integer
k = 1
For i = 1 To 23
    If Cells(i, 2) = 0 Then
        For j = i + 1 To 23
            If Cells(j, 2) = 0 Then
                k = k + 1
                If k > l Then l = k
            Else
                i = j + 1
                k = 1
                Exit For
            End If
        Next
    End If
Next
MsgBox l
End Sub

Nombre de cellules = 0 dans une colonne

2 réponses

Discussions similaires

Newsletters