Créer un USF via macro

LaurentG · 23 Novembre 2005

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 · 23 Novembre 2005

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 :

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 · 23 Novembre 2005

laurentG ? laurentG ? de Agrumes ?!...

Créer un USF via macro

LaurentG

XLDnaute Occasionnel

Abel

XLDnaute Accro

6ril

Guest

Discussions similaires

Créer un USF via macro

LaurentG

XLDnaute Occasionnel

Abel

XLDnaute Accro

6ril

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency