Fonction Nbval sous VBA

[Hugues]

Bonjour,

Au sein d'une boucle je souhaiterais utiliser l'équivalent de la fonction Nbval afin de rechercher combien de cellule ne sont pas vides

Si la ligne est vide entre les colonnes C à J, mettre la valeur 0 en colonne K
Si la ligne est renseignée entre les colonnes C à J,mettre la valeur 1 en colonne K

Ci joint un exemple

Pourriez vous m'aider sur le sujet ?

Merci par avance à vous,

Hugues

 

[david84]

Re : Fonction Nbval sous VBA

Bonjour,
une possibilité parmi d'autres à tester :

Sub test()
Dim DerLigne As Long
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To DerLigne
        If Application.CountA(Cells(i, 3), Cells(i, 10)) > 0 Then
            Cells(i, 11) = 1
        Else
            Cells(i, 11) = 0
        End If
    Next i
End Sub

ou

Sub test()
Dim DerLigne As Long
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To DerLigne
        Cells(i, 11) = IIf(Application.CountA(Cells(i, 3), Cells(i, 10)) > 0, 1, 0)
    Next i
End Sub

A+

 

[Hugues]

Re : Fonction Nbval sous VBA

Bonjour Le Forum
merci pour la réponse.
Toutefois dans le code seules les colonnes 3 et 10 sont prises en comptes.
Comment faire pour que les autres colonnes le soient ( de la colonne 4 à 9) ?

Merci par avance,

Hugues

 

[david84]

Re : Fonction Nbval sous VBA

Re,
à tester :

Sub test()
Dim DerLigne As Long
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To DerLigne
        If Application.CountA(Cells(i, 3).Resize(, 8)) > 0 Then 
       'If Application.CountA(Range(Cells(i, 3), Cells(i, 10))) > 0 Then
            Cells(i, 11) = 1
        Else
            Cells(i, 11) = 0
        End If
    Next i
End Sub

ou
Même modification pour l'autre code proposé.
A+

 

[Hugues]

Re : Fonction Nbval sous VBA

Merci David pour cette aide précieuse

Ca marche impeccable