Exclure des cellules d'une macro

Version imprimable

14/11/2012, 23h25
Mokia34

Exclure des cellules d'une macro

Bonjour,
en fait, j'ai une macro sur une plage de cellules.
Je voudrais savoir s'il est possible d'exclure une cellule de la plage de cellules par exemple : la macro bloque une modification (saisie d'un chiffre dans une cellule) mais lutilisateur veut quand meme rentrer et valider sa saisie, donc un déblocage de la modif par un userform pourrait être proposé, l'utilisateur valide la modification malgré le blocage, et la cellule concernée est exclue de la plage sur laquelle doit s'exécuter la macro pour que la modif ne sefface pas lors de la réouverture du fichier ??
Merci !
15/11/2012, 10h29
Oliv-
Salut,
Tu dois pouvoir utiliser la propriété "format de cellule"/Protection/verrouillée

comme par défaut les cellules sont verrouillées tu peux la dévérouiller si c'est une valeur "manuelle" à exclure de ton traitement

dans ton userform

Code:

if modification then selection.Locked = False

dans ta macro
Code:

1 2 3 if NOT selection.Locked = False then '...MON TRAITEMENT end if
15/11/2012, 12h27
Philippe Tulliez

Bonjour,

Ta macro me semble être un ersatz de l'outil Validation de données d'excel non ?
16/11/2012, 15h13
Mokia34

1 pièce(s) jointe(s)

re aide !

Je vous mets le fichier exemple pour que vous compreniez.
prenons la personne 4 et la 5, qui ne peuvent pas etre absente simultanèment.
tapez X en C14 et Y en C15. Lors de la saisie du Y une fenetre souvre. si "ok" alors annulation de la saisie de Y. mais je voudrais que faire un forcage de la saisie soit possible apres avoir cliqué sur "validation" et entrer le mot de passe "MDP" et conserver ces modifications.
est ce possible ?
pouvez vous me donner des pistes svp ?
merci pour votre aide !!

Bonjour,
J'ai jeté un coup d'oeil à ton classeur et je confirme ce que j'avais pensé lorsque j'ai lu ta question.
Tu as refait en VBA l'équivalent de l'outil natif d'Excel qui se nomme Validation de données
J'ai essayé de décoder ce que tu voulais faire mais franchement je touche pas à un truc pareil.
J'ai d'abord cru que cela venait simplement d'une orthographe de variable parce-que j'ai vu que tu utilises une variable qui se nomme autorisation dans UserForm1 alors que dans le code ci-dessous tu utilises une variable nommée autorise et qui n'apparaît nulle part ailleurs.
Code:

1 2 3 4 5 6 If N > 0 And c <> "" Then UserForm1.Show If Autorise = False Then c.Value = "" End If End If
Et ton problème vient de là concernant l'effacement de la valeur de la cellule (c.Value = "").
Je me suis donc dit bingo l'erreur est là, je remplace Autorise par Autorisation et on emballe.
Hélas, trois fois hélas à partir de là la boîte de dialogue boucle donc je ne vais pas plus loin.
Ce que tu cherches à développer, tu peux le faire avec les outils natifs d'Excel, sauf si le mot de passe est obligatoire, ce qui n'est pas prévu dans la validation de données.
Certes, je ne dis pas que c'est facile parce-que ton problème demande de connaître des fonctions d'excel un peu plus poussée mais franchement l'étude des fonctions et méthodes du VBA n'est -ce pas encore plus complexe ?
Petit conseil, étudie mieux les possibilités qu'offre Excel et si vraiment tu veux développer en VBA parce-que c'est une passion ce que je peux parfaitement comprendre, ou si la contrainte est telle que ce n'est pas possible sans le VBA, alors commence par analyser convenablement ce que tu souhaites faire et utilise l'option Explicit qui t'oblige à nommer tes variables ce qui t'aurait permis de voir immédiatement ce problème et sûrement d'autres encore.

16/11/2012, 20h53
Mokia34

re

oui le mot de passe est obligatoire
mais je ne maitrise pas assez excel et le vba pour bien comprendre les problemes que tu as mis en évidence :s dsl

essaye comme cela.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim c As Range, v As Range
    Dim Pers   As String
    Dim Jr     As Integer
    Dim N      As Byte
 
    With Sh
        If Target.Column > 1 And Target.Column < 24 And Autorisation = False Then
            For Each c In Target
                Jr = c.Column
                Pers = .Cells(c.Row, 1)
                For Each v In .Range("A14:A15,A18:A20,A27:A28,A29:A30,A31:A32,A33:A34")
                    If v.Value = Pers Then
                        Application.EnableEvents = False
                        .Cells(v.Row, Jr) = c
                        Application.EnableEvents = True
                    End If
                    N = Verif(Jr)
                    If N > 0 And c <> "" Then
                        If Autorisation = False Then UserForm1.Show
 
                        If Autorisation = False Then
 
                            c.Value = ""
                        End If
                    End If
                Next v
            Next c
        End If
        Autorisation = False
    End With
End Sub

cette partie là doit être identique

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
 
Option Explicit
 
Private Sub CommandButton1_Click()
' Continuer
    If Me.CommandButton1.Caption = "Validation" Then
        Me.Height = 165
        Me.TextBox1.Top = 64
        Me.CommandButton1.Top = 102
        Me.CommandButton2.Top = 102
        Me.Label1.Caption = "Mot de passe"
        Me.CommandButton1.Caption = "Valider"
        Me.TextBox1.SetFocus
    Else
        If Me.TextBox1 = MotDePasse Then
            Autorisation = True
        End If
        Unload Me
    End If
End Sub
 
Private Sub CommandButton2_Click()
' Annuler
    Unload Me
End Sub
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
    Autorisation = False
End Sub

17/11/2012, 12h44
Mokia34

re

en fait le principe marche mais si tu fais :
C en C14
N en C19
Cest Ok

Mais maintenant , si tu fais
C en D14
K en D15 ----> Message + Forçage OK
N en D19 ----> Message : Et ce n'est pas normal

je ne sais pas comment résoudre ca

Salut,
Si j'ai bien compris tu procèdes par jour et bloc donc ta macro doit faire pareil !
Peux tu énumérer clairement les règles !
Il faudrait aussi corriger tes BLOC (range) qui ne correspondent pas entre leur emplacement et le titre de ligne.

EDIT :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Function Verif(ByVal Col As Integer) As Byte
    Dim Nb(1 To 6) As Byte, j As Byte, Mx As Byte

    Mx = 1
    With ActiveSheet
        For j = 2 To 6
            Nb(j) = Application.CountA(Intersect(.Columns(Col), .Range("BLOC" & j)))
            If j = 1 Then Mx = 2 'si tu commences jà 2 il ne pourra jamais valoir 1
            If Nb(j) > Mx Then
                Verif = j
                Exit For 'là comme tu parcours tous les blocs ca renvoi automatiquement le MDP?
            End If
        Next j
    End With
End Function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Option Explicit
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim c As Range, v As Range, A As Range
    Dim Pers   As String
    Dim Jr     As Integer
    Dim N      As Byte
 
    With Sh
        If Target.Column > 1 And Target.Column < 24 And Autorisation = False Then
            For Each c In Target
                N = Verif(c.Row, c.Column)
                If N > 1 And c <> "" Then
                    If Autorisation = False Then UserForm1.Show
 
                    If Autorisation = False Then
 
                        c.Value = ""
                    End If
                End If
 
            Next c
        End If
        Autorisation = False
    End With
End Sub
 
 
Private Function Verif(ByVal lig As Integer, ByVal Col As Integer) As Byte
    Dim Nb(1 To 6) As Byte, j As Byte, Mx As Byte, isect
 
    Mx = 1
    With ActiveSheet
        For j = 1 To 6
            Set isect = Application.Intersect(.Cells(lig, Col), .Range("BLOC" & j))
            If Not isect Is Nothing Then
 
                Nb(j) = Application.WorksheetFunction.CountA(Intersect(.Columns(Col), .Range("BLOC" & j)))
 
                Verif = Nb(j)
            End If
        Next j
    End With
End Function

18/11/2012, 17h05
Mokia34

1 pièce(s) jointe(s)

re

Jai corrigé avec tes remarques merci

jai mis un fichier que jespere plus clair en piece jointe mais en fait je voulais commencer a j=2 car pour les blocs :
- bloc 2 = pers4-pers5 (lignes 14 et 15),
- bloc 3 = pers2-pers11 (lignes 27 et 28),
- bloc 4 = pers12-pers13 (lignes 29 et 30),
- bloc 5 = pers4-pers14 (lignes 31 et 32)
- bloc 6 = pers7-pers8 (lignes 33 et 34)
a chaque bloc une des 2 personnes ne peut pas être absente donc je voudrais bloquer l'ajout de la 2nde personne (Mx=1)

Pour le bloc 1 = pers 6, 7 et 8 (lignes 18,19,20), une des 3 personnes ne peut pas etre absente donc je veux bloquer lajout de la 3eme personne (Mx=2).

Pour ne pas bloquer le plan, je voudrais qu'un forcage soit possible dou la proposition de validation avec un mot de passe.

du coup je voulais appliquer la meme regle aux blocs 2,3,4,5 et 6 avec Mx = 1

mais jai toujours le meme probleme, une fois que jai validé dans un premier bloc pour un jour donné, lajout dune absence dans un autre bloc le meme jour provoque lapparition du message d’annulation/validation
sais tu comment remédier à ca ?
18/11/2012, 18h28
Oliv-

Salut
As tu essaye mon dernier code ?
18/11/2012, 20h11
Mokia34

oui mais ca fait toujours la meme erreur
18/11/2012, 20h16
Oliv-

J'ai essayé MON code dans ton dernier fichier et il fonctionne très bien!!!!
19/11/2012, 12h30
Mokia34

1 pièce(s) jointe(s)

RE

ca marche nickel.
Mais le problème est que jai parfois les memes personnes dans différentes équipes. pour résoudre ce probleme peut etre que ca serait possible de mettre les formules en dur du coup.
Par exemple prenons le bloc 3 ligne 27 et ligne 28. La pers2 est présente dans l'équipe 1 donc jai mis en place des formules : =SI(C9<>"";C9;""). Du coup la macro prend en compte la formule et considère que la cellule avec la formule est non vide...

Comment faire pour que la macro ne détecte plus les formules dans les cellules grises et uniquement les valeurs en tant que telles? car au final cest vrai que le probleme ne se pose que pour 2 lignes la 27 et la 31.
21/11/2012, 11h57
Mokia34

Pb résolu merci pour votre aide :)