Un petit test a effectuer pour empêcher des saisies

[eliot raymond]

Bonsoir a toutes et tous, forum

Je souhaiterai svp effectuer un petit test dans un tableau pour éviter des saisies dans les zones citer dans

le petit fichier ci-joint pour infos complémentaires.

J'ai essayer mais ça marche pas bien comme souhaiter

Je vous remercie pour votre temps et de votre aide

Bonne soirée a vous

Cordialement Raymond

 

[Fred0o]

Re : Un petit test a effectuer pour empêcher des saisies

Bonsoir Raymond,

Voici les codes que tu dois avoir dans le code de ta feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Target.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("D4:O25")) Is Nothing Then
        With Target.Interior
            .ColorIndex = IIf(.ColorIndex = 16, 43, 16) 'Couleur gris (16), vert (43)
        End With
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range("D26:O29"), Target) Is Nothing Then
        Cells(Target.Row, 3).Select                 '##### Pour proteger accès zone D26:O29
    End If
End Sub

A+

 

[eliot raymond]

Re : Un petit test a effectuer pour empêcher des saisies

Bonjour FredOo

Merci de ta réponse c'est gentil, ton code fonctionne bien mais j'ai omis de dire que je souhaiterai

faire le même test mais dans le module du

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True

j'ai essayer de modifier et ça ne marche que sur le double clic, et ça ne m'arrange pas trop.

Merci de ton aide

Bon Dimanche

A plus tard Raymond

 

[Staple1600]

Re : Un petit test a effectuer pour empêcher des saisies

Bonjour

Je souhaiterai svp effectuer un petit test dans un tableau pour éviter des saisies dans les zones

Une autre approche (sans macros)
Utiliser la protection de feuille: Outils/Protection/Protéger la feuille
Au préalable tu déverrouilles les cellules dans lesquelles tu autorises la saisie.
(Format/Cellule/Onglet Protection/décocher Verrouillée)
Une fois cela effectué, tu protèges ta feuille.

PS: Cette solution ou la solution par macro sera de toute façon inutile si on ouvre le classeur sans activer les macros ou si l'on déprotège la feuille à la hussarde.

 

[eliot raymond]

Re : Un petit test a effectuer pour empêcher des saisies

Salut Staple1600,

Merçi de ta réponse, je souhaiterai effectuer ce test en VBA car j'ai bien peur que ça marche pas longtemps

c'est pour une tiers personne et elle touche a tout, en vba par contre elle touchera pas

voila c'est aussi simple que ça

Merçi pour ton aide, Bon Dimanche

Raymond

 

[Staple1600]

Re : Un petit test a effectuer pour empêcher des saisies

Re

c'est pour une tiers personne et elle touche a tout, en vba par contre elle touchera pas

En es-tu si sur?

L'inconvénient du VBA; c'est que l'utilisateur peut ouvrir un classeur sans activer les macros

PS: Au passage, la solution que je propose peut être faite en VBA, mais on retombe sur sa potentielle inefficacité.
Avec une protection avec mot de passe, cette tierce personne ne devrait pas pouvoir toucher à grand chose....sauf si elle connait ce forum 😉

 

[eliot raymond]

Re : Un petit test a effectuer pour empêcher des saisies

Re

ok et tu as raison, moi je sais ça, mais l'essentiel c'est que la personne qui utilisera ne sait pas, et puis ce n'ai rien de confidentiel
c'est pour éviter de faire des modifs, donc pour moi l'utile serait que le curseur aille dans les cellules avec la croix rouge

cette tiers personne étant ma soeur, je pense vraiment pas quelle touchera au code et au pire je garderai une copie.

mais pas de mot de pass ni rien de tout ça

voila c'est tout bon app a plus tard

Raymond

 

[Staple1600]

Re : Un petit test a effectuer pour empêcher des saisies

Re


je persiste sur mon chemin 😉
Essaie cette macro sur ton fichier exemple.
(mais avant prend soit de mettre en commentaire le code présent dans la feuille 1)
Qu'en penses-tu ?

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 08/01/2012 par l'agrafe
'
With ActiveSheet
   .Unprotect
    With .Range("D4:O25")
    .Locked = False
    .FormulaHidden = False
    End With
    With .Range("C26:C29")
    .Locked = False
    .FormulaHidden = False
    End With
    With .Range("D26:O29")
    .Locked = True
    .FormulaHidden = True
    End With
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End With
End Sub

