Discussion :

[malavida44]

Bonjour,
Je rencontre des difficultés sur la création d'une macro pour paramétrer un planning.
Le principe est simple, le fait de cliquer sur un bouton supprimer les 3 semaines du planning (supprime les données par conséquent) et les remplace par les trois semaines suivante. J'ai essayé de m'inspirer de différents topics mais le résultat reste très partielle
Merci d'avance pour votre aide
Cordialement
Marian Renault
(voir fichier ci-joint) Classeur1.xlsx

[Daniel.C]

Bonjour,

Décris la disposition de tes données et poste le début du code que tu as écrit. Oups, pas vu le classeur.

[Menhir]

Le principe est simple, le fait de cliquer sur un bouton supprimer les 3 semaines du planning (supprime les données par conséquent) et les remplace par les trois semaines suivante.

Où se trouvent les données sources, celles des "trois semaines suivantes" ?

J'ai essayé de m'inspirer de différents topics mais le résultat reste très partielle

Qu'est-ce que tu as essayé jusqu'à présent ?

Décris la disposition de tes données et poste le début du code que tu as écrit. Oups, pas vu le classeur.

Etant donné que la pièce jointe est un xlsx, il est peu probable qu'il contienne du code.
De plus, mettre un fichier en pièce jointe ne dispense pas d'explications claires et détaillées.
http://www.developpez.net/forums/d84...s-discussions/

[malavida44]

Les données ne sont pas importantes, elles sont à remplir chaque semaine manuellement, le fait de cliquer sur le bouton va supprimer la semaine 26, 27, 28 et les remplacer par semaine 29,30,31 les jours vont aussi se décaler et les données inscrites ultérieurement pour les semaines passées se supprimer pour laisser la place à la nouvelle saisie. Il faut juste conserver les formules de total.
J'ai compris le fonctionnement pour récupérer la date d'aujourd'hui, enfin je penses:

Code :

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

1
2
3
4
Function WeekNumber(Optional ByVal vDate As Variant) As Byte
    If IsMissing(vDate) Then vDate = Date
    WeekNumber = DatePart("ww", vDate, vbMonday, vbFirstFourDays)
End Function

je galère pour remplacer les semaine 26, 27, 28 par la semaine 29, 30, 31 et décaler les jours par conséquent

Cordialement

[Daniel.C]

Que fait-on des jours fériés ?

[camarchepas]

Bonjour, si dans se sens là c'est problématique essayez dans l'autre sens :

Code :

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

1
2
3
4
5
Dim c as range
for each c in [b7:q7]
c= c + 21
C.offset(-2,0) =  DatePart("ww", c, vbMonday, vbFirstFourDays)
next

D'abord vous placez vos jours et ensuite vous cherchez le N° de semaine du jour
Cependant il y a des cellules fusionnées donc il va falloir les défusionnées avant d'executer la boucle, puis refusionner ensuite pour n'avoir qu'un seul numéro de semaine

Pour le reste des demandes vu que vous avez un tableau fixe l'enregistreur de maco suffit amplement

[malavida44]

Je ne pense pas traité la distinction des jours féries pour le moment. Je préfère d'abord me concentrer sur le décalage des semaines ayant une connaissance assez sommaire des macros !

[malavida44]

Bonjour, si dans se sens là c'est problématique essayez dans l'autre sens :

Ce bout de code n'est pas problématique, c'est la suite qui se fait problématique, je ne sais pas comment m'y prendre exactement

[Menhir]

Si c'est juste pour changer les dates, je ne vois pas l'intérêt d'une macro.
Tout peux se faire par fonctions.

En C7, tu mets

Code :

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

=B7+1

Tu copies la formule en D7: P7

En G7 tu mets

Code :

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

=B7+7

Tu copies la formule en L7

En B5 tu mets

Code :

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

=NO.SEMAINE(B7)

En G5, tu mets

Code :

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

=B5+1

Tu recopies en L5

Ensuite, le changement de semaine consistera juste à changer une date en B7. Créer une macro juste pour ça, ce serait donc perdre son temps.

[camarchepas]

Déjà la ligne 6 vous la supprimez car elle ne sert à rien.

1) vous dé fusionnez la ligne où il y a les n° de semaine
2) Vous ajoutez 21 à chacune des cellules de la plage qui contient les dates
3) vous chercher le N° de semaine de chacune de ses dates et vous l'affichez une cellule plus haut
4)Vous fusionnez les 3 plages de cellules contenant les n° de semaine.
5) vous sélectionnez vos plages devant être effacées et vous les effacez.

