Sélectionner plusieurs cellules en macros?

Résolu
Matrium Messages postés 5 Statut Membre -  
Matrium Messages postés 5 Statut Membre -
Bonjour,

J'aimerais savoir s'il est possible de 'compter' un certain nombre de cellules excel en passant par visual basic. Le but de cette opération est de calculer une moyenne.

Voici en mot ce que je voudrais faire:

variable=nombre de cellule sélectionné
somme=addition des cellules sélectionné
moyenne= somme/variable

Je suis actuellement capable de faire la boucle pour additionné les cellules mais j'ai besoin d'avoir le nombre de cellules sélectionné..

Quelqu'un pourrait m'aider?

Merci beaucoup.

2 réponses

  1. dobo69 Messages postés 1593 Date d'inscription   Statut Membre Dernière intervention   835
     
    bonjour,

    le petit code ci-dessous renvoie le nombre de cellules d'une selection :

    Sub compte_cellules()
    Set Plage = Application.InputBox(prompt:="Sélectionner la plage", Type:=8)
    nombre = Plage.Cells.Count
    MsgBox ("Le nombre de cellules est " & nombre)
    End Sub
    0
    1. dobo69 Messages postés 1593 Date d'inscription   Statut Membre Dernière intervention   835
       
      Pour info,
      la fonction
      =MOYENNE(plage)
      fait cela très bien aussi.
      0
  2. Matrium Messages postés 5 Statut Membre
     
    Bonjour,

    Merci de ta réponse rapide!

    Juste une autre peite question stupide un peu.. Qu'est-ce qu'une plage??

    Merci encore!
    0
    1. dobo69 Messages postés 1593 Date d'inscription   Statut Membre Dernière intervention   835
       
      Dans mon exemple "plage" n'est qu'une variable de type Range qui contient la sélection sur laquelle on travaille.
      Range est un objet VBA : (voir l'aide sur ce sujet (via l'éditeur VBA Excel)
      Référence du développeur Excel 
      Range, objet 
      Cette collection représente une cellule, une ligne, une colonne ou une sélection de cellules contenant un ou plusieurs blocs contigus de cellules ou une plage 3D.


      Si on sélectionne toujours la plage A1:C3 par exemple, on pourrait écrire dans le code ci-dessus :
      nombre=Range("A1:C3").Cells.Count
      en lieu et place de la 3°ligne
      0
    2. Matrium Messages postés 5 Statut Membre
       
      Parfait!
      Ton aide est très apprécier!

      Merci
      0