EXCEL à VBA Résolu/Fermé

Question

Bonjour,

je travaille sur excel et vba, je voudrai savoir comment intégrer la fonction countif (nb.si) dans l'éditeur VBA.
J'en ai besoin, parce que je fais une boucle et dans le calcul il y a countif.

Merci d'avance

michel_m · Answer

tu te fous pas de moi ?
http://www.commentcamarche.net/forum/affich 12195417 vba boucle do until?#2

Cha69 · Answer

non, désolé, je croyais que ça marchait mais non!! il met la ligne en rouge mais je ne comprends pas pourquoi, c'est pour ça que j'ai cru que c'était countif.

voilà ce que j'ai écrit (numero_colonne est un paramètre de la fonction)


For i = 6 To 51 Step 3
    If Application.CountIf(Range(ListeOp, Cells(i, numero_colonne)) = 0 Then
        a = 0
    ElseIf Application.CountIf(Range(ListeEqt, Cells(i+1,1)) = 0 Then
        a = 0
    Else: a = Debit(Cells(i, numero_colonne), Cells(i + 1, numero_colonne), Vapeur)
             
        End If
        
        somme = somme + a
        a = 0
        
        Next

michel_m · Answer

si listeop est un nom de variable
Application.CountIf(Range(ListeOp), Cells(i, numero_colonne)) = 0 Then 


si listeop est un nom de groupe de cellule
Application.CountIf(Range("ListeOp"), Cells(i, numero_colonne)) = 0 Then 
edit: 14:23h
effectivement, je m'étais planté dans les parenthèses (et encore maintenant... )Donc, excuses moi pour mon coup de gueule.

Cha69 · Answer

c'est bon, les parenthèses étaient mal placées.
Merci Michel_m
est ce que je peux encore abusé de ton aide?

quand j'écris:

Function Conso_jour(numero_colonne As Integer, utilite As String)


' Déclaration des variables

Dim somme As Integer
Dim a As Integer
Dim i As Integer


' Boucle de calculs

For i = 6 To 51 Step 3
    If Application.CountIf(Range(ListeOp), Cells(i, numero_colonne)) = 0 Then
        a = 0
        
    ElseIf Application.CountIf(Range(ListeEqt), Cells(i + 1, 1)) = 0 Then
        a = 0

    Else: a = Debit(Cells(i, numero_colonne), Cells(i + 1, numero_colonne))
                 
        End If
        
        somme = somme + a
        a = 0
        
        Next
        
Conso_jour = somme
    
End Function


il n'arrive pas à calculer, je ne sais pas ou est l'erreur, je ne suis pas sure qu'il sache qu'elle est la colonne selectionnée pour le calcul.
pourtant c'est un paramètre de la fonction.

Cha69 · Answer

erreur de ma part, ça marche !!
OUF !!!