roulement de valeurs

[belgar]

Bonjour,

si quelqu'un peut prendre un peu de temps pour me dépanner je le remercie d'avance. Voila je m'occupe des sauvegardes informatiques d'une entreprise et j'imprime un tableau quotidien pour suivre l'evolution des unitées de sauvegarde.
Je souhaiterais avoir une macro qui incrémente le jour et decale mes unitées.
cf fichier en exemple.
Désolé si la solution existe déjà sur le forum mais j'ai cherché pendant un moment sans rien trouvé et surtout ne sachant pas vraiment quoi chercher.

La macro me serait utile car j'ai beaucoup de séries à modifier de cette façon chaque jour .

@ bientot

 

[myDearFriend!]

Re : roulement de valeurs

Bonsoir belgar,

Ci-joint ton fichier modifié pour tenter de répondre à ton problème (tout en préservant la mise en forme que tu as choisis et qui n'est pas forcément la plus pratique pour une telle procédure).

J'ai utilisé le simple code suivant :

[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] CommandButton1_Click()
[COLOR=NAVY]Dim[/COLOR] D [COLOR=NAVY]As Date
Dim[/COLOR] U [COLOR=NAVY]As Byte[/COLOR]
    Application.ScreenUpdating = [COLOR=NAVY]False[/COLOR]
    U = Range("B4").Value
    Range("M5:M13").Copy
    Range("M6:M14").PasteSpecial xlPasteValues
    Range("C4:K4").Copy
    Range("B4:J4").PasteSpecial xlPasteValues
    Range("K4").Value = U
    D = Range("M6").Value
    [COLOR=NAVY]Do[/COLOR]
        D = D + 1
    [COLOR=NAVY]Loop Until[/COLOR] Weekday(D, vbMonday) < 6
    Range("M5") = D
    Range("A4").[COLOR=NAVY]Select[/COLOR]
    Application.ScreenUpdating = [COLOR=NAVY]True
End Sub[/COLOR][/SIZE]

Cordialement,

 

[belgar]

Re : roulement de valeurs

merci Didier,

ca fonctionne très bien et je vais tout de suite essayer de l'intégrer à mes tableaux de prod. Et je suis d'accord avec toi pour la mise en forme mais je n'ai pas carte blanche sur ce point.
En tout cas merci encore de ta réponse

++