|
|
|
|
Configuration: Windows XP Internet Explorer 6.0
"il y a des cellules non vides entre" ce ne serait pas plutôt des cellules vides ?
un début de piste ici: http://www.commentcamarche.net/forum/affich 3241680 vba selection de cellule selon mise en form |
|
autrement, ce que tu dis me fait penser à des sous totaux ?
tu sais qu'une fois que tu as traité une liste par les sous totaux, tu peux ne faire apparaitre que ceux ci, puis ne copier que les cellules visibles (edition-atteindre-cellules-visibles uniquement) |
Merci Ga3z pour le lien je vais essayer de l'arranger à ma sauce.
Pour répondre à " "il y a des cellules non vides entre" ce ne serait pas plutôt des cellules vides ? " en fait ma liste est présentée de la manière suivante : nom1 nom1 nom1 nom2 nom2 nom2 nom2 nom3 nom3 nom4 nom4 nom4 Mais ce que je voulais bien spécifier c'est que cette liste est aléatoire (nom1 ne prend pas obligatoirement 3lignes cela peut changer). Je vais essayer également ta seconde méthode des sous-totaux ? Ce que j'ai compris par rapport à ça, c'est que j'effectue la manip " edition-atteindre-cellules-visibles uniquement " en même temps que " enregistrer une macro ". Encore merci, je te retiens au courant de mon avancement. |
la fonction sous totaux:
quand tu as une liste simple où tu veux faire des sous totaux, tu fais un tri de cette liste selon les éléments dont tu veux les sous totaux, ensuite tu vas dans le menu: données-sous totaux et tu demande ce que tu veux comme sous total ensuite tu vas voir que sur le coté de ta feuille il y a de petites croix ou des - qui te permettent de ne faire apparaitre que les sous totaux (qui sont en gras). c'est à partir de là que tu peux faire la manoeuvre atteindre, etc... si tu as vraiment besoin de copier ces données sur une autre feuille et que tu veux automatiser la chose, parc eque tu vas t'en servir souvent, effectivement tu peux passer par l'enregistrement d'une macro (mais dans ce cas il vaudra mieux inclure un code dans ta macro pour qu'elle recherche la dernière cellule non vide de la colonne et ainsi tu n'auras plus à te préoccuper de la longueur de ta plage) autrement, suivant que tu déplies ou non les sous-totaux, tu as tout sur la même feuille, c'est pratique |
|
Ca y est mon problème est résolu d'une manière archaïque mais qui marche.
Le voici : Sheets("SF").Select Range("B1").Select Range(Selection, Selection.End(xlDown)).Select Set Plage = Range("B2:B112") For Each Cellule In Plage If Cellule.Font.Bold = True Then Range(Cellule, Cellule.Offset(0, 1)).Copy Sheets("Récapitulatif").Select Range("B2").Activate Do ActiveCell.Offset(1, 0).Activate Loop Until IsEmpty(ActiveCell) ActiveSheet.Paste End If Next Cellule Merci Ga3z pour ton aide ca m'a donné des idées. |
Résultats pour [VBA] copier cellule sur une autre feuille
Résultats pour [VBA] copier cellule sur une autre feuille
Résultats pour [VBA] copier cellule sur une autre feuille
Résultats pour [VBA] copier cellule sur une autre feuille