rapatrier dans une feuille toutes les noms saisie dans differentes feuilles

Staple1600

XLDnaute Barbatruc

• 15 Mars 2014

• #2

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

Bonjour à tous

Si j'ai bien compris

Code:

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)

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 15 Mars 2014

• #3

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

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 15 Mars 2014

• #4

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

 

Pièces jointes

• Classeur1V.xls

  14.5 KB · Affichages: 25
• Classeur1V.xls

  14.5 KB · Affichages: 27
• Classeur1V.xls

  14.5 KB · Affichages: 29

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mars 2014

• #5

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.

Code:

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

 

Dernière édition: 15 Mars 2014

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 15 Mars 2014

• #6

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mars 2014

• #7

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

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 15 Mars 2014

• #8

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

 

Vote positif 0 Vote négatif