un prof en galère pour macro

Re : un prof en galère pour macro

Bonsoir Laurent

j'ai retrouvé le dernier fil d'hier (sur 3 ou 4 d'ailleurs) avec la même question ET LES REPONSES.


Il y a sans doute la réponse à ta question !!!

Bonne soirée

Re : un prof en galère pour macro

re-salut,

je suis désolé de "polluer le forum", mais ma demande a évoluée depuis la 1ère fois, et si je persiste c ke je n'ai tjrs pas résolu mon pbme et ke g besoin de votre aide ...


merci si ca vs dérange pas de m'aider

a bientot

Re : un prof en galère pour macro

Re Laurent

Et pourquoi une macro plutôt que les formules proposés.

Il me semble que si tu pars d'aujourd'hui, a la place de + tu mets des - ca devrait coller, as tu vérifié cela

@+

Re : un prof en galère pour macro

Bonjour Laurentgg, Pierrot93 et le forum,

Un essai de macro. A mettre dans un module normal. Créer un bouton dans la feuille active pour l'activer.

Option Explicit
Option Base 1
Sub CalendrierInverse()
Dim tab1 As Variant, N As Long, i As Long, Lig As integer
With ActiveSheet
N = Date - .Range("A1") + 1 ' Nombre de jour max
ReDim tab1(1 To N, 1) ' Définition du tableau
For i = Date To .Range("A1") Step -1 'Boucle sur les dates
If Weekday(i, vbMonday) <> 6 And Weekday(i, vbMonday) <> 7 Then ' Elimination des SAM et DIM
Lig = Lig + 1
tab1(Lig, 1) = i ' Mise en tableau
End If
Next
.Range("A1:A" & Lig).Value = tab1 ' Restitution des dates sur la feuille active
End With
End Sub

Cordialement

Bernard

Re : un prof en galère pour macro

Bonsoir,
as-tu essayé
tu sélectionnes A1:A23
EDITION->REMPLISSAGE->SERIE->JOUROUVRES->OK
A+

Re : un prof en galère pour macro

Merci bcp tt le monde,


g pu arriver a ce ke je voulais en compilant l'ensemble de vos précieux conseils


merci bcp et bonne journéé


laurent GG