XL 2016 Interdire le clique sur un bouton avant un autre

R

ReneDav14000

XLDnaute Occasionnel
Bonjour à toutes et à tous,

Dans mon application j'ai deux boutons : un qui est nommé "BoutZéro" qui efface certaines données de la feuille de calcul "BDD"
et un autre qui est nommé "BoutCopie" qui copie les lignes non vides dans une autre feuille "Temps"
J'aimerai savoir si il est possible d'empêcher l'utilisateur de cliquer sur le bouton "BoutZéro" tant qu'il n'a pas cliqué sur "BoutCopie".
Cela pour ne pas que l'utilisateur efface les données avant de les avoir copiées dans l'autre feuille "Temps"
Merci par avance pour votre aide

Voici le code pour le bouton "BoutZéro"
VB: 
Private Sub BoutZéro_Click()
If MsgBox("Etes-vous certain de vouloir effacer les pointages horaires ? Cette action est irréversible - N'oubliez pas de copier les données avant l'effacement.", vbYesNo + vbQuestion, "Effacement des données") = vbYes Then

    Sheets("BDD").Select
    
Dim DerLigne As Long
    DerLigne = Sheets("BDD").Range("A1048576").End(xlUp).Row
    
        If DerLigne >= 6 Then
            Sheets("BDD").Range("G6:L" & DerLigne).Select
            
                Selection.ClearContents
End Sub
 
Solution
TooFatBoy
J'ai fait un essai, que je te livre tel quel...

Libre à toi de t'en inspirer, ou pas, bien sûr. ;)


ps : j'ai modifié "Tableau1" (intégration de la colonne "Date") et "Tableau2" (intégration de la colonne "Commentaires").
Je n'arrivais pas à bien discerner les limites des tableaux alors j'ai inséré une ligne au-dessus et une colonne à gauche, pour mieux voir les tableaux.
Trier par date Trier par votes
dysorthographie

dysorthographie

XLDnaute Accro
bonjour,
tu n'as besoin que d'un seul bouton
VB: 
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "BoutZéro" Then
   call BoutZéro
    CommandButton1.Caption = "BoutCopie"
Else
   call  BoutCopie
    CommandButton1.Caption = "BoutZéro"
End If
End Sub
Sub BoutZéro()
MsgBox "BoutZéro"
End Sub
Sub BoutCopie()
MsgBox "BoutCopie"
End Sub
 
Vote positif 0 Vote négatif
Phil69970

Phil69970

XLDnaute Barbatruc
Bonjour @ReneDav14000
Edit : Bonjour @dysorthographie

En début de la macro "BoutZéro" tu lances la macro "BoutCopie"

Sans fichier 🤔 donc à adapter cela pourra donner ceci :

VB: 
Sub BoutZero()
BoutCopie 'Ici la macro copiera tes données avant d'effectuer le reste du code

'Mon code qui efface ce que je veux

End Sub

Autre piste et/ou panachage des 2 pistes
On met un "drapeau" qui passe à 1 si la copie est faite et 0 si elle n'est pas faite avec un test dessus avant l'effacement

D’où l'utilité du fichier.......o_O

Merci de ton retour

@Phil69970
 
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
dysorthographie à dit:
bonjour,
tu n'as besoin que d'un seul bouton
VB: 
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "BoutZéro" Then
   call BoutZéro
    CommandButton1.Caption = "BoutCopie"
Else
   call  BoutCopie
    CommandButton1.Caption = "BoutZéro"
End If
End Sub
Sub BoutZéro()
MsgBox "BoutZéro"
End Sub
Sub BoutCopie()
MsgBox "BoutCopie"
End Sub
Cliquez pour agrandir...
Bonjour dysorthographie,
Oui il n'y a que c'est deux seuls boutons qui sont concernés.
Merci pour ton code
 
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
Phil69970 à dit:
Bonjour @ReneDav14000
Edit : Bonjour @dysorthographie

En début de la macro "BoutZéro" tu lances la macro "BoutCopie"

Sans fichier 🤔 donc à adapter cela pourra donner ceci :

VB: 
Sub BoutZero()
BoutCopie 'Ici la macro copiera tes données avant d'effectuer le reste du code

'Mon code qui efface ce que je veux

End Sub

Autre piste et/ou panachage des 2 pistes
On met un "drapeau" qui passe à 1 si la copie est faite et 0 si elle n'est pas faite avec un test dessus avant l'effacement

D’où l'utilité du fichier.......o_O

Merci de ton retour

@Phil69970
Cliquez pour agrandir...
Bonjour Phil69970
Merci pour la suggestion.
L'idée d'un seul bouton qui copierait avant l'effacement me plait assez bien, je n'y avais pas pensé.
Je vais tenter le coup en mixant mes deux codes.
Je n'ai pas mis de fichier car je suis en train de le refaire complètement car j'ai perdu celui sur lequel je travaillais et où j'avais bien avancé. J'ai eu un bug sur mon PC et Hop il a disparu, je l'ai recherché mais sans succès.
Je mettrais ma nouvelle version lorsque j'aurai tenté vos idées à tous les deux.
 
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
Voici le code que j'ai essayé de mettre en place. Comme vous pourrez le constater, il manque une liaison entre la copie et l'effacement.
Les données copiées sont de A6 à Colonne S de la feuilles "BDD" et vont se coller à la suite des données déjà copiées dans la feuille "Temps" à partir de B2

