copier coller une information de plusieurs feuille dans un seul feuille Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Sassi
Membre habitué
Membre habitué
Messages : 104
Appréciation reçue : 1
Inscrit le : 27 octobre 2017
Version d'Excel : 2010

Message par Sassi » 8 juin 2018, 11:16

Bonjour à tous

j'ai un classeur contenant plusieurs feuilles ( factures) et je veux copier une cellule bien determiner de chaque feuille ( la cellule est la meme dans chaque feuille) et les coller dans une nouvelle feuille dans un column bien determiner

pouvez vous m'aider par un macro

cordialement
Cordialement Sassi :thx:
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'269
Appréciations reçues : 736
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 8 juin 2018, 11:17

Bonjour Sassi

utilise la fonction INDIRECT, cela peut t'aider

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
Sassi
Membre habitué
Membre habitué
Messages : 104
Appréciation reçue : 1
Inscrit le : 27 octobre 2017
Version d'Excel : 2010

Message par Sassi » 8 juin 2018, 11:24

comment ? :mrgreen:
je peux vous joindre le classeurs?
Cordialement Sassi :thx:
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'269
Appréciations reçues : 736
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 8 juin 2018, 11:35

oui, on n'attend que cela !

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
Sassi
Membre habitué
Membre habitué
Messages : 104
Appréciation reçue : 1
Inscrit le : 27 octobre 2017
Version d'Excel : 2010

Message par Sassi » 8 juin 2018, 11:59

salut

merci j'ai trouver la solution :

Sub ExtractionCol()
Dim I As Integer
Application.ScreenUpdating = False
Sheets("Récap").Range("A:A").Delete
For I = 2 To Worksheets.Count
Sheets(I).Range("E36").Copy ' copier colonne souhaitée
Sheets("Récap").Range("A" & Sheets("Récap").Range("A1048576").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues 'colle les valeurs de la colonne copiée
Next I
Application.CutCopyMode = False
Sheets("Récap").Range("A1").Select
Application.ScreenUpdating = True
End Sub
Cordialement Sassi :thx:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message