Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

integrer au vba une alerte pour ne pas effacer certaines cellules

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion boudu
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

boudu

XLDnaute Occasionnel
Bonjour au forum
je travaille sur un fichier de planning
les plages horaires sont entrées dans le tableau à l'aide de macros qui entourent la plage et inserent la durée de celle ci
les durées sont totalisées en bas de chaque journée
Je souhaiterais integrer aux macros une alerte au cas où on essaie de mettre une plage sur les formules (pour ne pas les ecraser)
dans mon exemple il ne faut pas effacer les formules en ligne 12
les macros sont dans le fichier pour des plages de 1 2 3 ou 4 (cellules)
Je veux donc que par exemple si on essaie d'entrer une plage de 2 en B11, il y ait un message d'alerte qui s'affiche
par contre et c'est toute la difficulté une plage peut en effacer une autre sans que cela derange
merci d'avance pour vos propositions
 

Pièces jointes

Trier par date Trier par votes
Re : integrer au vba une alerte pour ne pas effacer certaines cellules

Re,

Si tu as un problème pour "deux" et "quatre", n'hésite pas. 😉

Au fait : j'ai modifié le comportement de la macro.
C'est à dire qu'au lieu de renvoyer systématiquement vers la cellule B2, je reste sur la cellule sélectionnée au départ.
Dis-moi si ce comportement te convient. Sinon on peut le changer à ta guise. 🙂


ATTENTION toutefois : si tu as supprimé le code de PJ dans la macro SelectionChange et que les cellules B12 à F12 ne sont pas protégées, elles peuvent alors être modifiées manuellement par l'utilisateur.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : integrer au vba une alerte pour ne pas effacer certaines cellules

re marcel
je te remercie, j'ai réussi à adapter et j'avais remarqué le changement de comportement qui correspond à ce que je souhaitais
merci encore et bonne continuation
 
Vote positif 0 Vote négatif
Re : integrer au vba une alerte pour ne pas effacer certaines cellules

Re,

Petite remarque : vu que tu fais la même chose dans les quatre macros ("une", "deux", "trois" et "quatre"), il est possible de quasiment remplacer les quatre macro par une seule macro commune.
Les quatre macro ne comportant alors plus qu'une seule ligne de code servant à appeler la macro commune.
 
Vote positif 0 Vote négatif
Re : integrer au vba une alerte pour ne pas effacer certaines cellules

