Simplification de macro sur Excel - Logiciels - Windows & Software
MarshPosté le 12-07-2007 à 10:54:21
Bonjour à tous.
Je cherche à faire une macro sous Excel permettant de copier le contenu d'une même case de chaque onglet, par exemple la case F13, sur un dernier onglet, par exemple "cumul".
Il faut également que les données automatiquement copié ne se chevauche pas dans le dernier onglet, donc se copie en A1,A2,A3, etc.
Je suis arrivé à faire cette macro (merci p'tit loup ) mais je dois rentrer à la main le nom de chaque onglet, donc ma formule n'est plus valide si je rajoute un nouvel onglet.
Je voudrais donc simplifier ma formule pour que chaque onglet soit traiter automatiquement!
Marsh Posté le 12-07-2007 à 10:54:21
Bonjour à tous.
Je cherche à faire une macro sous Excel permettant de copier le contenu d'une même case de chaque onglet, par exemple la case F13, sur un dernier onglet, par exemple "cumul".
Il faut également que les données automatiquement copié ne se chevauche pas dans le dernier onglet, donc se copie en A1,A2,A3, etc.
Je suis arrivé à faire cette macro (merci p'tit loup ) mais je dois rentrer à la main le nom de chaque onglet, donc ma formule n'est plus valide si je rajoute un nouvel onglet.
Je voudrais donc simplifier ma formule pour que chaque onglet soit traiter automatiquement!
voici ma macro:
Sub Macro1()
'
Sheets("Onglet1" ).Select
Range("F13" ).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("cumul" ).Select
Range("A1" ).Select
ActiveSheet.Paste
Sheets("Onglet2" ).Select
Range("F13" ).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("cumul" ).Select
Range("A2" ).Select
ActiveSheet.Paste
Sheets("Onglet3" ).Select
Range("F13" ).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("cumul" ).Select
Range("A3" ).Select
ActiveSheet.Paste
End Sub
hm, dur à expliquer tout ça!
J'éspère que vous m'aurez compris!
et merci..