Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon
problème, et je les remercie, à savoir compter à des fins statistiques, les
cellules saisies (dans des bilans par exemple).
Il me manque une partie de la solution, je souhaiterais que les valeurs
nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des
saisies.
Pourriez-vous m'indiquer comment compléter la macro suivante proposée par
nos deux collègues ?
Sub je_compte()
If Selection.Count < 1 Then
Cells.Select
End If
Selection.SpecialCells(xlCellTypeConstants, 1).Select
MsgBox Selection.Count
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie ça :
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count - WorksheetFunction.CountIf(Selection, 0) End Sub
Cordialement. Daniel "Michir" a écrit dans le message de news: 435a58a2$0$17217$
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub
Merci,
Bonjour.
Essaie ça :
Sub je_compte()
If Selection.Count < 1 Then
Cells.Select
End If
Selection.SpecialCells(xlCellTypeConstants, 1).Select
MsgBox Selection.Count - WorksheetFunction.CountIf(Selection, 0)
End Sub
Cordialement.
Daniel
"Michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
435a58a2$0$17217$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon
problème, et je les remercie, à savoir compter à des fins statistiques,
les cellules saisies (dans des bilans par exemple).
Il me manque une partie de la solution, je souhaiterais que les valeurs
nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des
saisies.
Pourriez-vous m'indiquer comment compléter la macro suivante proposée par
nos deux collègues ?
Sub je_compte()
If Selection.Count < 1 Then
Cells.Select
End If
Selection.SpecialCells(xlCellTypeConstants, 1).Select
MsgBox Selection.Count
End Sub
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count - WorksheetFunction.CountIf(Selection, 0) End Sub
Cordialement. Daniel "Michir" a écrit dans le message de news: 435a58a2$0$17217$
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub
Merci,
papou
Bonjour Dim rng As Range Set rng = ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 1) MsgBox Application.WorksheetFunction.CountIf(Range(rng.Address), "<>0")
Cordialement Pascal
"Michir" a écrit dans le message de news: 435a58a2$0$17217$
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub
Merci,
Bonjour
Dim rng As Range
Set rng = ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 1)
MsgBox Application.WorksheetFunction.CountIf(Range(rng.Address), "<>0")
Cordialement
Pascal
"Michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
435a58a2$0$17217$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon
problème, et je les remercie, à savoir compter à des fins statistiques,
les cellules saisies (dans des bilans par exemple).
Il me manque une partie de la solution, je souhaiterais que les valeurs
nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des
saisies.
Pourriez-vous m'indiquer comment compléter la macro suivante proposée par
nos deux collègues ?
Sub je_compte()
If Selection.Count < 1 Then
Cells.Select
End If
Selection.SpecialCells(xlCellTypeConstants, 1).Select
MsgBox Selection.Count
End Sub
Bonjour Dim rng As Range Set rng = ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 1) MsgBox Application.WorksheetFunction.CountIf(Range(rng.Address), "<>0")
Cordialement Pascal
"Michir" a écrit dans le message de news: 435a58a2$0$17217$
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub
Merci,
Michir
Désolé, Daniel et Papou, cela ne fonctionne pas Merci quand même Michel
Michir wrote:
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub
Merci,
Désolé, Daniel et Papou, cela ne fonctionne pas
Merci quand même
Michel
Michir wrote:
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon
problème, et je les remercie, à savoir compter à des fins
statistiques, les cellules saisies (dans des bilans par exemple).
Il me manque une partie de la solution, je souhaiterais que les
valeurs nulles (zéros) ne soient pas comptées car elles ne
correspondent pas à des saisies.
Pourriez-vous m'indiquer comment compléter la macro suivante proposée
par nos deux collègues ?
Sub je_compte()
If Selection.Count < 1 Then
Cells.Select
End If
Selection.SpecialCells(xlCellTypeConstants, 1).Select
MsgBox Selection.Count
End Sub
Désolé, Daniel et Papou, cela ne fonctionne pas Merci quand même Michel
Michir wrote:
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub
Merci,
Daniel
Pour plus de lisibilité, je proposerai de remplacer :
;-)) Daniel "Daniel" a écrit dans le message de news: %23$TZ%
Bonjour. Essaie ça :
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count - WorksheetFunction.CountIf(Selection, 0) End Sub
Cordialement. Daniel "Michir" a écrit dans le message de news: 435a58a2$0$17217$
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub
Merci,
Pour plus de lisibilité, je proposerai de remplacer :
;-))
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23$TZ%23By1FHA.3124@TK2MSFTNGP12.phx.gbl...
Bonjour.
Essaie ça :
Sub je_compte()
If Selection.Count < 1 Then
Cells.Select
End If
Selection.SpecialCells(xlCellTypeConstants, 1).Select
MsgBox Selection.Count - WorksheetFunction.CountIf(Selection, 0)
End Sub
Cordialement.
Daniel
"Michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
435a58a2$0$17217$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon
problème, et je les remercie, à savoir compter à des fins statistiques,
les cellules saisies (dans des bilans par exemple).
Il me manque une partie de la solution, je souhaiterais que les valeurs
nulles (zéros) ne soient pas comptées car elles ne correspondent pas à
des saisies.
Pourriez-vous m'indiquer comment compléter la macro suivante proposée par
nos deux collègues ?
Sub je_compte()
If Selection.Count < 1 Then
Cells.Select
End If
Selection.SpecialCells(xlCellTypeConstants, 1).Select
MsgBox Selection.Count
End Sub
;-)) Daniel "Daniel" a écrit dans le message de news: %23$TZ%
Bonjour. Essaie ça :
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count - WorksheetFunction.CountIf(Selection, 0) End Sub
Cordialement. Daniel "Michir" a écrit dans le message de news: 435a58a2$0$17217$
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub
Merci,
Daniel
Bonsoir Pascal. Y a une ruse dans Range(rng.Address) ? Cordialement. Daniel "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: %
Bonjour Dim rng As Range Set rng = ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 1) MsgBox Application.WorksheetFunction.CountIf(Range(rng.Address), "<>0")
Cordialement Pascal
"Michir" a écrit dans le message de news: 435a58a2$0$17217$
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub
Merci,
Bonsoir Pascal.
Y a une ruse dans Range(rng.Address) ?
Cordialement.
Daniel
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%23vj1OCy1FHA.3180@TK2MSFTNGP14.phx.gbl...
Bonjour
Dim rng As Range
Set rng = ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 1)
MsgBox Application.WorksheetFunction.CountIf(Range(rng.Address), "<>0")
Cordialement
Pascal
"Michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
435a58a2$0$17217$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon
problème, et je les remercie, à savoir compter à des fins statistiques,
les cellules saisies (dans des bilans par exemple).
Il me manque une partie de la solution, je souhaiterais que les valeurs
nulles (zéros) ne soient pas comptées car elles ne correspondent pas à
des saisies.
Pourriez-vous m'indiquer comment compléter la macro suivante proposée par
nos deux collègues ?
Sub je_compte()
If Selection.Count < 1 Then
Cells.Select
End If
Selection.SpecialCells(xlCellTypeConstants, 1).Select
MsgBox Selection.Count
End Sub
Bonsoir Pascal. Y a une ruse dans Range(rng.Address) ? Cordialement. Daniel "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: %
Bonjour Dim rng As Range Set rng = ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 1) MsgBox Application.WorksheetFunction.CountIf(Range(rng.Address), "<>0")
Cordialement Pascal
"Michir" a écrit dans le message de news: 435a58a2$0$17217$
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub
Merci,
Daniel
On ne doit pas se comprendre. Peux-tu nous donner un échantillon de 3, 4 cellules avec ce qu'il y a dedans et le résultat que tu veux trouver ? Daniel "Michir" a écrit dans le message de news: 435a63b2$0$27416$
Désolé, Daniel et Papou, cela ne fonctionne pas Merci quand même Michel
Michir wrote:
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub
Merci,
On ne doit pas se comprendre. Peux-tu nous donner un échantillon de 3, 4
cellules avec ce qu'il y a dedans et le résultat que tu veux trouver ?
Daniel
"Michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
435a63b2$0$27416$8fcfb975@news.wanadoo.fr...
Désolé, Daniel et Papou, cela ne fonctionne pas
Merci quand même
Michel
Michir wrote:
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon
problème, et je les remercie, à savoir compter à des fins
statistiques, les cellules saisies (dans des bilans par exemple).
Il me manque une partie de la solution, je souhaiterais que les
valeurs nulles (zéros) ne soient pas comptées car elles ne
correspondent pas à des saisies.
Pourriez-vous m'indiquer comment compléter la macro suivante proposée
par nos deux collègues ?
Sub je_compte()
If Selection.Count < 1 Then
Cells.Select
End If
Selection.SpecialCells(xlCellTypeConstants, 1).Select
MsgBox Selection.Count
End Sub
On ne doit pas se comprendre. Peux-tu nous donner un échantillon de 3, 4 cellules avec ce qu'il y a dedans et le résultat que tu veux trouver ? Daniel "Michir" a écrit dans le message de news: 435a63b2$0$27416$
Désolé, Daniel et Papou, cela ne fonctionne pas Merci quand même Michel
Michir wrote:
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub
Merci,
Michir
Supposons une mini-plage de 2 colonnes et 6 lignes donc 12 cellules avec 4 zéros et 8 valeurs différentes de zéro. Le résultat de ma macro doit donner 8 Voili, voilà
Daniel wrote:
On ne doit pas se comprendre. Peux-tu nous donner un échantillon de 3, 4 cellules avec ce qu'il y a dedans et le résultat que tu veux trouver ? Daniel "Michir" a écrit dans le message de news: 435a63b2$0$27416$
Désolé, Daniel et Papou, cela ne fonctionne pas Merci quand même Michel
Michir wrote:
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub
Merci,
Supposons une mini-plage de 2 colonnes et 6 lignes donc 12 cellules avec 4
zéros et 8 valeurs différentes de zéro. Le résultat de ma macro doit donner
8
Voili, voilà
Daniel wrote:
On ne doit pas se comprendre. Peux-tu nous donner un échantillon de
3, 4 cellules avec ce qu'il y a dedans et le résultat que tu veux
trouver ? Daniel
"Michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
435a63b2$0$27416$8fcfb975@news.wanadoo.fr...
Désolé, Daniel et Papou, cela ne fonctionne pas
Merci quand même
Michel
Michir wrote:
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à
mon problème, et je les remercie, à savoir compter à des fins
statistiques, les cellules saisies (dans des bilans par exemple).
Il me manque une partie de la solution, je souhaiterais que les
valeurs nulles (zéros) ne soient pas comptées car elles ne
correspondent pas à des saisies.
Pourriez-vous m'indiquer comment compléter la macro suivante
proposée par nos deux collègues ?
Sub je_compte()
If Selection.Count < 1 Then
Cells.Select
End If
Selection.SpecialCells(xlCellTypeConstants, 1).Select
MsgBox Selection.Count
End Sub
Supposons une mini-plage de 2 colonnes et 6 lignes donc 12 cellules avec 4 zéros et 8 valeurs différentes de zéro. Le résultat de ma macro doit donner 8 Voili, voilà
Daniel wrote:
On ne doit pas se comprendre. Peux-tu nous donner un échantillon de 3, 4 cellules avec ce qu'il y a dedans et le résultat que tu veux trouver ? Daniel "Michir" a écrit dans le message de news: 435a63b2$0$27416$
Désolé, Daniel et Papou, cela ne fonctionne pas Merci quand même Michel
Michir wrote:
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub
Merci,
Daniel
Eh bien, ça le fait !!! Daniel "Michir" a écrit dans le message de news: 435a7069$0$981$
Supposons une mini-plage de 2 colonnes et 6 lignes donc 12 cellules avec 4 zéros et 8 valeurs différentes de zéro. Le résultat de ma macro doit donner 8 Voili, voilà
Daniel wrote:
On ne doit pas se comprendre. Peux-tu nous donner un échantillon de 3, 4 cellules avec ce qu'il y a dedans et le résultat que tu veux trouver ? Daniel "Michir" a écrit dans le message de news: 435a63b2$0$27416$
Désolé, Daniel et Papou, cela ne fonctionne pas Merci quand même Michel
Michir wrote:
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub
Merci,
Eh bien, ça le fait !!!
Daniel
"Michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
435a7069$0$981$8fcfb975@news.wanadoo.fr...
Supposons une mini-plage de 2 colonnes et 6 lignes donc 12 cellules avec 4
zéros et 8 valeurs différentes de zéro. Le résultat de ma macro doit
donner 8
Voili, voilà
Daniel wrote:
On ne doit pas se comprendre. Peux-tu nous donner un échantillon de
3, 4 cellules avec ce qu'il y a dedans et le résultat que tu veux
trouver ? Daniel
"Michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
435a63b2$0$27416$8fcfb975@news.wanadoo.fr...
Désolé, Daniel et Papou, cela ne fonctionne pas
Merci quand même
Michel
Michir wrote:
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à
mon problème, et je les remercie, à savoir compter à des fins
statistiques, les cellules saisies (dans des bilans par exemple).
Il me manque une partie de la solution, je souhaiterais que les
valeurs nulles (zéros) ne soient pas comptées car elles ne
correspondent pas à des saisies.
Pourriez-vous m'indiquer comment compléter la macro suivante
proposée par nos deux collègues ?
Sub je_compte()
If Selection.Count < 1 Then
Cells.Select
End If
Selection.SpecialCells(xlCellTypeConstants, 1).Select
MsgBox Selection.Count
End Sub
Eh bien, ça le fait !!! Daniel "Michir" a écrit dans le message de news: 435a7069$0$981$
Supposons une mini-plage de 2 colonnes et 6 lignes donc 12 cellules avec 4 zéros et 8 valeurs différentes de zéro. Le résultat de ma macro doit donner 8 Voili, voilà
Daniel wrote:
On ne doit pas se comprendre. Peux-tu nous donner un échantillon de 3, 4 cellules avec ce qu'il y a dedans et le résultat que tu veux trouver ? Daniel "Michir" a écrit dans le message de news: 435a63b2$0$27416$
Désolé, Daniel et Papou, cela ne fonctionne pas Merci quand même Michel
Michir wrote:
Bonjour à tous,
Le 16 Octobre JB et Michdenis m'ont donné une solution partielle à mon problème, et je les remercie, à savoir compter à des fins statistiques, les cellules saisies (dans des bilans par exemple). Il me manque une partie de la solution, je souhaiterais que les valeurs nulles (zéros) ne soient pas comptées car elles ne correspondent pas à des saisies. Pourriez-vous m'indiquer comment compléter la macro suivante proposée par nos deux collègues ?
Sub je_compte() If Selection.Count < 1 Then Cells.Select End If Selection.SpecialCells(xlCellTypeConstants, 1).Select MsgBox Selection.Count End Sub