Sujet Précédent Sujet Suivant

MacroExcel : Sélection plage de données

Résolu/Fermé
estceterre Messages postés 10 Date d'inscription mardi 26 octobre 2010 Statut Membre Dernière intervention 7 février 2011 - 8 nov. 2010 à 12:08
estceterre Messages postés 10 Date d'inscription mardi 26 octobre 2010 Statut Membre Dernière intervention 7 février 2011 - 8 nov. 2010 à 13:58
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

Réponse 1 / 4
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 8/11/2010 à 12:26
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
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
8 nov. 2010 à 13:17
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
estceterre Messages postés 10 Date d'inscription mardi 26 octobre 2010 Statut Membre Dernière intervention 7 février 2011
8 nov. 2010 à 13:58
ok ! Génial ! merci bcp !!

Bonne journée !!!
0
Réponse 2 / 4
estceterre Messages postés 10 Date d'inscription mardi 26 octobre 2010 Statut Membre Dernière intervention 7 février 2011
8 nov. 2010 à 12:26
Bonjour,

j'essaie de suite !

Merci
0
Réponse 3 / 4
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 8/11/2010 à 12:28
erreur de message
Michel
0
Réponse 4 / 4
estceterre Messages postés 10 Date d'inscription mardi 26 octobre 2010 Statut Membre Dernière intervention 7 février 2011
8 nov. 2010 à 12:51
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