Macro : AutoSelect & AutoFill
Nago008
Messages postés
3
Statut
Membre
-
Maurice -
Maurice -
Bonjour,
Je fais à nouveau appel à vous car je cale assez bien sur une macro.
Grâce à votre précieuse aide, j'aimerais pouvoir réaliser un résumé du tableau ci-dessous
Et en faire un AutoFill comme ci-dessous
Comme vous le voyez, plusieurs problèmes se posent à moi.
Je sais comment faire en sorte de ne faire apparaitre qu'une fois chaque mois présent dans le premier tableau.
Je bloque sur l'autosélection pour ensuite pouvoir résumer chaque collonne par la suite par macro.
(Comment faire pour que ma macro s'adapte automatiquement aux nombres de mois présent dans mon tableau résumé).
Si je le fais manuellement, je ne sais pas comment faire pour ne pas me cantonner aux deux collonnes présentes dans la section Mois. Car ce ne sont pas toujours les mêmes mois qui sont présents et pas le même nombre de mois présent non plus.
Merci d'avance pour votre aide !
Votre dévoué,
NaGo !
Je fais à nouveau appel à vous car je cale assez bien sur une macro.
Grâce à votre précieuse aide, j'aimerais pouvoir réaliser un résumé du tableau ci-dessous
Et en faire un AutoFill comme ci-dessous
Comme vous le voyez, plusieurs problèmes se posent à moi.
Je sais comment faire en sorte de ne faire apparaitre qu'une fois chaque mois présent dans le premier tableau.
Je bloque sur l'autosélection pour ensuite pouvoir résumer chaque collonne par la suite par macro.
(Comment faire pour que ma macro s'adapte automatiquement aux nombres de mois présent dans mon tableau résumé).
Si je le fais manuellement, je ne sais pas comment faire pour ne pas me cantonner aux deux collonnes présentes dans la section Mois. Car ce ne sont pas toujours les mêmes mois qui sont présents et pas le même nombre de mois présent non plus.
Merci d'avance pour votre aide !
Votre dévoué,
NaGo !
5 réponses
-
Bonjour
sans modele de ton fichier dur
voila un ex AutoFil
Sub TestAutoFill()
Dernligne = Cells(Rows.Count, 1).End(xlUp).Row
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B" & Dernligne), Type:=xlFillDefault
End Sub
A+
Maurice -
Bonjour Maurice,
Merci de votre aide,
Voici mon fichier test :
http://ww1.partage-facile.com
Bonne soirée,
Gaëtan -
Re
passe par http://cjoint.com/ pour créer le lien
car ton lien ne marche pas cher moi
A+
Maurice -
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour
jais fait une macro
je ne peux pas lire ton fichier car je suis en excel 2003
Sub AutoF()
Flig = Cells(Rows.Count, 1).End(xlUp).Row
Range("B2:I2").Select
Selection.AutoFill Destination:=Range("B2:I" & Flig)
Range("A1").Select
End Sub
A+
Maurice
