Pourriez vous m'aider car je suis encore moins que débutante dans les macros
et j'aimerai savoir s'il est possible de faire ceci:
je souhaiterai qu'automatiquement mon tableau se remplisse comme suit:
A1= valeur B1 feuille 1 classeur 2
B2= valeur B1 feuille 2 classeur 2
C2= valeur B1 feuille 3 classeur 2
D2= valeur B1 feuille 4 classeur 2
E2= valeur B1 feuille 5 classeur 2
etc...
je souhaiterai savoir si c'est possible d'automatiser cela car ce sont des
résultats quotidiens qui agrémentent un tableau mensuel sans être obligée de
lier chaque cellule car j'ai 20 onglets de résultats mensuels (resultats par
personne) avec autant d'onglet que de jours ouvrés (lundi au samedi)
j'espére que ma question est claire mais j'ia vraiment besoin de lumiére...
bonne journée et merci d'avance
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ellimac
Bonjour,
A adapter :
Sub Toto() f = ActiveWorkbook.Name Workbooks.Open Filename:="titi.xls" For cpt = 1 To Sheets.Count a = Sheets(cpt).Range("b1") Windows(f).Activate Range("a2").Offset(cpt - 1) = a Windows("titi.xls").Activate Next End Sub
Sub Toto()
f = ActiveWorkbook.Name
Workbooks.Open Filename:="titi.xls"
For cpt = 1 To Sheets.Count
a = Sheets(cpt).Range("b1")
Windows(f).Activate
Range("a2").Offset(cpt - 1) = a
Windows("titi.xls").Activate
Next
End Sub
Sub Toto() f = ActiveWorkbook.Name Workbooks.Open Filename:="titi.xls" For cpt = 1 To Sheets.Count a = Sheets(cpt).Range("b1") Windows(f).Activate Range("a2").Offset(cpt - 1) = a Windows("titi.xls").Activate Next End Sub
je vais essayer d'adapter et je donnerai le résultat
cdt
"Ellimac" wrote:
Bonjour,
A adapter :
Sub Toto() f = ActiveWorkbook.Name Workbooks.Open Filename:="titi.xls" For cpt = 1 To Sheets.Count a = Sheets(cpt).Range("b1") Windows(f).Activate Range("a2").Offset(cpt - 1) = a Windows("titi.xls").Activate Next End Sub
je vais essayer d'adapter et je donnerai le résultat
cdt
"Ellimac" wrote:
Bonjour,
A adapter :
Sub Toto()
f = ActiveWorkbook.Name
Workbooks.Open Filename:="titi.xls"
For cpt = 1 To Sheets.Count
a = Sheets(cpt).Range("b1")
Windows(f).Activate
Range("a2").Offset(cpt - 1) = a
Windows("titi.xls").Activate
Next
End Sub
je vais essayer d'adapter et je donnerai le résultat
cdt
"Ellimac" wrote:
Bonjour,
A adapter :
Sub Toto() f = ActiveWorkbook.Name Workbooks.Open Filename:="titi.xls" For cpt = 1 To Sheets.Count a = Sheets(cpt).Range("b1") Windows(f).Activate Range("a2").Offset(cpt - 1) = a Windows("titi.xls").Activate Next End Sub
