Microsoft 365 Bouton supprimer colonne et incrémenter une autre colonne

[cltuss]

Bonjour,
Je suis face a un défi pour moi, sur un tableau de planification de production je souhaiterais un bouton permettant a la fois de supprimer une colonne qui correspond au jours de la semaine qui est passé et d'incrémenter négativement toutes la valeurs d'une colonne sous forme de formule.
Je suis débutant en vba et ce projet est pour moi d'une importance capital si quelqu'un pouvais m'aider a ce sujet je suis preneur.
Merci d'avance.

 

[Calvus]

Bonjour cltuss et bienvenue sur le forum,

Tu auras de l'aide si tu joins un fichier.
Ta demande est trop floue, ou alors on te fera une réponse bateau qui ne t'avancera pas à grand chose.

A+

 

[cltuss]

Merci beaucoup.

Bien sûr tu as raison j'ajoute le fichier. J'y ai ajouté des commentaires

 

[job75]

Bonjour cituss, Calvus,

Voyez le fichier joint et la macro du bouton "Supprimer jour" :

Private Sub CommandButton1_Click()
Dim tablo, i&
With [A1].CurrentRegion.Columns(7)
    If .Rows.Count = 1 Then Exit Sub
    tablo = .Value 'matrice, plus rapide
    For i = 2 To UBound(tablo)
        If tablo(i, 1) > 0 Then tablo(i, 1) = tablo(i, 1) - 1
    Next
    .Value = tablo
    .EntireColumn.Offset(, 2).Delete
End With
End Sub

A+

 

[chris66000]

Bonjour,
je ne sais pas quoi te dire......a part merci.....j'ai bosse dessus le we et je ne suis meme pas arriver a terminer ( grand mot ) le formulaire...
c'est impec .....
Quand je rentre une nvlle resa ...dans recap N° il apparait la date ce qui bloque le reste de l'appli
merci encore