Accueil > Forum > > > > nbre de cellule ds une selection
nbre de cellule ds une selection
vendredi 12 janvier 2007 à 14:21:07 |
nbre de cellule ds une selection

Achi
|
bonjour,
je souhaite déterminer le nbre de cellules non vide que je dispose ds une colonne.
j'ai donc écrit:
PLV = Columns(1).Find("", [A8], , , xlByRows, xlNext).Row (1er souci, il ne commence pas a la ligne 8 et me compte tout )
sinon à par ca ca fonctionne,
autre problème je fais des filtres sur cette colonne. et qd je veux lancer cette routine de calcul, il n'en tient pas compte et me prend également les lignes non filtrées.. et ca ne m'arrange pas!
alors si qq'un peut me renseigner!!!!! Achi++
|
|
vendredi 12 janvier 2007 à 14:32:55 |
Re : nbre de cellule ds une selection

mortalino
|
Salut, au niveau filtre, je ne sais pas, mais pour ton 1er problème, fait le comme ceci : PLV = Range("A8").End(xlDown) @++
--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"
|
|
vendredi 12 janvier 2007 à 15:41:29 |
Re : nbre de cellule ds une selection

casy
|
Pas sur de ton truc Mortalino, ça indique juste la première cellule vide
Sinon au niveau formule d'excel c'est NBVAL Ainsi =NbVal(A8:A50) te renvoie l nombre de cellules non vide sur la plage A8:A50
---- Sevyc64 (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #
|
|
vendredi 12 janvier 2007 à 15:48:37 |
Re : nbre de cellule ds une selection

Molenn
|
Pfff, si même Casy se met à me piquer mes réponses !  Donc, pour ton pb, effectivement, un NBVal est amplement suffisant. Et pour compter tes cellules en fonction de tes filtres, il suffit de jouer avec les NBVAL et les NB.SI en fonction de ce dont tu as besoin. Molenn
|
|
vendredi 12 janvier 2007 à 16:02:17 |
Re : nbre de cellule ds une selection

mortalino
|
Réponse acceptée !
Oui, mais j'ai pas trop compris ce qu'il voulait faire... Voici ta fonction en code :  Sub CompteCelluleVide() Dim MaPlage As Range, MaCellule As Range Dim Compteur As Integer Set MaPlage = Range("A8:A50"): Compteur = 0
For Each MaCellule In MaPlage If MaCellule.Text = vbNullString Then Compteur = Compteur + 1 Next MaCellule
MsgBox Compteur End Sub
 ~ Mortalino ~ Colorisation automatique@++
--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"
|
|
lundi 15 janvier 2007 à 10:04:20 |
Re : nbre de cellule ds une selection

Achi
|
Bonjour,
Merci pr votre aide...
en fait pr etre plus clair je me sers de ce code ds le but de connaitre le nombre de ligne que mon tableau comporte... sachant qu'il est constament modifié...
je filtre également une colonne de ce tableau (en fonction d'un critère)... le problème que j'ai toujour d'ailleurs c'est que lorsque je lance mon code après avoir filtré il me prend en compte toutes les lignes de mon tableau..
voici mon code au cas ou vous pourriez m'aider!! Public Sub NbreOt() Dim MaPlage As Range, MaCellule As Range Dim Compteur As Integer L1 = 8 Do Until Cells(L1, 1) = "" L1 = L1 + 1 Loop Set MaPlage = Range("A8:A" & L1): Compteur = 0 For Each MaCellule In MaPlage If MaCellule.Text <> vbNullString Then Compteur = Compteur + 1 Next MaCellule Worksheets(1).Label12.Caption = Compteur End Sub
voilà!! Achi ++
|
|
Cette discussion est classée dans : colonne, cellule, selection, ds, nbre
Répondre à ce message
Sujets en rapport avec ce message
selection cellule dbgrid [ par monsieurlemouche ]
salut,pardonnez moi, mais c'est assez urgent donc je poste cette question et je retouren à mes recherches (si bien que j'aurais peut-être la réponse a
selection une plage de cellule avec les numéro de ligne et de colonne [ par darkspoilt ]
Bonjour quelqu'un sait comment on peut sélectionnet plusieur cellule en entrant le numéro de ligne et le numéro de colonne j'ai essayé avec Cellsmon c
selection un element ds un types de champs menu [ par mqsi ]
salut a tous,une page html dans un webbrowser contient un champ menu suivant: [CODE]Votre opinion Très satisfaitSatisfaitIndiffér
selection cellule [ par lauron ]
bonjour, je suis débutant et après quelques recherches j'ai réussi à faire un userform pour créer et gérer une base sous excel,mais voila mon problème
Formule Excel [ par cheyenne ]
Bonjour à Tous,Je fais appel à votre sagacité pour résoudre le problème suivant car je n'arrive pas à trouver la formule adéquate.Dans un tableau de 4
[VBA-Excel] Construction d'un arbre d'appels [ par FenX ]
Bonjour, Je me retrouve face à un petit problème, j'espère que vous saurez m'indiquer une direction.
Formules de macro affichées ds cellules [ par filou ]
Bonjour,Je ne suis pas un expert Excel.J'ai fait une macro qui copie des données d'une cellule d'une feuile vers une autre d'une autre feuilVoici mon
problème combobox [ par cerrone ]
Bonjour, je n'y connais pas grand chose en programmation mais je voudrais creer un combobox à 2 colonnes dans une feuille excel, dont * la 1ere colon
Copier coller une ligne sauf cellule x [ par Cyberina ]
Bonjour, C'est un peu bête surement mais je ne trouve pas : Je veux copier coller ma ligne et j'ai ceci qui est parfait Private Sub CommandButton1_Cli
autofill de formules [ par dartagnian81 ]
salutc'est une question plus que basique mais qui me pose quelques problèmes, à moi qui n'utilise qeu très raremetn VBA.Je fais une petite macro pour
Livres en rapport
|
Derniers Blogs
[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ?MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ? par junarnoalg
La prochaine session de MyTIC aura lieu à Namur, le 23 mars prochain. Pendant presque une heure, nous parlerons de SharePoint 2010. Voici un aperçu du programme.
Accueil : 17h30 Début de la session : 18h00 - Les nouvelles int...
Cliquez pour lire la suite de l'article par junarnoalg [MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA[MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA par cyril
Le deuxième keynote du mix fut très riche en contenu. Internet Explorer 9 Juste un après le lancement de Internet Explorer 8, Microsoft a dévoilé les nouveautés de Internet Explorer 9. Désormais, IE supportera HTML5, SVG et CSS3. L'élément ...
Cliquez pour lire la suite de l'article par cyril
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|