Decaler texte de une cellule

Bonjour

Je voudrais automatiser une tache sous excel

j'ai une liste de Prénom affecté a des taches

Taches Prénom

poste 1 jacques

poste 2 Rachid

poste 3 Loane

poste 4 Erwan

poste 5 Jack

je voudrais chaque semaine decaler les noms de +1 vers le bas et le dernier se retrouve au poste 1

Résultat pour la semaine suivante suite a la manip que je cherche a simplifier

poste1 jack

poste2 jacques

poste3 Rachid

poste4 Loane

poste5 Erwan

Merci pour votre aide

Cordialement

Bonjour,

Et ça ne t'irait pas de faire tourner dans l'autre sens ?

Salut Lexcellent,

Bonjour MFerrand,

je ne vais pas te faire l'injure de proposer une solution VBA que tu ferais encore bien mieux que moi!

A+

Salut Curulis !

Bonjour Lexcellent, le forum,

je te propose ce fichier Excel :

* si tu veux augmenter le n° de semaine, fais Ctrl p (p pour plus) ; regarde la liste de prénoms

* si tu veux diminuer le n° de semaine, fais Ctrl m (m pour moins) ; regarde la liste de prénoms ; comme le temps ne marche pas à reculons, ça permet surtout de corriger si t'as fais un Ctrl p par erreur ou en trop

Alt F11 pour voir le code VBA, puis revenir sur Excel

si besoin, tu peux demander une adaptation.

merci de me dire si ça te convient.

dhany

Salut Lexcellent,

Salut l'équipe,

voilà, full automatique avec la possibilité d'inverser le switch en mettant, via un clic-droit, [B1] en GRAS.

Le switch est exécuté au chargement du fichier, le code se trouvant dans 'ThisWorkbook'.

Private Sub Workbook_Open()
'
Application.EnableEvents = False
iWeek = Format(Date, "ww", vbMonday, vbFirstFourDays)
'
With Worksheets("Feuil1")
    If .[B1] <> iWeek Then
        .[B1] = iWeek
        .Range(IIf(.[B1].Font.Bold = False, "B2", "B8")).Value = .Range(IIf(.[B1].Font.Bold = False, "B7", "B3")).Value
        .Range(IIf(.[B1].Font.Bold = False, "B2", "B4")).Resize(5, 1).Cut .Range("B3").Resize(5, 1)
    End If
End With
'
Application.EnableEvents = True
'
End Sub

A+