Compter des cellules

Bonjour,

alors j'ai des inscription dans des cellules:

A1: NCA08170002
A2: NCA08170008
A3: NCA08170003
A4: NCA08170004
A5:
A6: NCA08170012
A7: NCA08170013


Comment faire pour les comtper, et marquer le nombre dans la celulle B3 par exemple??

Bonjour
Utilises simplement la formule "nbval"

Non parce que la liste evolue souvent, je voudrais parcourir ttes les cellules et compter les cellule pleines

A1: NCA08170002
A2: NCA08170008
A3: NCA08170003
A4: NCA08170004
A5:
A6: NCA08170012
A7: NCA08170013

Comment faire pour effacer les lignes qui sont vides, entre autres ici c'est la ligne 5 que je veux effacer.

Voici ce que j'ai ecrit:

Code:

---

1 2 3 4 5 6 7 8

'Effacer les lignes ou il n'y a pas de serials 'j = 2 'Do ' i = i + 1 'If Workbooks(Ref).Sheets("Stock").Cells(j, 5).Value = "" Then 'Workbooks(Ref).Sheets("Stock").Cells(j, 5).Delete 'End If 'Loop Until Workbooks(Ref).Sheets("Stock").Cells(j + 2, 5).Value = ""

---

Est-ce que toutes tes cellules que tu souhaites compter commencent par "NCA" ? Si oui, utilise un "Nb.si"

sinon pour supprimer les lignes vides tu peux utiliser le code ci-dessous

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() For i = 100 To 1 Step -1 If Cells(i, 1) = "" Then Rows(i).Delete End If Next End Sub

---

J'ai mis 100 lignes à tester mais adapte le en fonction de ton nb de lignes

ouah déjà ça ça marche merci :)