Bonjour,
je remercie d’avance toute assistance au problème suivant: Le but est un questionnaire à faire remplir avec réponse oui, ou non. Lorsque la personne répond, une macro remplit la cellule si double clic.
Le dilemme consiste à empêcher une double saisie. Si oui a été coché, on ne doit pas pouvoir saisir aussi le non et inversement.
La macro actuelle (qui fonctionne bien) est:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If UCase(Target) = « X » Then Target = « » Else Target = « ü »
Cancel = True
End Sub
Je ne parviens pas à insérer la condition de macro refusée si autre case déjà remplie.
A vous lire, cordialement Yves
Bonjour
Réponse en colonne A ou en colonne B
Pour éviter une réponse dans une colonne si l’autre est remplie
Doubleclick en colonne A
If Target.column =1 and Range(« B » & Target.row) = « » Then
On remplit
Else
On ne remplit pas
End If
Inversement doubleclick en colonne B
If Target.column =2 and Range(« A » & Target.row) = « » Then
On remplit
Else
On ne remplit pas
End If
Je ne sais pas si cela répond à ton attente
A toi de me dire
Bonjour et merci d’avoir regardé.
La formule devrait fonctionner mais est refusée par « erreur séparateur ou ) ».
J’espère que ça t’inspires. Ca doit être un manque mineur.
Pour compléter, si utile, la cible est en colonnes E pour « oui » et F pour « non » et sept questions de E6 à F12.
Si tu ne trouves pas, ce n’est pas grave. je compterais sur les membres de l’association pour ne pas cocher simultanément oui et non !
A te lire
La formule devrait fonctionner mais est refusée par « erreur séparateur ou ) ».
Je n’ai pas compris
« est refusée par « erreur séparateur ou ) ». »
mais encore ???
L’alerte est: Erreur compilation Attendu: séparateur de liste ou )
Ca donne ça, avec peut-être une bourde de manipulation:
If Target.column =1 and Range(« F » & Target.row) = « » Then
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If UCase(Target) = « X » Then Target = « » Else Target = « ü »
Cancel = True
Else
Range(« E6:E12 ») = « »
End If
Je ne aurais pas mis comme cela
If Target.column =1 and Range(« F » & Target.row) = « » Then
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If UCase(Target) = « X » Then Target = « » Else Target = « ü »
Cancel = True
Else
Range(« E6:E12 ») = « »
End If
Mais comme ceci
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.column =1 and Range(« F » & Target.row) = « » Then
If UCase(Target) = « X » Then Target = « » Else Target = « ü »
Cancel = True
Else
Range(« E6:E12 ») = « »
End If
End Sub
Cela devrait mieux fonctionner
Dis moi
Bonjour,
hélas non. Cela provoque: « erreur syntaxe »
Ci-joint un exemple
Colonne E les oui colonne F les non
doubleclique dans une cellule d’une des 2 colonnes
si sur la même ligne l’autre colonne à un « X » le doubleclique n’a aucun effet
si sur la même ligne l’autre colonne est vide le doubleclique met un « X »
Testes et dis moi
Classeur1.xlsm (13,9 Ko)
Avec la dernière version des instructions, le double clic ne donne rien dans aucune cellule des colonnes E & F.
Si je tape un caractère, X ou autre, il reste affiché en F ou E et la saisie sur la même ligne n’est pas empêchée.
La condition de saisie initiale en double clic ne fonctionne donc plus.
Désolé mais quand je double clique sur une cellule d’une colonne et que l’autre même ligne est vide un « X » est intégré :
avant doubleclick :
Aprés doubleclick :
ligne du dessous autre colonne
avant doubleclick
Aprés doubleclick :
Tout doubleclick dans la même configuration pour ces 2 colonnes donne ce même résultat
Pour ces ces 2 cellules avec la présence de la donnée « X » tout doubleclick sur l’autre colonne même ligne n’aura aucun effet
« Si je tape un caractère, X ou autre, il reste affiché en F ou E et la saisie sur la même ligne n’est pas empêchée. »
Attention il n’a jamais été question d’une saisie mais d’un doubleclick
On peut sans souci verrouiller ces cellules à la saisie et conserver ce fonctionnement
A toi de voir
Mais conformément à tes indications initiales le traitement répond :
" Lorsque la personne répond, une macro remplit la cellule si double clic.
Le dilemme consiste à empêcher une double saisie. Si oui a été coché, on ne doit pas pouvoir saisir aussi le non et inversement."
Si ce n’est pas le cas pour toi merci de clarifier ta demande
1 « J'aime »
Erratum!
J’avais omis d’enregistrer. CA MARCHE!
Tu es formidable!
Merci beaucoup, je vais pouvoir revenir vers mes adhérents sans omettre que c’est grâce à « FFO »!
Au plaisir
Je te transmet un nouvel exemplaire qui interdit colonne E et F toute saisie manuelle seul le doubleclick met ou pas en fonction de l’exigences d’un seul choix « oui » ou « non » le caractère « X » dans la cellule
Pour intervenir à la main (nettoyer par exemple toutes les cellules des 2 colonnes pour une réinitialisation de l’ensemble) il faut ôter la protection de la feuille puis la remettre pour une nouvelle utilisation (clique droit sur le nom de l’onglet puis cliquer sur « Ôter la protection de la feuille »)
La protection de la feuille sera de toute façon automatiquement remise au premier doubleclick
Testes et dis moi
Classeur1.xlsm (14,5 Ko)
Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.