Et ensuite essaie d'accéder au cellules D26:029

 

[eliot raymond]

Re : Un petit test a effectuer pour empêcher des saisies

Re Staple1600

Merci pour le code mais ça fonctionne pas, bon c'est pas grave je vais en rester sur le code proposer par l'ami fredOo

et voir si je peux faire autrement

Encore merçi Bon dimanche

Raymond

 

[Fred0o]

Re : Un petit test a effectuer pour empêcher des saisies

Bonjour à tous,

Eliot, je ne comprends pas ta dernnière demande car le code inscrit dans Worksheet_SelectionChange fonctionne forcément lors d'un double click.

Je l'ai testé.

Peux-tu m'en dire plus sur ton besoin ?

A+

 

[eliot raymond]

Re : Un petit test a effectuer pour empêcher des saisies

Salut FredOo

j'ai modifier le code pour essai d'ou le petit soucis

Actuellement ca fonctionne MAIS quand je me positionne sur cellule zone D26😀o29 sur un clic il est possible de
modifier la cellule choisi et il ne faudrai pas

Par contre si je fait un double clic toujours zone D26😀029 la c'est ok le curseur va bien se ranger dans les cellules (croix rouge

[QUOTEOption Explicit

'*** Ci-dessous code pour ne pas avoir accès zone D26:O29

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Calculate

Cancel = True 'Pour laisser le focus sur la cellule

If Not Intersect(Range("D26:O29"), Target) Is Nothing Then
Cells(Target.Row, 3).Select '##### Pour proteger accès zone D26:O29
End If

'Actuellement le code fonctionne >>>> MAIS >>> uniquement sur le double clic

'Il faudrait svp que cela fonctionne également sur un simple clic

'car la sur un simple clic sur une cellule on peut modifier le contenu et il ne faudrai pas


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'*** Ci-dessous change la couleur du fond de cellule sur double tout en restant sur la cellule

'*** Ci-dessous cette partie du code fonctionne bien

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D4:O25")) Is Nothing Then
With Target.Interior
.ColorIndex = IIf(.ColorIndex = 16, 43, 16) 'Couleur gris (16), vert (43)
End With
End If
End Sub][/QUOTE]

Merçi pour ton aide

Raymond

 

[Fred0o]

Re : Un petit test a effectuer pour empêcher des saisies

Re-bonjour,

Merci de remplacer TOUT le code par celui fourni à mon post n°2. Cela fonctionnera comme tu le souhaites.

A+

 

[Staple1600]

Re : Un petit test a effectuer pour empêcher des saisies

Re

Normalement la macro de mon précédent message donne le résultat ci-dessous
Ce n'est pas le cas chez toi, Raymond ?

Cliquer sur l'image pour voir en taille réelle.

Pour que la macro fonctionne, il faut avoir cocher ou décocher l'option Verrouillée selon les cellules.
(voir explications dans l'autre message)

Edition: Bonsoir FredOo 😉

 

[eliot raymond]

Re : Un petit test a effectuer pour empêcher des saisies

Re slt

Bon j'ai essayer encore une fois de plus ton code effectivement ça marche

j'ai du m'y prendre comme un manche (LOL)

ça m'envoi un message si je veux modifier la cellule sur laquelle je suis

du moment que l'on peux pas modifier c'est l'essentiel, ça me va bien comme ça

Merçi pour ton aide et de ton temps

Je te souhaite une bonne soirée

Raymond

 

[eliot raymond]

Re : Un petit test a effectuer pour empêcher des saisies

Re-bonjour,

Merci de remplacer TOUT le code par celui fourni à mon post n°2. Cela fonctionnera comme tu le souhaites.

A+

Re Ok ton code fonctionne bien mais il me manque un plus

bon c'est pas grave

j'ai essayer la macro de l'ami Staple1600 je vais voir ce que ça donne

Merçi tout de mème pour ton aide

Bonne soirée également

Raymond