Discussion :

[jpma75]

Bonjour,

A partir d'une macro Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean), l'utilisateur va recopier dans la cellule sélectionnée, le contenu d'une cellule lambda (elle-même liée à un menu déroulant). Après ce double-clic, la cellule fraichement remplie est verrouillée par la macro. Le problème est que ce code n'empêche pas l'utilisateur de saisir autre chose (que le contenu de la cellule lambda) dans la cellule sélectionnée ! Comment puis-je remédier à ce problème sans passer par un "Données/Validation de Données/Autoriser/Etc." ?
Si des saisies intempestives ont été faites, je peux le voir a posteriori car les cellules, bien que remplies, ne sont pas verrouillées. Comment puis-je balayer ma feuille pour affecter (par exemple) un motif aux cellules non vides ET non verrouillées ? Ou mieux, une mise en forme conditionnelle qui alerterait l'utilisateur de son erreur ?
Un grande merci d'avance pour votre aide éventuelle.
jpm75

[tamtam64]

En voiture simone, donne nous un début on s'occupera de la fin

[jpma75]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'ok
Dim prem_col As Integer
Dim dern_col As Integer
Dim prem_lign As Integer
Dim dern_lign As Integer
Dim synthese As String
Dim réponse As Byte
Dim saisie As String
Dim cellule_réf
Dim cellule_suppr
Dim rg As Range 
 
    prem_col = [I2]
    dern_col = [I3]
    prem_lign = [I4]
    dern_lign = [I5]
 
    synthese = [I11]
 
 
    Set rg = Range(Cells([I4], [I2]), Cells([I5], [I3]))
    synthese = [I11]
 
    saisie = ActiveCell.Value
    cellule_réf = ActiveCell.Address  
 
    If Not Application.Intersect(Target, rg) Is Nothing Then
 
        If Target = "" Then
 
            Target = synthese
            réponse = MsgBox("Confirmez-vous cette saisie : " & Chr(10) & Chr(10) & vbTab & synthese, Buttons:=vbYesNo)
 
            If réponse = vbYes Then
                ActiveCell.Locked = True
            Else
                Target = ""
            End If
            Cancel = True
        End If
    End If
End Sub

[patricktoulon]

Bonjour
somme toute le code a l'air fonctionnel
j'ai un petit doute sur le rg ,en effet je ne suis pas sur que l'on puisse tester le intersect avec une plage discontinu

apres locked marche si je me rapelle bien que si la feuille est protégée

pour le rg peut etre qu'un test avec les deux plage séparées ferait l'affaire

ensuite plutot que bloquer la cellule
untest sur la valeur identique a I11 ferait l'affaire aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if activecell=[I11] then ' selectionne une autre cellule  en dehors de rg et rg2

en rajoutant dans le module du sheet l'evenement beforerightclick pour eventuellement débloquer

[tamtam64]

ah que du plaisir lol

Juste parce que je reflechissais sur ton truc,

Moi je vois

une userform avec 3, 4 onglets , correspondant à tes boutons. tu aurais pour chaque onglet une partie a droite pour la saisie, a gauche pour la consultation, tu pourrais meme mettre une list view ( mais bon c'st pour l'elegance :p), mais juste une partie consultation et une partie saisie c'est pas mal, sinon un bouton poussoir pour le mode ecriture ou lecture. La gestion des doublons fait la en interne , c'est pas à l'utilisateur de gerer ca , sinon , autant ne pas faire de macro :p

voila moi comment je vois ton projet et ca te feras bosser les onglets, la mise à jour des données etc :p plutot sympa comme programe

[jpma75]

Merci Patrick pour ta proposition. Le Rg fonctionne bien avec des plages discontinues. J'ai bien noté ta proposition alternative au verrouillage de la cellule, mais je préfère m'en tenir à ce que j'ai fait. Si je ne trouve pas de solution à ma question, je me réserve de verrouiller toute la plage de cellules de ma feuille (tout en gardant leurs sélections possibles) et de les déverrouiller au cas par cas au moment de la saisie. Je serai un peu frustrer, mais bon, je devrais pouvoir m'en remettre.

Merci Tamtam pour tes propositions alternatives. A ce stade d'élaboration de ce classeur (déjà en partage avec de nombreux utilisateurs) je préfère ne pas tout remettre à plat ; a fortiori parce que de nombreuses saisies ont déjà été faites. Merci quand même.

cdt

(Message aux modérateurs qui m'ont incendié à deux reprises par des messages privés, parce qu'avais omis de mettre un "Résolu" après une discussion : Dois-je indiquer "Résolu" quand je n'ai pas de réponse directe à mes questions ? Merci d'avance pour votre réponse, privée ou pas).

[Theze]

Bonjour,

Si il y a plusieurs valeurs qui peuvent être validées, tu peux faire un contrôle sur une chaîne contenant ces valeurs autorisés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Chaine = "Mot 1, Mot 2, Mot 3, Mot 4, etc..." 'mots autorisés
If InStr(Target.Value, Chaine) = 0 Then

Teste et adapte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
45
46
47
48
49
50
51
52
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'ok
Dim prem_col As Integer
Dim dern_col As Integer
Dim prem_lign As Integer
Dim dern_lign As Integer
Dim synthese As String
Dim réponse As Byte
Dim saisie As String
Dim cellule_réf
Dim cellule_suppr
Dim Rg As Range
Dim Chaine As String
 
Chaine = "Mot 1, Mot 2, Mot 3, Mot 4, etc..."
 
    prem_col = [I2]
    dern_col = [I3]
    prem_lign = [I4]
    dern_lign = [I5]
 
    Set Rg = Range(Cells([I4], [I2]), Cells([I5], [I3]))
    synthese = [I11]
 
    saisie = Target.Value
 
    cellule_réf = Target.Address
 
    If Not Intersect(Target, Rg) Is Nothing Then
 
        If Target = "" Then
 
            Target = synthese
 
            If MsgBox("Confirmez-vous cette saisie : " & Chr(10) & Chr(10) & vbTab & synthese, vbYesNo + vbQuestion) = vbYes Then
                ActiveCell.Locked = True
            Else
                Target = ""
            End If
            Cancel = True
 
        Else
 
            If InStr(Target.Value, Chaine) = 0 Then
                MsgBox "Non non, c'est pas bon !" & vbCrLf & "Veuillez recommencer la saisie !"
                Target.Value = ""
                Cancel = True
            End If
 
        End If
    End If
End Sub