Compter les lignes

Salut,

en supposant que tes tarifs se trouvent colonne B entre B2 et B20, trois lignes de codes, un doit correspondre à tes besoins

Sub Compte_cellule()
MsgBox WorksheetFunction.CountIf([B2:B20], ">""") 'compte cellule texte
MsgBox WorksheetFunction.CountA([B2:B20]) 'compte cellule non vide
MsgBox WorksheetFunction.Count([B2:B20]) 'compte cellule numérique
End Sub

Re,

répondu trop vite j'ai zappé que la plage était variable, ces lignes s'adaptent automatiquement

Sub Compte_cellule()
MsgBox WorksheetFunction.CountIf(Range(Range("B2"), Range("B65000").End(xlUp)), ">""") 'compte cellule texte '.EntireRow.Insert
MsgBox WorksheetFunction.CountA(Range(Range("B2"), Range("B65000").End(xlUp))) 'compte cellule non vide
MsgBox WorksheetFunction.Count(Range(Range("B2"), Range("B65000").End(xlUp))) 'compte cellule numérique
End Sub

Re,

tu remplaces msgbox
MsgBox WorksheetFunction.Count(Range(Range("B2"), Range("B65000").End(xlUp)))
par l'adresse d'une cellule exeple la cellule B2

range("B2")= WorksheetFunction.Count(Range(Range("B2"), Range("B65000").End(xlUp)))
ou plus court
[B2]= WorksheetFunction.Count(Range(Range("B2"), Range("B65000").End(xlUp)))

Merci, ça marche très bien MAIS j'ai encore un problème, en fait, je dois effacer les lignes qui se trouvent APRES un endroit variable.
Cet endroit variable, je peux le retrouver grâce a la colonne "B" qui est emplie de "10" et lorsque cela passe à "12" c'est à partir de là que je dois effacer.
J'aurai besoin du nombre de ligne qui resteront APRES cette opération afin de faire une boucle pour calculer les prix de vente dans une nouvelle colonne.

Merci de votre aide.