Créer un USF via macro

[LaurentG]

Bonjour,

Je cherche à créer un usf avec une macro avec

un label 'Nombre d'analyses :'
une textbox qui compte en adaptant la formule :

=NBVAL('EN71-3'!A13:A150)

un bouton OK qui lorsque l'on clique dessus, il va me mettre la valeur de la textbox dans la 'Feuil1' en 'A1'

Quelqu'un pourrait m'aider?

Merci

Laurent

 

[Abel]

Bonjour LaurentG,

Lorsque tu dis que la formule doit être adaptée, je suppose que tu veux dire que des lignes peuvent être ajoutées après la ligne 13 et que le tableau peut s'étendre au-delà de la ligne 150.

Si c'est cela, essaie ce code :

Sub Compte()
Dim i As Byte
Dim c As Variant
i = 0

With Worksheets('EN71-3')
For Each c In .Range('a8:a' & .Range('a65536').End(xlUp).Row)
    If c <> xlnull Then i = i + 1
Next c
MsgBox 'Il y a ' & i & ' valeurs et formules dans la plage A8:A' & _
    .Range('a65536').End(xlUp).Row
.Range('a1') = i
End With
End Sub

Si la plage de comptage est fixe, remplace la ligne 'For Each c In .Range('a8:a' & .Range('a65536').End(xlUp).Row)' par 'For Each c In .Range(LaPlage)'

Ce bout de code va compter toutes les cellules qui contiennent quelque chose. Y compris les formules ou les cellules qui ne contiennent qu'un espace. Ce qui est le cas de '=NBVAL()'

Abel.

 

[6ril]

laurentG ? laurentG ? de Agrumes ?!...