Inversion d'un clic (bouton)

Bonjour Riko, le forum,

Le code que je t'avais fourni ne fonctionne que pour un relevé, maintenant , tu en as 3, il te faut donc rajouté quelques lignes...

...comme tu l'as fait pour le transfert des dates (d'ailleurs, inutile de changer 3 fois le nom du bouton, une seule fois suffit,).

• donc 3 tb (tb1, tb2, tb3)
• 3 dates (c10, G10, J10)

Essaies ainsi:

With Sheets(NomFeuille)
         If .Range("J1") = "" Then .Range("J1") = .Range("N1")
          Select Case .Shapes.Range("Bouton 2").TextFrame.Characters.Text
           Case "Transfert Dates"
            tb1 = .Range("C10:C12").Value: tb2 = .Range("G10:G12").Value: tb3 = .Range("J10:J12").Value
           Case "Restaure Dates"
            tb1 = .Range("D10:D12").Value: tb2 = .Range("H10:H12").Value: tb3 = .Range("K10:K12").Value
          End Select
        .Copy After:=Sheets(1)
    End With

    With ActiveSheet
       .Range("J1") = Sheets(NomFeuille).Range("J1") + 1
       .Name = "BAE " & NbBae + 1
       .Range("J6") = NbBae + 1
       .Range("D10:D12") = tb1: .Range("C10:C12,O10:O12").ClearContents
       .Range("H10:H12") = tb2: .Range("G10:G12,P10:P12").ClearContents
       .Range("K10:K12") = tb3: .Range("J10:J12,Q10:Q12").ClearContents
       .Range("K3") = Date: .Range("C10").Formula = "=K3"
       .Range("G10").Formula = "=K3": .Range("J10").Formula = "=K3"
    End With

Cordialement,

Bonsoir xorsankukai, le forum,

J'ai essayé plusieurs combinaisons mais en vain, je n'ai pas la méthodologie pour appliquer les macros.

Merci pour tes modifications ça fonctionne à merveille.

Bonne soirée à tous.

Riko