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

XLDnaute Junior

• 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: 70
• erreur.jpg

  8.4 KB · Affichages: 66
• erreur.jpg

  8.4 KB · Affichages: 75

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

XLDnaute Junior

• 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 édition: 14 Octobre 2009

Vote positif 0 Vote négatif