Discussion :

[pilounet54]

bonjour pouvez vous corriger svp les erreurs ?
je souhaite à partir de la ligne 3 compter toutes la colonne A

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub CompteurZero()
Dim i As Integer
Dim Compteur As Integer
 
 
i = 1
Compteur = 0
 
Do While Range(>2,"A" & i).Value <> ""
 
 If Range(>2, "A" & i).Value = 0 Then
       Compteur = Compteur + 1
   Else
       Compteur = 0
 End If
 
 i = i + 1
Loop
 
'Copie de la valeur Compteur dans la cellule AD3
Range("AD3").Value = Compteur
 
End Sub

merci d'avance

[Philippe Tulliez]

Bonjour,
Tu veux compter quoi exactement ?
Le nombre de cellules remplies dans une colonne à partir de la ligne 3 ?
Si c'est le cas, il existe une formule toute faite qui se nomme NBVAL que tu peux utiliser également dans VBA.

[pilounet54]

Je souhaite juste ,que l'on modifie cette fonction pour compter tous les "1", exemple sur la colonne "A" mais à partir de ligne 3, bien sur que tu as raison une formule c'est bien mais quand tu en as des centaines et des centaines , je souhaite faire autrement pour ne plus voir les formules
merci d'avance et bonjour à tous ,content de vous retrouver

[vinc_bilb]

Bonjour,

Quelque-chose du type (à adapter, testé) ci dessous devrait le faire:

Code :

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

1
2
3
' A adapter si ça ne commence pas en A1
Set InpRng = Range("A:A").SpecialCells(xlCellTypeConstants).Offset(3, 0).Resize(InpRng.Rows.Count - 2)
Cnt = WorksheetFunction.CountIf(InpRng, 1)

[pilounet54]

Merci juste une question es qu'il à une déclaration à faire ?
car cnt vide erreur 424 objet requis ? merci

[vinc_bilb]

Bonjour,

Voici le code complet que j'ai testé, mais je ne sais pas si la worksheet fonction est la même entre excel français et anglais ... A noter que ce code compte à partir de la ligne 3

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ComptColA()
 
Dim InpRng As Range
Dim Cnt As Double
 
Set InpRng = Range("A3").CurrentRegion
Debug.Print InpRng.Address
 
' A adapter si ça ne commence pas en A1
Set InpRng = Range("A:A").SpecialCells(xlCellTypeConstants).Offset(2, 0).Resize(InpRng.Rows.Count - 2)
Cnt = WorksheetFunction.CountIf(InpRng, 1) ' a voir en excel Français?
 
Debug.Print InpRng.Address
 
End Sub

[pilounet54]

Écoute en français c'est très bien il a pas erreur mais cela ne fonctionne pas !

[Marc-L]

Bonjour !

mais je ne sais pas si la worksheet fonction est la même entre excel français et anglais ...

Vincent, même dans la version française d'Excel, le VBA reste nativement en anglais, que ce soit pour les dates,
les nombres (point comme séparateur), les noms de fonctions de feuille de calculs …

Il n'y a guère qu'avec la propriété FormulaLocal qu'évidemment les formules de calculs sont en français.
Personnellement dans un environnement international mieux vaut utiliser la propriété native Formula …
Et je préfère Application au lieu de WorksheetFunction …

[vinc_bilb]

Bonjour,

Avec en feuille 1 les données suivantes (1ere = A1)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
1
1
2
1
1
2
2
1
1
1
1
1
2

j'obtiens avec le code (j'avais fait une erreur, InpRng était appelé mais non défini )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ComptColA()
 
Dim InpRng As Range
Dim Cnt As Double
 
 
' A adapter si ça ne commence pas en A1
Set InpRng = Range("A:A").SpecialCells(xlCellTypeConstants)
Set InpRng = InpRng.Offset(1, 0).Resize(InpRng.Rows.Count - 1)
 
Cnt = WorksheetFunction.CountIf(InpRng, 1)
 
Debug.Print "1", InpRng.Address, Cnt
Cnt = WorksheetFunction.CountIf(InpRng, 2)
Debug.Print "2", InpRng.Address, Cnt
End Sub

les sorties suivantes (immediate window)

Code :

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

1
2
1             $A$2:$A$13     8 
2             $A$2:$A$13     4

[pilounet54]

Le code effectivement m' intéresse énormément , à la seule différence c'est que je n'ai pas de résultat, aucune erreur ? et pourtant suivi à la lettre et au chiffre
désolé cela ne fonctionne pas

[vinc_bilb]

Vous pouvez joindre un exemple de ce qui ne fonctionne pas chez vous? Il se peut qu'il y ait quelques ruses (exemple, format texte, .....)

[pilounet54]

Bonjour et merci pour votre attention voici le code dans le classeur2

[vinc_bilb]

et bien .... pas de soucis avec votre classeur (j'ai légèrement modifié la macro), et je ne vois pas d'où peut venir le pb sauf si votre config pour le calcul automatique est désactivé (Application.Calculation =xlCalculationManual)Classeur2.xlsm