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

Calvus

XLDnaute Barbatruc

• 17 Juin 2022

• #2

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+

 

Vote positif 0 Vote négatif

C

cltuss

XLDnaute Nouveau

• 17 Juin 2022

• #3

Merci beaucoup.

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

 

Pièces jointes

• Planification.xlsx

  92.2 KB · Affichages: 2

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Juin 2022

• #4

Bonjour cituss, Calvus,

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

VB:

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+

 

Pièces jointes

• Planification(1).xlsm

  102.6 KB · Affichages: 2

Vote positif 0 Vote négatif

C

chris66000

XLDnaute Occasionnel

• 29 Août 2022

• #5

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

 

Vote positif 0 Vote négatif