OVH Cloud OVH Cloud

comparaison .

2 réponses
Avatar
pat68
Bonsoir à tous ,


Voila une petite question :

Voila j'ai deux colonnes Ex : A et b.

Je peux mettre soit a1 à oui (en realite 1 dans cette cellule) ou b1 à 1.

Mais en aucun cas je ne peux mettre a1 et b1 à 1.(Sinon un boite
dialogue s'ouvre pour indiquer qu'il faut soit mettre 1 dans l'un des
deux cellules et non les deux).

Quelqu'un peut m'aider à ecrire ça en vba ou fonction.

Je vous remercie d'avance.(Et bonne nuit)
a+

patrick.novoa@neuf.fr

2 réponses

Avatar
LSteph
Bonsoir pat68,

si je comprends bien le but est d'obliger un choix ou rien
ceci simplement (t'épargnant le message) te conviendrait-il:

en a1 mettre une validation (menu Données)
nombre entier
compris entre 0 et 1
et en b1tu mets=si(a1="";"";(-1*A1)+1)
ainsi mettre 0 en a1 equivaudra à mettre 1 en b1
mettre 1 en a1 impliqura 0 en b1
supprimer la valeur de a1 remettra b1 également à rien.

lSteph

"pat68" a écrit dans le message de news:

Bonsoir à tous ,


Voila une petite question :

Voila j'ai deux colonnes Ex : A et b.

Je peux mettre soit a1 à oui (en realite 1 dans cette cellule) ou b1 à 1.

Mais en aucun cas je ne peux mettre a1 et b1 à 1.(Sinon un boite dialogue
s'ouvre pour indiquer qu'il faut soit mettre 1 dans l'un des deux cellules
et non les deux).

Quelqu'un peut m'aider à ecrire ça en vba ou fonction.

Je vous remercie d'avance.(Et bonne nuit)
a+




Avatar
bourby
bonjour,

1) sans code, si ce niveau de sécurité te suffit, tu peux mettre une
MEFC qui mette les deux cellules sur fond rouge, avec une condition du
genre "si la formule est" ="et(a1=1;b1=1)=vrai".
2) avec code:
dans une procédure d'évènement de la feuille concernée (p.ex. évènement
"change"), [syntaxe non vérifiée, c'est l'heure de dormir]
Private Sub Worksheet_Change(ByVal Target As Range)
with target
if .column=1 or .column =2 then
if range(cells(.row,1))=1 and range(cells(.row,2))=1 then
msgbox "une seule valeur à 1 svp"
exit sub 'il vaudrait mieux un userform non modal, pour tester
jusqu'àce que l'utilisateur corrige ..... ou au moins le format
conditionnel pour garder la trace de l'erreur
end if
end if
end with
End Sub



pat68 wrote:
Bonsoir à tous ,


Voila une petite question :

Voila j'ai deux colonnes Ex : A et b.

Je peux mettre soit a1 à oui (en realite 1 dans cette cellule) ou b1 à 1.

Mais en aucun cas je ne peux mettre a1 et b1 à 1.(Sinon un boite
dialogue s'ouvre pour indiquer qu'il faut soit mettre 1 dans l'un des
deux cellules et non les deux).

Quelqu'un peut m'aider à ecrire ça en vba ou fonction.

Je vous remercie d'avance.(Et bonne nuit)
a+