Avant de se lancer tête baissé dans l'élaboration d'un code il faut d'abord établir le cheminement qui en sera le reflet.

C'est une méthode un peu "barbare" mais assez rapide à construire en terme de macro qui ne fonctionne qu'avec une seule boucle

[Daniel.C]

Bonjour Menhir,

Pas tout à fait aussi simple sur les débuts ou les fins d'année. Le n° de semaine peut passer de 52 ou 53 à 1 ou 2. Il faut aussi sauter les samedis et dimanches.

[Menhir]

Il faut aussi sauter les samedis et dimanches.

Pourquoi crois-tu que j'ai mis une formule différente en G7 et L7 ?

[Daniel.C]

Attache ce code au bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton21_Click()
    Dim Sem As Integer
    Sem = DatePart("ww", [B7] + 21, vbMonday, vbFirstFourDays)
    [B5] = "Semaine " & Sem
    [B7] = [P7] + 3
    For i = 1 To 4
        [B7].Offset(, i) = [B7] + i
    Next i
    Sem = DatePart("ww", [G7] + 21, vbMonday, vbFirstFourDays)
    [G5] = "Semaine " & Sem
    [G7] = [F7] + 3
    For i = 1 To 4
        [G7].Offset(, i) = [G7] + i
    Next i
    Sem = DatePart("ww", [L7] + 21, vbMonday, vbFirstFourDays)
    [L5] = "Semaine " & Sem
    [L7] = [K7] + 3
    For i = 1 To 4
        [L7].Offset(, i) = [L7] + i
    Next i
End Sub

[camarchepas]

Pour ma part je l'ai construit comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub effacer()
    Application.DisplayAlerts = False
    Dim c As Range, i%
    With Feuil1
        Union(.[b5], .[g5], .[l5]).UnMerge
        For Each c In .[b6:p6]
            c = c + 21
            c.Offset(-1, 0) = "Semaine " & DatePart("ww", c, vbMonday, vbFirstFourDays)
        Next
        .[b5:f5].Merge
        .[g5:k5].Merge
        .[l5:p5].Merge
        Union(.[b7:p15], .[B17:P25], .[B27:P35], [B37:P45]).ClearContents
    End With
End Sub

[Daniel.C]

@menhir :

Pourquoi crois-tu que j'ai mis une formule différente en G7 et L7 ?

effectivement : 1 partout

[malavida44]

Merci Daniel ta solution est parfaitement adapté au problème et semble marché niquel
bonne journée à vous
et Merci !

[camarchepas]

Merci Daniel ta solution est parfaitement adapté au problème et semble marché niquel
bonne journée à vous
et Merci !

[Daniel.C]

Bonsoir camarchepas,

Ne le prends pas mal. Je sais que c'est parfois pénible, mais l'essentiel, c'est la reconnaissance de ses pairs. Ta macro est bien faite (mieux que la mienne) et de plus elle efface les plages inscriptibles. Mais tu ne peux pas demander à un débutant qu'il apprécie la qualité d'un code.
Persiste sur le forum; ce n'est pas le forum qui fait les questionneurs et bonne soirée.

[camarchepas]

Oui daniel.c d'ailleurs mes excuses au près de toutes et tous qui font tourner le forum (on va dire que je me suis laissé emporté dans un moment de faiblesse...)

[malavida44]

Attache ce code au bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton21_Click()
    Dim Sem As Integer
    Sem = DatePart("ww", [B7] + 21, vbMonday, vbFirstFourDays)
    [B5] = "Semaine " & Sem
    [B7] = [P7] + 3
    For i = 1 To 4
        [B7].Offset(, i) = [B7] + i
    Next i
    Sem = DatePart("ww", [G7] + 21, vbMonday, vbFirstFourDays)
    [G5] = "Semaine " & Sem
    [G7] = [F7] + 3
    For i = 1 To 4
        [G7].Offset(, i) = [G7] + i
    Next i
    Sem = DatePart("ww", [L7] + 21, vbMonday, vbFirstFourDays)
    [L5] = "Semaine " & Sem
    [L7] = [K7] + 3
    For i = 1 To 4
        [L7].Offset(, i) = [L7] + i
    Next i
End Sub

j'ai un peu de mal à comprendre le fonctionnement de ton code peux tu me donner quelques explications ?