Nombre de cellules

Nombre de cellules - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 26-06-2010 à 21:14:33   

Reply

Marsh Posté le 28-06-2010 à 05:59:05    

Salut,


Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A1" ) = CLng(Target.Cells.Count)
End Sub

Reply

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

Reply

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
 
Sub Tst()
Dim LastRow As Long
    LastRow = Sheets("MDC closes" ).Range("A" & Rows.Count).End(xlUp).Row
    Sheets("Stats" ).Range("C7" ) =LastRow-5
End Sub


Message édité par kiki29 le 28-06-2010 à 19:51:04
Reply

Marsh Posté le 28-06-2010 à 20:21:51    

Magnifique !
Merci kiki29 ça fonctionne parfaitement.

Reply

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


Message édité par kiki29 le 28-06-2010 à 21:33:31
Reply

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+


Message édité par grosquick59 le 28-06-2010 à 23:07:18
Reply

Marsh Posté le 29-06-2010 à 17:17:21    

bjr,
le dernier lien ne fonctionne pas...
A+

Reply

Marsh Posté le 29-06-2010 à 21:48:16    

salut, c'est bon c'est ok pour le lien. Désolé

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed