Macro extraction d'un tableau !

Version imprimable

15/12/2011, 10h28
chpierro62

2 pièce(s) jointe(s)

Bonjour à toutes et à tous !

Cela fais bientôt une semaine que je me casse la tête sur une macro Excel... Une petite aide de votre part serait très sympathique :-).

Je me suis mis à VBA il y a maintenant 1mois et je ne le maitrise pas encore sur le bout des doigts...

Voici mon petit problème:

Je dois créer une macro Excel pour mon école et j'ai quelques difficultés... Concrètement, je dois extraire un planning de 4 semaines, à partir d'un planning annuel.

J'aimerai biensur que cette macro copie mon planning de 4 semaines dans une nouvelle feuille et qu'elle se positionne à la date d'aujourd'hui, afin d'avoir une vision de 4 semaines.

Cette macro aurait pour but d'extraire et de mettre à jour le planning de 4semaines en fonction de la date du jour.

J'avais pensé à chercher la date de départ et de sélection de cette date jusque 20 colonnes après.

Pour la date du jour, j'ai claqué ça dans une cellule =EQUIV(AUJOURDHUI();Planning!139:139;0)
Puis j'ai pensé à récupérer cette valeur dans ta macro, et le tour est joué.

Cepdendant, je ne sais pas interpréter ces étapes sur VBA... :-/

Comment puis-je faire ? Pourriez-vous m'aider s'il vous plait ?

J'éspère avoir été assez clair et m'être bien fais comprendre.

Ci-joint les pièces jointes en .jpg.

Merci beaucoup pour votre aide précieuse !

bonjour,

tu peux tester ca.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim NomFeuille, celluleDestination, FeuilleDestination As String
 
    NomFeuille = "Planning (2)" 'marque le nom de ta feuille avec des ""
 
    premiereColonne = Worksheets(NomFeuille).Cells.Find(Format(Date, "dd/mm")).Column
    Range(Columns(premiereColonne), Columns(premiereColonne + 20)).Copy
 
    FeuilleDestination = "Dates"
    celluleDestination = "A1" 'change la cellule celon tes besoins
 
    Worksheets(FeuilleDestination).Range(celluleDestination).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    Worksheets(FeuilleDestination).Select

j'ai essayé de l'adapter en utilisant tes photos

15/12/2011, 15h22
chpierro62

Merci pour ta réponse.

Cependant, il me détecte une erreur sur cette ligne:

premiereColonne = Worksheets(NomFeuille).Cells.Find(Format(Date, "dd/mm/yyyy")).Column

Comment puis-je faire ?

Je précise que j'ai modifié le format de la date car mes dates sont de la forme 20/12/2012 par exemple.

Merci !
16/12/2011, 07h15
redstoff

Bonjour,

remplaces la ligne par

Code:

premiereColonne = Worksheets(NomFeuille).Cells.Find(Date).Column

et ca doit etre bon ^^
16/12/2011, 10h57
chpierro62

ça ne fonctionne toujours pas :cry:

Ce coup-ci, Excel ne me détecte aucune erreur, cependant je me retrouve avec la feuille "Dates" qui est devenue complètement vierge...

What's the problem please ?

Merci !
16/12/2011, 10h59
redstoff

donne moi ton fichier ce sera plus facile à comprendre ^^
16/12/2011, 15h28
chpierro62

Disons que c'est un fichier confidentiel...

Tu veux peut-être plus de screens ?
19/12/2011, 09h54
redstoff

bah avec les screens ca ne va pas etre facile mais si tu peux pas faire autrement fais donc ^^

apres les données perso je m'en fiche ^^ tu retires la raison sociale et ton fichier ne sera plus reconnaissable ^^

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Dim i as integer Dim colonnedebut as integer Dim fintableau as integer sheets("planning (2)").select fitnableau=3 'le numéro de la colonne où apparait ta 1ère date while cells(139,fintableau+1)<>"" fintableau=fintableau+1 Wend For i=3 to fintableau If cells(139,i)=today() then colonnedebut=i i=fintableau End if Next i Range(cells(1,i),cells(300,i+20)).select 'tu peux remplacer 300 par le numéro de la dernière que tu dois copier/coller selection.copy sheets("Dates").select cells(1,1).select Activesheet.paste
J'ai pas testé et il y a peut-être des trucs à revoir, mais l'idée est là je pense.

Peut-être qu'on peut épurer le code en remplaçant le range par un columns, mais j'arrive pas à trouver le moyen de faire marcher columns en lui faisant passer des chiffres et pas des lettres.