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

Re-bonsoir,

Quel est le plus qui te manque ?

A+

 

[eliot raymond]

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

Re FredOo

Voila comme je te l'ai dit, ton code fonctionne bien ok

Mais je souhaiterai dans le code ci-dessous que j'ai modifier le faire fonctionner de la mème manière mais sans le code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

donc la tel quel le code fonctionne sur les double clic MAIS pas sur un clic

si tu te mets dans une des cellules on peut modifier et c'est pas bon

quand on fait (un clic) il faudrait également ranger le curseur dans les croix rouges

Option Explicit

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

Cancel = True

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

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

Merci Raymond

 

[Fred0o]

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

Re-bonsoir,

Au cas où tu ne l'aies pas encore compris, ce n'est pas possible sans la sub Worksheet_SelectionChange. Maintenant, peux-tu m'expliquer pourquoi tu n'en veux pas ? En quoi te gêne-t-elle ?

Si tu l'utilises déjà pour autre chose, ce n'est pas grave, il suffit d'insérer le code fourni dans celui que tu as déjà.

A+

 

[eliot raymond]

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

re-Bonsoir


j'ai bien essayer mais ça engendre d'autres erreurs comme cancel=true et .colorIndex =IFF etc etc

quand je clic pour changer les couleurs gris vert j'ai l'erreur .color etc etc

et sur un clic ça marche pas pour les cellules du bas

mais si pas possible je vais essayer de refaire le code autrement

Merci pour ton aide

A+ Raymond

 

[Fred0o]

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

Re-bonsoir,

Bon, voilà. j'ai mis mon code dans ton fichier et je l'ai re- re- re- re-testé. Conclusion : Il n'y a aucun message d'erreur qui s'affiche, lorsque l'on fait un simple ou un double click en [D26:O29], le curseur se positionne sur le "X" en colonne C et lorsque l'on fait double click dans la zone [D4:O25], la couleur passe au gris puis au vert.

N'est-ce pas ce que tu souhaites ?

Voir fichier joint. (t'auras fini par l'avoir à l'usure)...

A+

 

[eliot raymond]

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

Bonjour FredOo,

Merci pour ta réponse et pour le code, j'ai intégré a mon programme, ça a l'air de marcher

je verrai bien dans le temps si ça bug ou pas

j'ai également déplacer des codes de mon programme, c'est sans doute pour ça que ça marche

Je te remercie pour ton temps et de ta patience, je te souhaite une très bonne journée

Cordialement Raymond

 

[pascal21]

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

bonjour pour reprendre le passage sur les activation VBA
je ne prétends pas révolutionner quoi que ce soit avec ça
à la fermeture du classeur une macro workbook before close qui masque toutes les feuilles sauf une feuille blanche avec un avertissement du style (vous devez impérativement accepter les macros pour utiliser etc.......
A l'ouverture si les macros sont activées une macro dans workbook open .... rends les feuilles à nouveau visibles et cache la feuille blanche
si les macros ne sont pas activées c'est la feuille blanche qui apparaît uniquement
tout bêtement
ça ne protège pas du bidouilleur touche à tout bien sur, mais c'est mieux que rien
bonne journée