re Marcel
je vois bien que ça doit etre possible mais je sais pas trop faire (c'est pour ça que mon code est toujours tres verbeux et lourd mais bon...
si tu peux encore me souffler une petite idée ce serait tres bien
merci, bonne soirée
 
Vote positif 0 Vote négatif
Re : integrer au vba une alerte pour ne pas effacer certaines cellules

Regarde si cela fonctionne et te convient :
Code: 
Sub une()
    Call Encadrer(1)
End Sub

Code: 
Sub deux()
    Call Encadrer(2)
End Sub

Code: 
Sub trois()
    Call Encadrer(3)
End Sub

Code: 
Sub quatre()
    Call Encadrer(4)
End Sub

Code: 
Sub Encadrer(Taille As Integer)
ActiveCell.Range("A1:A" & Taille).Select
    Set isect = Application.Intersect(ActiveCell.Range("A1:A" & Taille), Range("B12:F12"))
    If Not isect Is Nothing Then
        MsgBox ("Attention vous allez modifier une Formule")
    Else
        Set isect = Application.Intersect(ActiveCell.Range("A1:A" & Taille), Range("B2:F" & (12 - Taille)))
        If Not isect Is Nothing Then
            selection.Borders(xlDiagonalDown).LineStyle = xlNone
            selection.Borders(xlDiagonalUp).LineStyle = xlNone
            With selection.Borders(xlEdgeLeft)
                .LineStyle = xlContinuous
                .Weight = xlMedium
                .ColorIndex = xlAutomatic
            End With
            With selection.Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .Weight = xlMedium
                .ColorIndex = xlAutomatic
            End With
            With selection.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlMedium
                .ColorIndex = xlAutomatic
            End With
            With selection.Borders(xlEdgeRight)
                .LineStyle = xlContinuous
                .Weight = xlMedium
                .ColorIndex = xlAutomatic
            End With
            selection.Borders(xlInsideHorizontal).LineStyle = xlNone
            ActiveCell.FormulaR1C1 = Taille
        End If
    End If
    ActiveCell.Range("A1").Select
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : integrer au vba une alerte pour ne pas effacer certaines cellules

re Marcel
ben voila
ça marche impecc et c'est beaucoup plus clean comme code
(et pour tout dire j'ai beaucoup plus de plages que ça dans mon vrai fichier donc c'est vraiment tip top

merci beaucoup et bonne continuation
 
Vote positif 0 Vote négatif
Re : integrer au vba une alerte pour ne pas effacer certaines cellules

Je me doutais bien que tu avais beaucoup plus de plages dans ton fichier final. 😉
Si ce code te convient, alors j'en suis heureux. 🙂

Bon week-end
@+
 
Vote positif 0 Vote négatif
Re : integrer au vba une alerte pour ne pas effacer certaines cellules

Re Marcel

je mets le fichier avec la protection dans thisworkbook qui permet de lancer les macros sur la feuille protégée et j'ai adapté tes macros qui collent impecc
merci et bon week end à toi aussi
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

K
  • Question Question
XL 2021 Mettre un message d'erreur si les cellules ne sont pas verrouillées
2
Réponses
18
Affichages
1 K
krolik serge
K
V
  • Résolu(e)
Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for
2 3
Réponses
39
Affichages
3 K
vincent32
V
  • Résolu(e)
Microsoft 365 Effacer dans colonne "G" les cellules qui ne contiennent pas un mot
2
Réponses
28
Affichages
2 K
dysorthographie
O
  • Question Question
XL 2019 Installation d'alertes avec conditions via une macro
Réponses
1
Affichages
898
Olocsob
O
T
  • Question Question
XL 2010 VBA - Insérer une formule pour certaines cellules
Réponses
6
Affichages
1 K
job75
  • Question Question
XL 2013 lister toutes les cellules dont la formule contient au moins une plage nommée
2
Réponses
26
Affichages
2 K
Jouxte
M
  • Question Question
XL 2013 VBA : Remplir un tableau nommé et insérer lignes via formulaire
Réponses
1
Affichages
3 K
fanfan38
  • Question Question
Autres Effacer plusieurs cellules prédéfinis en utilisant une serie de boutons VBA macros
4 5 6
Réponses
85
Affichages
6 K
Staple1600
  • Question Question
XL 2016 Macro VBA pour créer une BdD à partir de plusieurs fichiers
Réponses
2
Affichages
2 K
surgeon84fr
S
  • Question Question
Microsoft 365 Copier depuis plusieurs pages d'un fichier une plage de colonnes entre deux cellules comportant un texte particulier
2 3
Réponses
37
Affichages
5 K
softy69
S
A
  • Résolu(e)
XL 2010 vba pour copier une plage de cellules variable
Réponses
5
Affichages
5 K
anbar
A
M
  • Question Question
XL 2016 Selectionner une plage d'adresses selon le contenu de cellules
Réponses
2
Affichages
1 K
mad4max
M
G
  • Question Question
[Résolu] 3 cases VBA pour Afficher ou ne pas afficher une feuille [Résolu]
Réponses
10
Affichages
1 K
greg63
G
  • Question Question
vba creer une boucle pour effacer plusieurs plages de cellules identiques
Réponses
10
Affichages
3 K
job75
K
  • Question Question
Macro active que pour certaines cellules !
Réponses
3
Affichages
499
kyliann
K
S
  • Question Question
Effacer certaines cellules dans une plage
Réponses
3
Affichages
627
Skyna
S
P
  • Question Question
Copier plage variable pour coller sur 1ère ligne vide d'1 plage d'1 autre classeur
Réponses
0
Affichages
897
Punzy
P
D
  • Question Question
Excel => VBA => Intégrer variable dans une formule de plage pour insérer une formule
Réponses
5
Affichages
6 K
demonsares
D
M
  • Question Question
Modification code VBA copy en collage special valeur
Réponses
2
Affichages
908
Macgiy
M
C
  • Question Question
Selection d'une plage de cellules discontinues selon une variable pour graphique
Réponses
4
Affichages
4 K
Cri0997
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…