Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3444 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Nombre de cellules

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Nombre de cellules

n°2004994
grosquick5​9
Posté le 26-06-2010 à 21:14:33  profilanswer
 

Bonjour,  
est-il possible de comptabiliser le nombre de cellules sélectionnées et insérer le nombre dans une autre cellules ?
 
 
grosquick

mood
Publicité
Posté le 26-06-2010 à 21:14:33  profilanswer
 

n°2005135
kiki29
Posté le 28-06-2010 à 05:59:05  profilanswer
 

Salut,


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

n°2005405
grosquick5​9
Posté le 28-06-2010 à 18:22:30  profilanswer
 

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

n°2005448
kiki29
Posté le 28-06-2010 à 19:41:13  profilanswer
 

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
n°2005460
grosquick5​9
Posté le 28-06-2010 à 20:21:51  profilanswer
 

Magnifique !
Merci kiki29 ça fonctionne parfaitement.

n°2005486
kiki29
Posté le 28-06-2010 à 21:30:14  profilanswer
 

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
n°2005513
grosquick5​9
Posté le 28-06-2010 à 22:53:11  profilanswer
 

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
n°2005832
galopin01
Posté le 29-06-2010 à 17:17:21  profilanswer
 

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

n°2005876
grosquick5​9
Posté le 29-06-2010 à 21:48:16  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Nombre de cellules

 

Sujets relatifs
Copier/coller des cellules sous conditionprendre des cellules en fonction du n° client
nombre de pagesMacro oublie des cellules [Résolu]
Copier Coller des cellules sous conditionsmacro permettant de créer un nombre de feuille suivant une cellule
Cocoon et nombre de styles excel[Excel]Compter nombre de cellules sur colonne
selectionner une plage de cellules dont le nombre varieComment insérer un caractère dans 9000 cellules contenant un nombre
Plus de sujets relatifs à : Nombre de cellules


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR