Nombre de cellules - VB/VBA/VBS - Programmation
Marsh Posté le 28-06-2010 à 05:59:05
Salut, 
|   | 
Marsh Posté le 28-06-2010 à 18:22:30
Salut kiki29,  
j'avoue que j'ai un peu de mal à utiliser ce code je débute encore.  
Voici un lien avec mon fichier excel pour que tu visualise à quoi il ressemble. http://tsauron.free.fr/EnvoiforumV3.xls 
Je veux calculer le nombre de cellules de la page MDCcloses à partir de la ligne 6 et coller ce nombre dans une autre feuille (C7 de la feuille stats).  
Voici le code que j'essaie de faire mais qui ne fonctionne pas pour le moment: 
 
'Solution n°1 : 
 
    'Dim DernièreLigne As Long 
   ' Dim PremièreLigne As Long 
    'Sheets("MDCcloses" ).Activate 
    'PremièreLigne = Range("A1" ).End(xlDown).Row 
    'DernièreLigne = Range("A65536" ).End(xlUp).Row 
    'MsgBox "la première ligne est la " & PremièreLigne & " et la derniere ligne est " & DernièreLigne 
     
--> la solution fonctionne et me donne la première et la dernière ligne en message. Je ne sais pas encore comment faire pour copier la dernière ligne - la première ligne.  
 
 
'Solution n°2 : 
    Dim I As Long 
    Sheets("MDCcloses" ).Activate 
        I = Range("A6" ).End(xlDown).Row 
        I.Select 
        Selection.Copy 
        Sheets("Stats" ).Select 
        Range("C7" ).Select 
        activesheets.Paste 
Marsh Posté le 28-06-2010 à 19:41:13
Salut, tu parles de dénombrer le nombre de cellules et tu donnes un pseudo code qui tendrait à prouver que tu veux copier une plage vers une autre feuille , j'en reste à la 1ere hypothèse 
| Option Explicit  | 
Marsh Posté le 28-06-2010 à 21:30:14
Re, et maintenant qqs conseils et utilitaires 
Penser à baliser ton code ( Fixe ) 
Sytématiquement utiliser Option Explicit 
Utiliser également le Code Name de la feuille et non le nom d'onglet 
voir les avantages sur http://www.ozgrid.com/VBA/excel-vba-sheet-names.htm  
( le code VBA n'est pas à modifier si l'on change un nom d'onglet par exemple ) 
Smart Indenter sur http://www.oaltd.co.uk/Indenter/Default.htm 
ainsi que MZ Tools 3.0 for VBA sur http://www.mztools.com/v3/download.aspx 
et pour le zippage http://www.7-zip.org/  
ainsi que pour le compactage Excel,Word,PowerPoint,Access http://cpap.com.br/orlando/VBADeco [...] p?IdC=Help
Marsh Posté le 28-06-2010 à 22:53:11
Merci pour les liens. J'abuse un peu mais pour suivre ta logique...voici le nouveau fichier un peu plus complété.  
http://tsauron.free.fr/EnvoieForumV4.zip 
(macro utilisée pour la maj = module 8) 
(macro stats = module 9) 
 
Dans mon fichier j'ai plusieurs secteurs comme tu as pu le constaté (colonne K). A partir de la feuille principale (ListeMDC) je copie les actions de chaque secteur dans une feuille différente... Pour le moment ma macro se base sur les secteurs existants.  
Je sais qu'il est possible de demander à excel d'aller chercher le nom des secteurs colonne k, de le faire créer une nouvelle feuille du même nom pour chaque secteur et ensuite de copier les actions de chacun secteur dans leur feuille correspondante.  
Est-il possible que tu m'aiguilles un peu ? ça m'éviterait de modifier le fichier si d'autres secteurs sont rajoutés.  
 
 
 
J'espère que je suis assez clair et que tu pourras m'aider.  
 
A+
Marsh Posté le 26-06-2010 à 21:14:33
Bonjour,
est-il possible de comptabiliser le nombre de cellules sélectionnées et insérer le nombre dans une autre cellules ?
grosquick