Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Nb de cellules non vides dans une plage et VBA international ?

892 views
Skip to first unread message

Flo

unread,
Sep 15, 2000, 3:00:00 AM9/15/00
to
Bonjour,
J'ai besoin de compter dans une plage le nombre de cellules non vides.
Ca doit être tout bete avec application.Nbsi mais... si je pose la question
c'est que ça coince !

Apparemment, en anglais la fx Nbsi s'appelle countif. Si je veux passer mon
appli VBA à des collègues américains , qui ont donc une version anglaise
d'excel, pourront-ils l'utiliser ? Puis-je moi utiliser dans excel fr les
instructions excel anglaises ?

Merci pour le concours de vitesse pour la réponse à ma question précédente
(le 13)!

Flo

AV

unread,
Sep 15, 2000, 3:00:00 AM9/15/00
to
Msgbox Sélection.SpecialCells(xlCellTypeVisible).Count
AV
Flo <fca...@vjf.cnrs.fr> a écrit dans le message :
OU$6vduHAHA.285@cppssbbsa04...

Flo

unread,
Sep 15, 2000, 3:00:00 AM9/15/00
to
Ben, ca me donne le nb total de cellules dans la plage mais pas le nb de
cellules ayant quelque chose dedans...
Merci qd même
Flo


AV a écrit dans le message <8pso1r$fhs$1...@wanadoo.fr>...
>Msgbox Sélection.SpecialCells(xlCellTypeVisible).Count
>AV


Laurent Longre

unread,
Sep 15, 2000, 3:00:00 AM9/15/00
to

Application.CountA(Plage)

Laurent

Flo a écrit :

Flo

unread,
Sep 15, 2000, 3:00:00 AM9/15/00
to

Aie Aie aie... Ca marche toujours pas. countA renvoie 1, count renvoie 0
alors que la valeur attendue est 10

Je suis sous excel2000 en français. Dans l'aide de VBA, on me propose Nb.si,
Nb.vide (qui renvoient tous deux une erreur "objet requis" mais pas CountA
ou CountBlank (qui renvoient tout deux une valeur fausse). En revanche quand
je tape le code, l'aide automatique me propose CountA et CountBlank mais pas
Nb.Si...

J'ai réussi à compter le nombre total de cellules et a en soustraire les
cellules vides :

cellulesvides = Selection.SpecialCells(xlCellTypeBlanks).Count
CellulesNonVides= Selection.Count - cellulesvides


Laurent Longre a écrit dans le message <39C1EC0B...@free.fr>...
>
>Application.CountA(Plage)
>
>Laurent
>


isabelle

unread,
Sep 15, 2000, 3:00:00 AM9/15/00
to
Bonjour Flo

Dim x
x = Application.CountA(Range("A:A"))

isabelle

Flo a écrit :

AV

unread,
Sep 16, 2000, 3:00:00 AM9/16/00
to
Ou encore
x =
Selection.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants,
23).Count
AV
isabelle <amu....@videotron.net> a écrit dans le message :
39C23FF7...@videotron.net...

GEEDEE

unread,
Sep 18, 2000, 3:00:00 AM9/18/00
to Flo
Flo a ecrit:
  ../..
  Si je veux passer mon appli VBA à des collegues américains , qui ont donc une version anglaise d'excel,
  pourront-ils l'utiliser ? Puis-je moi utiliser dans excel fr les instructions excel anglaises ?
 ../..
 -------------------------oooooOOOOOooooo----------------------
En esperant aider :
Pour l'avoir professionnellement durement experimente : (FR => Espagne, Slovenie,Turquie)

A : dans les feuilles de calculs :
- les formules sont automatiquement traduites dans la langue locale du collegue.
        1ere reserve : les macros dites "complementaires"  ne sont pas toutes implementees dans la langue du collegue.
        2eme reserve : les macros dites "complementaires" lorsqu'elles existent dans la langue du collegue n'ont pas le meme nom qu'en français.(ex:  atpvbafr.xla  <=>  atpvba??.xla)

B : dans les modules code VBA:
     -  pour l'internationalisation, il est imperatif de developper les macros VBA en langue US

    - en EXCEL 7.0 il existe une macro complementaire de traduction  FR <=> US  (Us_fr.XLA).
    - pour le fonctionnement de macro FR(non traduites) sur un poste etranger il faut installer les Dll françaises
    vbafr32.dll et vbafr32.olb (menu outils/references)
    -  je n'ai pas connaissance de macro complementaire standard de traduction FR <=> langue autre que US
     -------------------------oooooOOOOOooooo----------------------
- j'ai ete conduit a me bricoler un traducteur Anglais, Français, Espagnol qui traduit les macros mais pas les boites de dialogues,
- je ne possede pas les equivalents du fichier listevba.xls pour d'autres langues qui permettrai d'ameliorer ce traducteur.
- pour traduire les textes des boites de dialogues et boites de message, j'utilise par macro une table d'equivalence (propre à l'application)  qui est appelee en fonction de la langue locale.
 
réponses dans le fil du forum.

0 new messages