MacroExcel : Sélection plage de données

Résolu
estceterre -  
Bonjour à tous,

Je suis en train de travailler sur une macro excel et je souhaite connaitre le code pour sélectionner une plage de cellules de taille variable : sur un même feuillet, la sélection des cellules peut être de 10 lignes puis de 20 lignes, etc... Cela dépend du nombre de lignes d'affilé où apparaît le nom du client. La manip d'après consiste à insérer une ligne après cette sélection et sommer le CA réalisé par ce client.

Quelqu'un peut il m'aider ??

Je vous remerciiiiiie par avance !!

Bonne journée !

4 réponses

  1. michel_m Contributeur
    bonjour,

    par ex:tes clients en colonne A les CA en colonne B
    ligne 1 réservée aux étiquettes
    plusieurs manières possibles; en voici une 

    derlig=cells(cells.rows.count,1).end(xlup).row 
range("C" & derlig+1)=application.sum(range(B2:B & derlig))

    Michel
    0
    1. michel_m Contributeur
      re,
      Je viens d'essayer chez moi 
      Sub test()
derlig = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Range("B" & derlig + 1) = Application.Sum(Range("B2:B" & derlig))
End Sub


      ca marche (il y avait des étourderiesdans la 2° ligne)

      autre méthode à déclencher avant de saisir un nouveau client 

      Sub test2()
derlig = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Rows(derlig + 1).Insert
Range("B" & derlig + 2) = Application.Sum(Range("B2:B" & derlig))

End Sub


      tu peux aussi mettre le total des CA au dessus de ta liste et écrire en C1 (en A1: clients et B1: CA)

      =SOMME(B2:B1000)
      tu as une présentation style comptable
      0
    2. estceterre Auteur
      ok ! Génial ! merci bcp !!

      Bonne journée !!!
      0
  2. estceterre Auteur
    Bonjour,

    j'essaie de suite !

    Merci
    0
    1. michel_m Contributeur
      erreur de message
      Michel
      0
      1. estceterre Auteur
        Je viens d'essayer et j'ai un message d'erreur de compilation qui s'affiche pour la end(xlup) :
        "instruction incorrecte à l'extérieur d'une procédure" ...
        0