Macro : AutoSelect & AutoFill Fermé

Question

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 !



Configuration: Windows 7 / Chrome 38.0.2125.101

Maurice · Answer

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

Nago008 · Answer

Bonjour Maurice, 

Merci de votre aide, 

Voici mon fichier test : 

http://ww1.partage-facile.com

Bonne soirée, 

Gaëtan

Maurice · Answer

Re

passe par http://cjoint.com/ pour créer le lien

car ton lien ne marche pas cher moi

A+
Maurice

Nago008 · Answer

Comme ceci ? :)

https://www.cjoint.com/?0JpxUfsmrU3 

Merci :)

Maurice · Answer

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

Macro : AutoSelect & AutoFill

5 réponses

Discussions similaires