VB: 
Private Sub BoutZéro_Click()
'On copie les données avant de les effacer
Dim MaPlage
Application.ScreenUpdating = False

    If Sheets("BDD").FilterMode Then Sheets("BDD").ShowAllData 'BDD feuille qui doit être copiée
       
        Set MaPlage = Sheets("BDD").UsedRange.Offset(1).Resize(Sheets("BDD").UsedRange.Rows.Count - 1, Sheets("BDD").UsedRange.Columns.Count)
       
        With MaPlage
        On Error Resume Next
        .Offset(1).Resize(plage.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy Sheets("Temps").Range("A" & Sheets("Temps").Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1)
 
   'Là je ne sais pas quoi mettre pour qu'il embraye sur la suite
     
If MsgBox("Etes-vous certain de vouloir effacer les pointages horaires ? Cette action est irréversible - N'oubliez pas de copier les données avant l'effacement.", vbYesNo + vbQuestion, "Effacement des données") = vbYes Then

    Sheets("BDD").Select
   
Dim DerLigne As Long
    DerLigne = Sheets("BDD").Range("A1048576").End(xlUp).Row
   
        If DerLigne >= 6 Then
            Sheets("BDD").Range("G6:L" & DerLigne).Select
           
                Selection.ClearContents
End Sub
 
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
JM27 à dit:
Bonjour
A tester
mais je n'en vois pas trop l'utilité
Cliquez pour agrandir...
Bonsoir JM27,
Merci pour ta solution. C'est ce que je souhaitais faire au départ, mais l'idée d'un seul bouton qui fait les deux choses trotte dans ma tête.
Je vais essayer de terminer le code que j'ai mis plus haut.
Concernant l'utilité, je ne veux pas que l'utilisateur soit tenter d'effacer les données avant de les avoir copiées.
Elles sont essentielles à la bonne marche de l'application.
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
bonjour
le principe de bouton toupie est simple
VB: 
Private Sub CommandButton1_Click()
    With CommandButton1
        Select Case .Caption
        Case "copie"
            'ici tu met ton code de copie
            'ou tu apelle la sub copie si tu prefère faire des sub c'est comme tu veux
            .Caption = "Tout à zero"

        Case "Tout à zero"
            'ici tu met ton code de tout a zero
            'ou tu apelle la sub tout a zero si tu prefère faire des sub c'est comme tu veux
            .Caption = "copie"
        End Select
    End With
End Su
pas compliqué ;)
 
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
patricktoulon à dit:
bonjour
le principe de bouton toupie est simple
VB: 
Private Sub CommandButton1_Click()
    With CommandButton1
        Select Case .Caption
        Case "copie"
            'ici tu met ton code de copie
            'ou tu apelle la sub copie si tu prefère faire des sub c'est comme tu veux
            .Caption = "Tout à zero"

        Case "Tout à zero"
            'ici tu met ton code de tout a zero
            'ou tu apelle la sub tout a zero si tu prefère faire des sub c'est comme tu veux
            .Caption = "copie"
        End Select
    End With
End Su
pas compliqué ;)
Cliquez pour agrandir...
Bonsoir Patrick,

J'étais parti sur le code ci-dessous, mais ta solution me parait, encore une fois, être plus simple.
Je vais essayer de l'adapter à mon cas.
Merci pour ton aide

Voici quand même mon code :
VB: 
Private Sub BoutZéro_Click()
'On copie les données avant de les effacer
Dim MaPlage
Application.ScreenUpdating = False

If MsgBox("Vous allez copier les données avant qu'elles soient effacées ? Cette action est irréversible.", vbYesNo + vbQuestion, "Copie et effacement des heures") = vbYes Then

    If Sheets("BDD").FilterMode Then Sheets("BDD").ShowAllData 'BDD feuille qui doit être copiée
        
        Set MaPlage = Sheets("BDD").UsedRange.Offset(1).Resize(Sheets("BDD").UsedRange.Rows.Count - 1, Sheets("BDD").UsedRange.Columns.Count)
        
        With MaPlage
        On Error Resume Next
        .Offset(1).Resize(plage.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy Sheets("Temps").Range("A" & Sheets("Temps").Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1)
  
   End With
   End If
  
'On efface les données
    Sheets("BDD").Select
    
Dim DerLigne As Long
    DerLigne = Sheets("BDD").Range("A1048576").End(xlUp).Row
    
        If DerLigne >= 6 Then
            Sheets("BDD").Range("G6:L" & DerLigne).Select
            
                Selection.ClearContents
    End If
End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

L
  • Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
291
AtTheOne
AtTheOne
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
329
Chaton77
Chaton77
F
  • Question
XL 2021 Liste déroulante vers un autre classeur
Réponses
1
Affichages
247
Dudu2
Dudu2
M
  • Question
XL 2010 Créer un bouton de restauration
Réponses
12
Affichages
970
mostefa mokhtar
M
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
145
NONO14
N
PatFr38
  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
1 K
PatFr38
PatFr38
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
479
robpellan52
R
chaelie2015
  • Question
XL 2013 Modifier un code de sauvegarde
2
Réponses
16
Affichages
826
chaelie2015
chaelie2015
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Adapter un code
Réponses
8
Affichages
529
TooFatBoy
TooFatBoy
S
  • Question
Microsoft 365 VBA Requette SQL sur un autre fichier excel
Réponses
13
Affichages
348
dysorthographie
dysorthographie

Membres actuellement en ligne

12 membres et 356 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 491
Messages
2 110 177
Membres
110 690
dernier inscrit
Zeppelin