Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer
facilement les notes des gymnastes. C'est un classeur d'environ une douzaine
de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface
l'ensemble du classeur. En imaginant une manip par erreur et les conséquences
qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre
un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez
sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable
soit commis...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
bonjour,
A mettre dans la procédure du bouton Effacer
response = MsgBox("vous allez effacer tout le classeur... Cliquez sur Oui pour continuer et sur Non pour revenir", vbYesNo + vbDefaultButton2, "ALERTE") If response = vbNo Then exit sub
'ici en dessous ta macro pour effacer
A+
Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer facilement les notes des gymnastes. C'est un classeur d'environ une douzaine de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface l'ensemble du classeur. En imaginant une manip par erreur et les conséquences qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable soit commis...
Merci pour votre aide
JPaul
bonjour,
A mettre dans la procédure du bouton Effacer
response = MsgBox("vous allez effacer tout le classeur... Cliquez
sur Oui pour continuer et sur Non pour revenir", vbYesNo + vbDefaultButton2,
"ALERTE")
If response = vbNo Then exit sub
'ici en dessous ta macro pour effacer
A+
Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer
facilement les notes des gymnastes. C'est un classeur d'environ une douzaine
de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface
l'ensemble du classeur. En imaginant une manip par erreur et les conséquences
qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre
un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez
sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable
soit commis...
response = MsgBox("vous allez effacer tout le classeur... Cliquez sur Oui pour continuer et sur Non pour revenir", vbYesNo + vbDefaultButton2, "ALERTE") If response = vbNo Then exit sub
'ici en dessous ta macro pour effacer
A+
Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer facilement les notes des gymnastes. C'est un classeur d'environ une douzaine de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface l'ensemble du classeur. En imaginant une manip par erreur et les conséquences qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable soit commis...
Merci pour votre aide
JPaul
Jacques
Bonjour
Dim Rep As Integer
Rep = MsgBox("Vous allez effacer tout le claseur" & vbCrLf & _ "Cliquez sur OUI pour continuer et sur annuler _ pour revenir", vbYesNoCancel Or vbDefaultButton3 _ Or vbExclamation) If Rep <> vbYes Then Exit Sub
Jean-Paul wrote:
Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer facilement les notes des gymnastes. C'est un classeur d'environ une douzaine de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface l'ensemble du classeur. En imaginant une manip par erreur et les conséquences qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable soit commis...
Merci pour votre aide
JPaul
-- Cordialement,
Jacques.
Bonjour
Dim Rep As Integer
Rep = MsgBox("Vous allez effacer tout le claseur" & vbCrLf & _
"Cliquez sur OUI pour continuer et sur annuler _
pour revenir", vbYesNoCancel Or vbDefaultButton3 _
Or vbExclamation)
If Rep <> vbYes Then Exit Sub
Jean-Paul wrote:
Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer
facilement les notes des gymnastes. C'est un classeur d'environ une douzaine
de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface
l'ensemble du classeur. En imaginant une manip par erreur et les conséquences
qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre
un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez
sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable
soit commis...
Rep = MsgBox("Vous allez effacer tout le claseur" & vbCrLf & _ "Cliquez sur OUI pour continuer et sur annuler _ pour revenir", vbYesNoCancel Or vbDefaultButton3 _ Or vbExclamation) If Rep <> vbYes Then Exit Sub
Jean-Paul wrote:
Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer facilement les notes des gymnastes. C'est un classeur d'environ une douzaine de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface l'ensemble du classeur. En imaginant une manip par erreur et les conséquences qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable soit commis...
Merci pour votre aide
JPaul
-- Cordialement,
Jacques.
Jean-Paul
Merci pour vos réponses très rapides... Mais, où je mets tout cela ? En fin de la macro "Effacer", avant "End Sub" ? e n'ai pas trouvé où le mettre. Désolé !
Merci encoer
JPaul
Bonjour
Dim Rep As Integer
Rep = MsgBox("Vous allez effacer tout le claseur" & vbCrLf & _ "Cliquez sur OUI pour continuer et sur annuler _ pour revenir", vbYesNoCancel Or vbDefaultButton3 _ Or vbExclamation) If Rep <> vbYes Then Exit Sub
Jean-Paul wrote:
Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer facilement les notes des gymnastes. C'est un classeur d'environ une douzaine de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface l'ensemble du classeur. En imaginant une manip par erreur et les conséquences qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable soit commis...
Merci pour votre aide
JPaul
-- Cordialement,
Jacques.
Merci pour vos réponses très rapides... Mais, où je mets tout cela ? En fin
de la macro "Effacer", avant "End Sub" ? e n'ai pas trouvé où le mettre.
Désolé !
Merci encoer
JPaul
Bonjour
Dim Rep As Integer
Rep = MsgBox("Vous allez effacer tout le claseur" & vbCrLf & _
"Cliquez sur OUI pour continuer et sur annuler _
pour revenir", vbYesNoCancel Or vbDefaultButton3 _
Or vbExclamation)
If Rep <> vbYes Then Exit Sub
Jean-Paul wrote:
Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer
facilement les notes des gymnastes. C'est un classeur d'environ une douzaine
de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface
l'ensemble du classeur. En imaginant une manip par erreur et les conséquences
qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre
un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez
sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable
soit commis...
Merci pour vos réponses très rapides... Mais, où je mets tout cela ? En fin de la macro "Effacer", avant "End Sub" ? e n'ai pas trouvé où le mettre. Désolé !
Merci encoer
JPaul
Bonjour
Dim Rep As Integer
Rep = MsgBox("Vous allez effacer tout le claseur" & vbCrLf & _ "Cliquez sur OUI pour continuer et sur annuler _ pour revenir", vbYesNoCancel Or vbDefaultButton3 _ Or vbExclamation) If Rep <> vbYes Then Exit Sub
Jean-Paul wrote:
Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer facilement les notes des gymnastes. C'est un classeur d'environ une douzaine de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface l'ensemble du classeur. En imaginant une manip par erreur et les conséquences qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable soit commis...
Merci pour votre aide
JPaul
-- Cordialement,
Jacques.
anonymousA
tu le mets dans la macro qui est associée au bouton tout au début.
A+
Merci pour vos réponses très rapides... Mais, où je mets tout cela ? En fin de la macro "Effacer", avant "End Sub" ? e n'ai pas trouvé où le mettre. Désolé !
Merci encoer
JPaul
Bonjour
Dim Rep As Integer
Rep = MsgBox("Vous allez effacer tout le claseur" & vbCrLf & _ "Cliquez sur OUI pour continuer et sur annuler _ pour revenir", vbYesNoCancel Or vbDefaultButton3 _ Or vbExclamation) If Rep <> vbYes Then Exit Sub
Jean-Paul wrote:
Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer facilement les notes des gymnastes. C'est un classeur d'environ une douzaine de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface l'ensemble du classeur. En imaginant une manip par erreur et les conséquences qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable soit commis...
Merci pour votre aide
JPaul
-- Cordialement,
Jacques.
tu le mets dans la macro qui est associée au bouton tout au début.
A+
Merci pour vos réponses très rapides... Mais, où je mets tout cela ? En fin
de la macro "Effacer", avant "End Sub" ? e n'ai pas trouvé où le mettre.
Désolé !
Merci encoer
JPaul
Bonjour
Dim Rep As Integer
Rep = MsgBox("Vous allez effacer tout le claseur" & vbCrLf & _
"Cliquez sur OUI pour continuer et sur annuler _
pour revenir", vbYesNoCancel Or vbDefaultButton3 _
Or vbExclamation)
If Rep <> vbYes Then Exit Sub
Jean-Paul wrote:
Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer
facilement les notes des gymnastes. C'est un classeur d'environ une douzaine
de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface
l'ensemble du classeur. En imaginant une manip par erreur et les conséquences
qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre
un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez
sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable
soit commis...
tu le mets dans la macro qui est associée au bouton tout au début.
A+
Merci pour vos réponses très rapides... Mais, où je mets tout cela ? En fin de la macro "Effacer", avant "End Sub" ? e n'ai pas trouvé où le mettre. Désolé !
Merci encoer
JPaul
Bonjour
Dim Rep As Integer
Rep = MsgBox("Vous allez effacer tout le claseur" & vbCrLf & _ "Cliquez sur OUI pour continuer et sur annuler _ pour revenir", vbYesNoCancel Or vbDefaultButton3 _ Or vbExclamation) If Rep <> vbYes Then Exit Sub
Jean-Paul wrote:
Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer facilement les notes des gymnastes. C'est un classeur d'environ une douzaine de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface l'ensemble du classeur. En imaginant une manip par erreur et les conséquences qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable soit commis...
Merci pour votre aide
JPaul
-- Cordialement,
Jacques.
Jean-Paul
Merci à vous deux. Ca fonctionne comme je le souhaitais. C'est extra !
Merci encore
Jean-Paul
tu le mets dans la macro qui est associée au bouton tout au début.
A+
Merci pour vos réponses très rapides... Mais, où je mets tout cela ? En fin de la macro "Effacer", avant "End Sub" ? e n'ai pas trouvé où le mettre. Désolé !
Merci encoer
JPaul
Bonjour
Dim Rep As Integer
Rep = MsgBox("Vous allez effacer tout le claseur" & vbCrLf & _ "Cliquez sur OUI pour continuer et sur annuler _ pour revenir", vbYesNoCancel Or vbDefaultButton3 _ Or vbExclamation) If Rep <> vbYes Then Exit Sub
Jean-Paul wrote:
Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer facilement les notes des gymnastes. C'est un classeur d'environ une douzaine de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface l'ensemble du classeur. En imaginant une manip par erreur et les conséquences qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable soit commis...
Merci pour votre aide
JPaul
-- Cordialement,
Jacques.
Merci à vous deux. Ca fonctionne comme je le souhaitais. C'est extra !
Merci encore
Jean-Paul
tu le mets dans la macro qui est associée au bouton tout au début.
A+
Merci pour vos réponses très rapides... Mais, où je mets tout cela ? En fin
de la macro "Effacer", avant "End Sub" ? e n'ai pas trouvé où le mettre.
Désolé !
Merci encoer
JPaul
Bonjour
Dim Rep As Integer
Rep = MsgBox("Vous allez effacer tout le claseur" & vbCrLf & _
"Cliquez sur OUI pour continuer et sur annuler _
pour revenir", vbYesNoCancel Or vbDefaultButton3 _
Or vbExclamation)
If Rep <> vbYes Then Exit Sub
Jean-Paul wrote:
Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer
facilement les notes des gymnastes. C'est un classeur d'environ une douzaine
de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface
l'ensemble du classeur. En imaginant une manip par erreur et les conséquences
qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre
un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez
sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable
soit commis...
Merci à vous deux. Ca fonctionne comme je le souhaitais. C'est extra !
Merci encore
Jean-Paul
tu le mets dans la macro qui est associée au bouton tout au début.
A+
Merci pour vos réponses très rapides... Mais, où je mets tout cela ? En fin de la macro "Effacer", avant "End Sub" ? e n'ai pas trouvé où le mettre. Désolé !
Merci encoer
JPaul
Bonjour
Dim Rep As Integer
Rep = MsgBox("Vous allez effacer tout le claseur" & vbCrLf & _ "Cliquez sur OUI pour continuer et sur annuler _ pour revenir", vbYesNoCancel Or vbDefaultButton3 _ Or vbExclamation) If Rep <> vbYes Then Exit Sub
Jean-Paul wrote:
Pour une compét de gym par équipes, j'ai fait un classeur qui permet de gérer facilement les notes des gymnastes. C'est un classeur d'environ une douzaine de feuilles. J'ai fait un bouton "effacer" qui active une macro qui efface l'ensemble du classeur. En imaginant une manip par erreur et les conséquences qu'elle pourrait avoir, serait-il possible que l'action sur le bouton ouvre un message d'alerte du style : "vous allez effacer tout le claseur... Cliquez sur OUI pour continuer et sur annuler pour revenir" avant que l'irréparable soit commis...
