Discussion :

[marinef]

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??

[David2304]

Bonjour
Utilises simplement la formule "nbval"

[marinef]

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

[marinef]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 = ""

[David2304]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[marinef]

ouah déjà ça ça marche merci