Nombre de cellules = 0 dans une colonne
bicki
Messages postés
11
Statut
Membre
-
Fxbrg Messages postés 715 Statut Membre -
Fxbrg Messages postés 715 Statut Membre -
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
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
A voir également:
- Nombre de cellules = 0 dans une colonne
- Déplacer une colonne excel - Guide
- Trier une colonne excel - Guide
- Afficher le 0 devant un nombre dans excel - Guide
- Nombre de jours entre deux dates excel - Guide
- Colonne word - Guide
2 réponses
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
:-)
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
:-)
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
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
