Recup info selon un critère dans un onglet temp

Staple1600

XLDnaute Barbatruc

• 11 Octobre 2009

• #2

Re : Recup info selon un critère dans un onglet temp

Bonsoir


Tu peux essayer un code de ce type à associer à ton bouton

Code:

sub macro1()
Dim ws As Worksheet
Set ws = Sheets("SEMAINE 0" & DatePart("ww", Date, 2, 2))
ws.Activate: Sheets.Add: ActiveSheet.Name = "Temp"
ws.Rows(1).Copy Sheets("Temp").[A1]
ws.Rows(ws.[A65536].End(xlUp).Row).Copy Sheets("Temp").[A65536].End(xlUp)(2)
Sheets("Temp").Columns.AutoFit
end sub

 

Vote positif 0 Vote négatif

U

undo

Guest

• 12 Octobre 2009

• #3

Re : Recup info selon un critère dans un onglet temp

Bonjour Staple1600,
merci pour ta réponse mais ca ne marche pas🙁 quand je lance la macro un bug "voir la capture dans le fichier en PJ".

As tu une solution ?

Merci d'avance
Undo

 

Pièces jointes

• erreur.jpg

  8.4 KB · Affichages: 76
• erreur.jpg

  8.4 KB · Affichages: 71
• erreur.jpg

  8.4 KB · Affichages: 80

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Octobre 2009

• #4

Re : Recup info selon un critère dans un onglet temp

Bonsoir

Tes feuilles ont bien un nom selon ce schéma ?

SEMAINE NNN

Exemple pour la semaine 41

Ton classeur contient bien une feuille nommé SEMAINE 041 ?

 

Vote positif 0 Vote négatif

U

undo

Guest

• 12 Octobre 2009

• #5

Re : Recup info selon un critère dans un onglet temp

Bonsoir Staple1600,
oui la structure des feuilles SEMAINE 0XX.
cdlt
undo
Help me

 

Dernière modification par un modérateur: 14 Octobre 2009

Vote positif 0 Vote négatif