L'orsque j'active les macros les filtres automatique se désactiv
Fermé
Gopalkri1
-
24 févr. 2015 à 16:18
m@rina Messages postés 21089 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 20 novembre 2024 - 25 févr. 2015 à 18:08
m@rina Messages postés 21089 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 20 novembre 2024 - 25 févr. 2015 à 18:08
A voir également:
- L'orsque j'active les macros les filtres automatique se désactiv
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Message automatique thunderbird - Guide
- Gmail libellé automatique - Guide
- Sommaire automatique word - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
3 réponses
m@rina
Messages postés
21089
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
20 novembre 2024
11 361
25 févr. 2015 à 13:51
25 févr. 2015 à 13:51
Bonjour Gopalkri1
Je suis un peu étonnée par ta macro, car le fait de verrouiller une plage de cellule
Pour empêcher la saisie, il faut protéger la feuille.
Il faut mettre le code suivant protéger la feuille :
AllowFiltering autorise l'utilisation des filtres
Pour déprotéger :
Tu peux bien entendu ajouter un mot de passe
m@rina
Je suis un peu étonnée par ta macro, car le fait de verrouiller une plage de cellule
(Range("...").Locked = True n'empêche pas la saisie.
Pour empêcher la saisie, il faut protéger la feuille.
Il faut mettre le code suivant protéger la feuille :
Range("...").Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
AllowFiltering autorise l'utilisation des filtres
Pour déprotéger :
ActiveSheet.Unprotect
Range("...").Locked = False
Tu peux bien entendu ajouter un mot de passe
m@rina
m@rina
Messages postés
21089
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
20 novembre 2024
11 361
25 févr. 2015 à 02:37
25 févr. 2015 à 02:37
Bonjour,
Et ta macro, elle fait quoi ?
C'est toi qui l'as créée ?
m@rina
Et ta macro, elle fait quoi ?
C'est toi qui l'as créée ?
m@rina
Bonjour M@rina mon programme bloque en écriture une ligne lorsque deux cellule de cette ligne est remplie.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C60020")) Is Nothing Then Range("A1").Select
If Not Intersect(Target, Range("E4:M60020")) Is Nothing Then Range("A1").Select
'If Not Intersect(Target, Range("AX4:BD60020")) Is Nothing Then Range("A1").Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'deverrouiller et modifier les cellules
If Not Application.Intersect(Target, Range("BM4:BM6000,BN4:BN6000")) Is Nothing Then
lig = Target.Row
If Range("BM" & lig) <> "" And Range("BN" & lig) <> "" Then
'repondre au message
retval = MsgBox("Archiver la ligne", vbYesNo, "VALIDATION SAISIE")
' si oui verrouiller cellules
If retval = vbYes Then
Range("BQ" & lig & ":CW" & lig).Interior.Color = vbRed
Range("BQ" & lig & ":CW" & lig).Locked = True
Else
End If
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C60020")) Is Nothing Then Range("A1").Select
If Not Intersect(Target, Range("E4:M60020")) Is Nothing Then Range("A1").Select
'If Not Intersect(Target, Range("AX4:BD60020")) Is Nothing Then Range("A1").Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'deverrouiller et modifier les cellules
If Not Application.Intersect(Target, Range("BM4:BM6000,BN4:BN6000")) Is Nothing Then
lig = Target.Row
If Range("BM" & lig) <> "" And Range("BN" & lig) <> "" Then
'repondre au message
retval = MsgBox("Archiver la ligne", vbYesNo, "VALIDATION SAISIE")
' si oui verrouiller cellules
If retval = vbYes Then
Range("BQ" & lig & ":CW" & lig).Interior.Color = vbRed
Range("BQ" & lig & ":CW" & lig).Locked = True
Else
End If
End If
End If
End Sub
Le Pingou
Messages postés
12200
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 novembre 2024
1 450
25 févr. 2015 à 15:21
25 févr. 2015 à 15:21
Bonjour,
Juste au passage, un verrouillage des cellules n'a aucun effet si la feuille n'est pas verrouillée.
Salutations
Le Pingou
Juste au passage, un verrouillage des cellules n'a aucun effet si la feuille n'est pas verrouillée.
Salutations
Le Pingou
m@rina
Messages postés
21089
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
20 novembre 2024
11 361
25 févr. 2015 à 16:31
25 févr. 2015 à 16:31
Hello Le Pingou !
C'est juste ce que j'ai dit !! :)
C'est juste ce que j'ai dit !! :)
Le Pingou
Messages postés
12200
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 novembre 2024
1 450
25 févr. 2015 à 16:58
25 févr. 2015 à 16:58
Bonjour m@rina,
Aye, merci de me le faire remarquer, je n'avais pas vu votre réponse, j'ai surement la tête ailleurs...!
Amicales salutations
Le Pingou
Aye, merci de me le faire remarquer, je n'avais pas vu votre réponse, j'ai surement la tête ailleurs...!
Amicales salutations
Le Pingou
m@rina
Messages postés
21089
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
20 novembre 2024
11 361
25 févr. 2015 à 18:08
25 févr. 2015 à 18:08
po grave! ça permet de faire un coucou ! ;)