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