Macro de type nbval

Bonsoiiir,

Je voudrais créer un macro qui fasse le même boulot que nbval.

Je m'explique: il y'a deux colonnes qui contiennent plusieurs champs=> ce que je veux c'est de faire un macro qui dans la troisiéme colonne me renvoi si dans les deux précédentes colonnes il y'a deux valeurs ou une ou zero.

Par ex : s'il ya une valeur dans la colonne 1 et une autre dans la colonne 2 , dans la colonne 3 il serait marqué 2

et ainsi de suite...

Je joins mon fichier pour plus de détails.

Merci à vous.

Bonjour,

Une proposition à tester

Sub NombreValeurs()
Dim Cel As Range
    For Each Cel In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
        Cel.Offset(0, 2) = Application.CountA(Cel.Resize(1, 2))
    Next Cel
End Sub

A+

Bonjour,

Mais oui ça marche trop bien ,

Je veux juste savoir un truc => je fais comment pour changer afin de l'adapter au colonne=> je travaille sur les colonnes C, D et affiche dans H.

J'ais mis Offset (5,6) mais ça a pas marché.

Je veux en quelque sorte comprendre le code un peu.

J'ai joins le fichier original.

Merciii Beaucoup frangy.

Bon j'ai trouvé la solution=>

Sub NombreValeurs()
Dim Cel As Range
    For Each Cel In Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
        Cel.Offset(0, 5) = Application.CountA(Cel.Resize(1, 2))
    Next Cel
End Sub

Il fallait changer le Range et l'Offset.

merci frangy c'est grace à toi.