Copie de plusieurs feuilles

skoobi

XLDnaute Barbatruc

• 5 Février 2008

• #2

Re : Copie de plusieurs feuilles

Bonsoir,

le soucis est que les données sont sur les 5 feuilles.
Quel est le ou les critères qui défini la feuille à choisir?
Les autres feuilles seront vides sur cette plage?

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 5 Février 2008

• #3

Re : Copie de plusieurs feuilles

Bonsoir Mapat, skoobi

d'après ce que j'ai compris...

 

Pièces jointes

• Copiedeplusieursfeuillesv1.zip

  6 KB · Affichages: 25

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 5 Février 2008

• #4

Re : Copie de plusieurs feuilles

Bonsoir Skoobi

Oui les autres plages seront libres
Les données ne seront que sur une seule feuille et c'est cette plage que j'aimerais récupérer

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 5 Février 2008

• #5

Re : Copie de plusieurs feuilles

Bonsoir bhbh

Non ça n'est pas ce que je désirerais faire
Si j'ai bien compris ta formule, elle ne récupère que sur une seule feuille.
Ce que je voudrais c'est quà partir du moment ou la plage d'une des 5 feuilles est remplie, je puisse les coller sur cette feuille 6

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 5 Février 2008

• #6

Re : Copie de plusieurs feuilles

OK,
tes valeurs de C5 à D11, comment tu les récupères?

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 5 Février 2008

• #7

Re : Copie de plusieurs feuilles

Elles sont récupérées avec une requête sur le net

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 5 Février 2008

• #8

Re : Copie de plusieurs feuilles

ok,
par formule, ou macro?
si la cellule est non significative, contient-elle un 0 (zéro), même masqué, ou rien ("")?

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 5 Février 2008

• #9

Re : Copie de plusieurs feuilles

Re,
bonsoir bhbh 🙂,

Si j'ai bien compris, par macro:

Code:

Sub test()
For n = 1 To Worksheets.Count - 1
    With Sheets(n)
        If .[F11].Value <> "" And .[F11].Value <> 0 Then
            Range("F11:K12").Value = .Range("F11:K12").Value
        End If
    End With
Next
End Sub

A mettre dans la feuille 6.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 5 Février 2008

• #10

Re : Copie de plusieurs feuilles

'Soir skoobi, 🙂
j'attendais sa réponse, ne connaissant pas la requête effectuée, si cette requête écrit aléatoirement dans la feuille 1, 2 , 5 , 4...dans les cellules qu'elle le désire,...
bref, si un remplissage par macro, dès que la zone est entièrement remplie, on la fige en feuille 6, et ce pour la première feuille remplie..(c'est celle qui gagne...)
M'enfin, si j'ai tout compris...comme dirait Gaston 😉

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 5 Février 2008

• #11

Re : Copie de plusieurs feuilles

Oui je vois, wait and see.........

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 8 Février 2008

• #12

Re : Copie de plusieurs feuilles

Bonjour le forum, Skoobi et bhbh
Toutes mes excuses de ne pas avoir répondu rapidement à votre aide
Je me suis remis sur mon petit excercice aujourdh'ui et malgré votre aide je n'ai pas réussi à faire ce que je voulais.
J'ai changé la méthode et j'arrive à un résultat. C'est sans doute pas très académique et si vous voyez autre chose de plus concis alors je prends
Encore merci pour votre aide
Ci joint modifs apportées

 

Pièces jointes

• Copiedeplusieursfeuilles.zip

  11.6 KB · Affichages: 32
• Copiedeplusieursfeuilles.zip

  11.6 KB · Affichages: 35
• Copiedeplusieursfeuilles.zip

  11.6 KB · Affichages: 32

Vote positif 0 Vote négatif