Semaine

[VEVE]

Bonjour le Forum

Une question sûrement évidente pour vous.

Voilà en A1 j'ai la semaine S01, je souhaiterai quand cliquant sur un bouton je passe en B1 et qu'il y est écrit S02 et la semaine suivante toujours en cliquant je passe en C1 et S03.
Je le fais mais à chaque faire il me marque #erreur ?
Si quel qu'un voulais bien me donner une explication pour que je puisse faire 52 cliques et autant de semaines.

Merci à toute et à tous

Bonne journée

VEVE

 

[Arnaud]

salut,

si j'ai bien compris, je te joins un exemple.

 

[Valérie]

Salut VEVE et Arnaud,

Je viens juste dire que l'on peu effectuer la manipulation sans boucler :

If Range("A1") = "" Then
Range("A1") = "S01"
Else
With Cells(1, 53).End(xlToLeft)
If .Column < 52 Then .Offset(0, 1) = "S" & Format(.Offset(0, 1).Column, "00")
End With
End If

Le principe étant de tester si une première semaine existe, puis si le dernier numéro de semaine est différent de 52, si c'est bien le cas en affecter S et le numéro correspondant à la colonne

Seule contrainte : Rien d'autre sur cette ligne

@+
Valérie

 

[VEVE]

Bonjour

Merci Valérie & Arnaud pour vos solutions.

Salutations

VEVE