Discussion :

[chpierro62]

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 !

[redstoff]

bonjour,

tu peux tester ca.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 !

[redstoff]

Bonjour,

remplaces la ligne par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et ca doit etre bon ^^

[chpierro62]

ça ne fonctionne toujours pas

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 !

[redstoff]

donne moi ton fichier ce sera plus facile à comprendre ^^