Discussion :

[flyfrog]

Bonjour,

J'ai une colonne dans une feuille excel qui contient des cellules vides et non vides genre :

toto
titi
"cell vide"
toto
toto
"cell vide"
"cell vide"
"toto"


J'aimerais savoir comment compter le nombre de cellule qui sont differents de toto et de la cellule vide. Je precise les compter et non de compter celles egales a titi directement.

Merci de votre aide

[AlainTech]

En faisant une boucle sur les éléments (cellules) du Range (la colonne).

[Ania]

Coucou voici le code pour la recherche du nombre de cellulle différente de toto et d'une cellule vide

Code :

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

1
2
3
4
5
6
 
for i = N°1ereLigne to N°DernièreLigne
  if worksheets("Ma Feuille").cells(i,N°Colonne).text<>"toto" or cells(i,N°Colonne).text<>""
    nbcellule = nbcellule+1
  end if
next i

bonne continuation

[flyfrog]

ce serait pratique si tu ecris le code. le .end(xldown) s'arrete a la premiere cellule vide et donc ne detecte pas le fait que j'ai des cellules vides

(je parlais du message d'AlainTech)

[illight]

Part dans l'autre sens alors :

Code :

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

DernièreLigne = Range("A65535").End(xlUp).Row

[Ania]

je te suis pas la

[flyfrog]

Code :

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

1
2
3
4
5
6
7
8
Range("C2").Select
NbLignesVidesInclus = Selection.SpecialCells(xlCellTypeLastCell).Row
countk = 0
For k = 1 To NbLignesVidesInclus
  If (Range("C2").Cells(k, 1) <> "toto") And (Range("C2").Cells(k, 1) <> "") Then
    countk = countk + 1
  End If
Next k