recuperer la valeur de 3 case sur plusieur feuil

  • Initiateur de la discussion Initiateur de la discussion dimahena
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

dimahena

Guest
bonjour,
je cherche une macro qui peux récupérer la valeur de 3 case sur chaque feuille est qui les mets sur un tableau, mon classeur est constituer d'une cinquantaine de feuille chacune est nommé différemment.

J'ai besoin de votre aide pour résoudre mon problème
Merci d'avance
 
Re : recuperer la valeur de 3 case sur plusieur feuil

ah ça je peux t'aider
....

j'ai ici une macro qui copie tout une colone, il suffit de la modifier pour ne copier ques les cases qui t'interessent attand je la modifie un peu et la poste ici

Guillaume


PS : mon pb a moi est tjrs en attente de solution...
 
Re : recuperer la valeur de 3 case sur plusieur feuil

voila,
la cela copie la colonne A
quelqu'un peut la modifier ?

quelles cases veux tu copier ? (il faut le savoir pour te modifier ma macro)


Guillaume


PS : mon pb a moi est toujours non résolut
 

Pièces jointes

Re : recuperer la valeur de 3 case sur plusieur feuil

merci pr les réponses Guillaume, j'ai fait une petite modif sur la macro est ça donne des bonnes resultats, c'est exactement ce que je cherché

-------------------------------------------------------------------------------
Sub jj()
Dim sh As Worksheet
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Compilation").Delete
Application.DisplayAlerts = True
On Error GoTo 0
Sheets.Add
ActiveSheet.Name = "compilation"



For Each sh In ActiveWorkbook.Sheets

If sh.Name <> "resume" Then
derlig = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
sh.Range("C1").Copy Sheets("resume").Cells(derlig + 1, 1)
sh.Range("C2").Copy Sheets("compilation").Cells(derlig + 1, 2)
sh.Range("C3").Copy Sheets("compilation").Cells(derlig + 1, 3)
sh.Range("C4").Copy Sheets("compilation").Cells(derlig + 1, 4)
sh.Range("G84").Copy Sheets("compilation").Cells(derlig + 1, 5)
Sheets("compilation").Cells(1, Dercol + 1)
End If
Next
End Sub

-------------------------------------------------------------------------------


j'ai que un probleme de lecture pour une casse ou il y a une somme a faire, il me prend pas la valeur de la somme.
j'aimerai savoir si c'est possible que la macro cree un autre classeur excel ou elle met les valeur de ces casses?

merci d'avance
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
408
Réponses
4
Affichages
595
Retour