DoubleClick : 3 problèmes

  • Initiateur de la discussion ar Morbreizher
  • Date de début
A

ar Morbreizher

Guest
Bonjour tout le monde,

J'ai un classeur de deux feuilles. Sur la première, j'ai un tableau avec une liste de nom et en double-cliquant sur les n° d'enregistrement, j'arrive sur une fiche à compléter, modifier (elle reprend des indications du tableau)

Pour la liste, j'utilise (merci Michel) :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)

If Not Intersect(Target, Range("a6:a29")) Is Nothing Then
Sheets("Fiche").Range("b3").Value = Target
ShowError = True 'False

affichage
End If

End Sub

J'ai, de plus, déverrouillé les cellules A6 à A29 et protégé la feuille.

PROBLEME N° 1 : Je voudrais maintenant que lorsqu'on double-clique ailleurs que sur ma zone, il n'y ait aucun message d'erreur et qu'on renvoie à A1

Pour ma fiche(2ème feuille), je renseigne des cases par double-click (choix = 2 ou 3 cases)
Selon que la croix se situe dans l'une ou l'autre, j'enregistre une valeur de 1 à 3 ==> pièce jointe.

PROBLEME N° 2 : Je ne pense pas avoir fait le bon choix car je voudrais qu'en double-cliquant sur une case, l'autre (ou les deux autres) se vident automatiquement.

PROBLEME N° 3 : Autre chose (j'abuse !!), je voudrais qu'une case sur la ligne DONC soit obligatoirement cochée si le 2ème critère est "bon" et ne puisse être cochée si le critère est "pas bon" (ou pas coché)

Voilà, je vous remercie d'avance pour votre aide.

A +
 

Pièces jointes

  • Jfp.zip
    6.4 KB · Affichages: 18
  • Jfp.zip
    6.4 KB · Affichages: 17
  • Jfp.zip
    6.4 KB · Affichages: 18
A

Abel

Guest
Bonjour ar Morbreizher , tous

C'est bien ce truc là !

Ci-après quelques éléments de réponses en fonction de mon petit niveau :

En début de procédure tu peux glisser un "On Error Resume Next".

Tu peux aussi masquer les colonnes et les lignes qui ne servent pas.

Enfin, tu peux mettre des fonds de couleurs différents pour inciter les utilisateurs à viser les bonnes cases.

En espérant avoir fait avancer le schmilbick.

Abel
 

Pièces jointes

  • Jfp.zip
    6.6 KB · Affichages: 16
  • Jfp.zip
    6.6 KB · Affichages: 12
  • Jfp.zip
    6.6 KB · Affichages: 19
T

Tom_Tom

Guest
Bonjour ar Morbreizher , tous


A mon petit niveau, j'espère avoir fait également avancer le schmilbick.


Si les cellules à cocher ne bougent pas de place, par ex. par insertion de lignes intermédiaires ou colonnes ... on peut par exemple tester la cellule active après Dbl-Clic et réagir sur les autres cellules.


Il y a certainement d'autre solutions plus performantes.

@+
 

Pièces jointes

  • jfp_2.zip
    8.4 KB · Affichages: 18

Discussions similaires

Réponses
3
Affichages
439
Réponses
7
Affichages
618

Statistiques des forums

Discussions
312 845
Messages
2 092 764
Membres
105 529
dernier inscrit
StarExcel