Discussion :

[soipx]

Bonjour,

J'aimerais copier les cellules rouges de chaque feuille ( cf pièces jointes) dans la feuil1.
Je sais comment faire pour une feuille (chaumont) mais j'aimerais le faire tourner sur toutes les feuilles.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub copier()
 
 
'Feuil1 -> nom de l'onglet de la feuille source
'Feuil2 -> nom de l'onglet de la feuille destination
Application.EnableEvents = False
With Worksheets("chaumont")
    'Tu peux lister toutes les plages discontinues que
    'tu veux copier vers leur destination. La destination
    'peut se faire sur des feuilles différentes, voir des
    'classeurs différents si ces derniers sont ouverts
 
    .Range("c4:d4").Copy Worksheets("Feuil1").Range("a2:b2")
    'Exemple destination -> autre classeur
    '.Range("H2:P25").Copy _
        Workbooks("AutreClasseur.xls").Worksheets("Feuil").Range("A1")
End With
Application.EnableEvents = True
End Sub

ce serait bien si je pouvais les copier tous sur la plage a:b

[casefayere]

Bonjour,
on peut toujours essayer de t'aider mais ta piece jointe n'est pas là

et tu n'as pas mis de balises codes sur le code présenté

a +

[Krovax]

Fait attention au dixième message tu doit apprendre a utiliser les balise code sinon
alors autant anticiper
Comment baliser le code -> Sélection du code + 1 clic sur # en mode d'édition
Démonstration

sinon pour copier vers feuill1 a partir de toutes les autre a la suite les une des autre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
dim ws as worksheet, DerniereLigne as long
 
For each ws in worksheets
if ws.name<>"Feuil1" then
DerniereLigne =Worksheets("Feuil1").Range("A65536").End(xlUp).Row
ws.range("A1:C5").copy Worksheets("Feuil1").range("A" & DerniereLigne+1 )
end if
next ws

[soipx]

Ok pour la balise! merci pour l'explication.

donc voici le fichier en question, je veux juste copier les cellules rouges de chaque feuilles et les coller dans feuil1 sur la plage a:b

désolé du retard.

[soipx]

re!

ça y'est j'ai trouvé!
merci krovax et forum!

bonne journée