Macro : AutoSelect & AutoFill

Nago008 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
 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 !



A voir également:

5 réponses

Maurice
 
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
1
Nago008 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour Maurice,

Merci de votre aide,

Voici mon fichier test :

http://ww1.partage-facile.com

Bonne soirée,

Gaëtan
0
Maurice
 
Re

passe par http://cjoint.com/ pour créer le lien

car ton lien ne marche pas cher moi

A+
Maurice
0
Nago008 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Comme ceci ? :)

https://www.cjoint.com/?0JpxUfsmrU3

Merci :)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Maurice
 
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
0