J' ai le code suivant qui me permet de compter mon nbre de lignes remlies
Private Sub UserForm_Activate()
With Application.WorksheetFunction
UserForm1.TextBox1.Value .CountA(Sheets("TMP").Range("A35:A135"))
Elle focntionne correctement si la feuille n' a pas de formules, et le pb c' est que je veux l' applique sur des feuilles à formules. Y a t' il un moyen de contourne le pb.
Merci d' avance pour toute aide
Aladin
Je te remercie pour ta réponse mais j' ai essaye et cela ne marche pas, le pb c' est que dans mes cellules j' ai du texte et des chiffres et des formules.
Aladin
Function remplies(champ As Range)
temp = champ
For Each c In temp
If c <> 0 And c <> "" Then n = n + 1
Next
remplies = n
End Function
Sub essai()
x = remplies([C3:C10])
MsgBox x
End Sub
Bonjour Temjeh, Boigontier et le forum
Temjeh, oui c' est exact ca fonctionne mais compte aussi les lignes à frormules sans donnés dans les cellules.
Boisgontier je vais teste ta solution et cous tiens informé
Aladin
Bonjour le forum
En remplacement du nbval j' ai teste cette solution quii fonctionne
=SOMMEPROD(--(A2:A135<>"")). Comment faire pour le passe en parametre dans une macro, voici ce qui a ét fait pour le nbval
Private Sub UserForm_Activate()
With Application.WorksheetFunction
UserForm1.TextBox1.Value .CountA(Sheets("TMP").Range("A35:A135"))
Merci d' avance pour les réponses
Aladin