rapatrier dans une feuille toutes les noms saisie dans differentes feuilles

[Evelynetfrancois]

bonjour tout le monde
j ai préparé un exemple light plus parlant que de longues explications confuses

Dans différentes feuilles je saisie des noms
est il possible de les ramener tous sur une feuille que j'appelle pour l'occasion synthèse

MERCI d'avance pour vos sujétions
Bonne journée à tous
E et F

 

[Staple1600]

Re : rapatrier dans une feuille toutes les noms saisie dans differentes feuilles

Bonjour à tous

Si j'ai bien compris

Sub a()
Dim F, i%
F = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")
For i = 0 To UBound(F)
With Sheets(F(i))
    .Range("A1", .Range("A" & Rows.Count).End(xlUp)).SpecialCells(2, 23).Copy _
    Sheets("SYNTHESE").Range("A" & Rows.Count).End(xlUp)(2)
End With
Next i
End Sub

(test OK sur mon PC)

 

[Evelynetfrancois]

Re : rapatrier dans une feuille toutes les noms saisie dans differentes feuilles

Merci staple 1600 pour cette proposition , mais là je dois absolument filer ....
je teste cette aprem , je te tiens au courant sans fautes ...
à plus
encore merci
E et F

 

[Evelynetfrancois]

Re : rapatrier dans une feuille toutes les noms saisie dans differentes feuilles

Re staple 1600
après test de ta macro j'obtiens le cumul de toutes les saisies des différentes feuilles ,les une empilées sur les autres
Ce que je souhaite en faite ce n'est que le détail
je joins une feuille plus parlante du résultat attendu (espéré)
merci pour tout
EetF

 

[Staple1600]

Re : rapatrier dans une feuille toutes les noms saisie dans differentes feuilles

Re


Essaies ceci alors
(test OK ici)
Dans mon exemple les donnnées sont en A1:A5 sur les feuilles 1 à 4 et copiée en A1:A5 sur la feuille SYNTHESE.

Sub B()
Dim s As Worksheet
For Each s In Worksheets
If Not s.Name Like "SYNTHESE" Then
s.Range("A1:A5").Copy
Sheets("SYNTHESE").Range("A1").PasteSpecial -4104, -4142, -1
End If
Next s
End Sub

PS: J'utilise dans ce code VBA, la fonctionnalité Collage spécial/[x]Blancs non compris
Essaies avec l’enregistreur de macros (secondé par la touche F1) si tu cherches à savoir ce que sont -4104 et -4142

 

[Evelynetfrancois]

Re : rapatrier dans une feuille toutes les noms saisie dans differentes feuilles

re staple 1600
Là c'est nickel!!! tout ce que je souhaitais
un grand merci!!!!
par contre pour ma gouverne c'est quoi le -4104,-4142
merci beaucoup !
EetF

 

[Staple1600]

Re : rapatrier dans une feuille toutes les noms saisie dans differentes feuilles

Re


Il suffit de lire mon PS dans mon précédent message ...
et d'être un peu plus curieux

 

[Evelynetfrancois]

Re : rapatrier dans une feuille toutes les noms saisie dans differentes feuilles

re
mille excuses l'angle de mon écran ne me laissait pas apercevoir ton PS en gris clair
j ai donc cherché .........j ai trouvé lol
bonne soirée et encore merci pour tout
EetF