Problème Macro
Résolu
alex130196
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
alex130196 Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
alex130196 Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
Bonjour, j'ai créer un bouton de remise a zéro dans Virtual Basic, voici le code:
Le problème est que quand je clique sur le bouton il efface que les cellule du deuxième "Range". Si je ne les ai pas mi dans le même "Range" c'est que ceci ne marche pas car il y a trop de cellule. Avez-vous une solution pour que mon bouton supprime les deux "Range"
(J'espère que j'ai été clair :/ )
Merci
Private Sub CommandButton5_Click()
Reponse = MsgBox("Attention Vous allez effacer toute vos donnés personnel, voulez-vous continuer?", vbYesNoCancel)
If Reponse = vbYes Then
' Macro_remise_a_zéro Macro
'
'
Range("B4:B10,B14:B21,B25:B31,B35:B46,B50:B56,B60:B67,B71:B74,B78:B84,B88:B89,B93:B94,B98,B102:B104,B107:B112,B116:B117,B121:B123,B126,B130:B134,B137:B140,B144:B146,B149:B152,B156:B160,B164,B168:B170,B174,B178,B181:B182,B186:B189,B193:B194,B198:B199,B203:B204").Select
Range("B208:B210,B214:B215,B219:B221,B225:B226,B229:B231,B235:B236,B240:B242,B246,B250:B251").Select
Selection.ClearContents
Else
Exit Sub
End If
End Sub
Le problème est que quand je clique sur le bouton il efface que les cellule du deuxième "Range". Si je ne les ai pas mi dans le même "Range" c'est que ceci ne marche pas car il y a trop de cellule. Avez-vous une solution pour que mon bouton supprime les deux "Range"
(J'espère que j'ai été clair :/ )
Merci
A voir également:
- Problème Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
8 réponses
Salut,
c'est normal, tu sélectionnes la première rangé de ton code puis tu passe à la deuxième rangée sans avoir traité la première. je te simplifie le code et te le retourne
c'est normal, tu sélectionnes la première rangé de ton code puis tu passe à la deuxième rangée sans avoir traité la première. je te simplifie le code et te le retourne
Re,
Tu ajoutes à ta ligne msgbox , vbExclamation ou ,vbCritical juste avant la gestion des boutons
Reponse = MsgBox("Attention Vous allez effacer toute vos donnés personnel, voulez-vous continuer?", vbExclamation, vbYesNoCancel)
Tu ajoutes à ta ligne msgbox , vbExclamation ou ,vbCritical juste avant la gestion des boutons
Reponse = MsgBox("Attention Vous allez effacer toute vos donnés personnel, voulez-vous continuer?", vbExclamation, vbYesNoCancel)
Re,
Ta sélectionne est longue pour être traitée sur une seule ligne de code mais essaye comme cela
Private Sub CommandButton1_Click()
Reponse = MsgBox("Attention Vous allez effacer toute vos donnés personnel, voulez-vous continuer?", vbYesNoCancel)
If Reponse = vbYes Then
' Macro_remise_a_zéro Macro
'
'
Range("B4:B10,B14:B21,B25:B31,B35:B46,B50:B56,B60:B67,B71:B74,B78:B84,B88:B89,B93:B94,B98,B102:B104,B107:B112,B116:B117,B121:B123,B126,B130:B134,B137:B140,B144:B146").ClearContents
Range("B149:B152,B156:B160,B164,B168:B170,B174,B178,B181:B182,B186:B189,B193:B194,B198:B199,B203:B204,B208:B210,B214:B215,B219:B221,B225:B226,B229:B231,B235:B236,B240:B242,B246,B250:B251").ClearContents
Else
Exit Sub
End If
End Sub
Ta sélectionne est longue pour être traitée sur une seule ligne de code mais essaye comme cela
Private Sub CommandButton1_Click()
Reponse = MsgBox("Attention Vous allez effacer toute vos donnés personnel, voulez-vous continuer?", vbYesNoCancel)
If Reponse = vbYes Then
' Macro_remise_a_zéro Macro
'
'
Range("B4:B10,B14:B21,B25:B31,B35:B46,B50:B56,B60:B67,B71:B74,B78:B84,B88:B89,B93:B94,B98,B102:B104,B107:B112,B116:B117,B121:B123,B126,B130:B134,B137:B140,B144:B146").ClearContents
Range("B149:B152,B156:B160,B164,B168:B170,B174,B178,B181:B182,B186:B189,B193:B194,B198:B199,B203:B204,B208:B210,B214:B215,B219:B221,B225:B226,B229:B231,B235:B236,B240:B242,B246,B250:B251").ClearContents
Else
Exit Sub
End If
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci Mike sa marche super.
Et pendant que tu est la, sait-tu comment (si c'est possible) je pourrait rajouter le sigle ATTENTION jaune dans la MsgBox.
Encore Merci.
Et pendant que tu est la, sait-tu comment (si c'est possible) je pourrait rajouter le sigle ATTENTION jaune dans la MsgBox.
Encore Merci.
Merci Mike, trop cool
Mais en mettant cela, je n'ai plus le choix entre "Oui" ou "Non", sa me met directement "OK".
Mais en mettant cela, je n'ai plus le choix entre "Oui" ou "Non", sa me met directement "OK".