Discussion :

[ameura1]

Bonjour,
j'ai un petit soucis avec mon macro qui fait le même boulot que nbval.
j'ai le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
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 marche bien de toute façon mais seulement quand j'ai une colonne A à coté de B et de C
Ce que je veux c'est l'appliquer sur ma page
ou la premiére colonne est C, la deuxiéme D et la ou il affiche le calcule c'est H

Merci

[ameura1]

C'est bon j'ai la solution.
Il suffit de modifier dans l'offset

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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