Interdire une valeur de saisie conditionnelle

Brigitte

XLDnaute Barbatruc

• 17 Avril 2006

• #2

Bonjour Nadine, le forum,


Comme ca, je dirais avec Données/Validation/Nombre entier égal à 1. Et donc avec un =si...

Mais quel est celui qui est saisi en premier, colonne E ou F ?

 

Vote positif 0 Vote négatif

A

andré

XLDnaute Barbatruc

• 17 Avril 2006

• #3

Salut,

Pour la 1° question :
Sélectionner la plage sur laquelle doit s'opérer la restriction.
Menu Données / Validation.
Sous Autoriser choisir personnalisé
Sous formule taper =A1=1
A1 étant la référence de la cellule supérieuyre gauche de la plage sélectionnée (à adapter suivant le cas).

Â+

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 17 Avril 2006

• #4

Et boum, pin pon, pin pon...

Salut André..

 

Vote positif 0 Vote négatif

A

andré

XLDnaute Barbatruc

• 17 Avril 2006

• #5

Salut Brigitte,

J'aimerais bien aussi 'valider' cette collison (lol).

Â+

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 17 Avril 2006

• #6

Bonjour Nadine, andré, Brigitte, le Forum,
Je ne pense pas que ceci puisse donner le choix à Nadine, j'aurai plutôt vu quelque chose comme ceci à adapter, ce dont je ne saurai, (code trouvé sur ce forum) :


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('F5:F28')) Is Nothing Then
MsgBox 'Vous ne devez saisir que l'un ou l'autre'
Range('A1').Select
End If
End Sub

Pour ton autre question :
Sub XXx()
application.Scrreuptdating = False
et True avant End Sub

 

Vote positif 0 Vote négatif

A

Av

Guest

• 17 Avril 2006

• #7

Ave,

Sélection E6:F28 --données -- validation --- perso

=ET(E6=1;NB.SI($E6:$F6;1)‹=1)

AV [aaa]

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 17 Avril 2006

• #8

Salut Nadine,

Pour la validation, essaye ceci :

- sélectionne E6:E28
- Données / Validation / Personnalisé / Formule : =ET(E6=1;ESTVIDE($F6))

- sélectionne F6:F28
- Données / Validation / Personnalisé / Formule : =ET(F6=1;ESTVIDE($E6))

Ainsi tu contrôles à la fois la saisie du 1 et ça évite la double saisie dans les 2 colonnes.

@+

Edition : Salut Alain, t'avais pas vu. Ta solution est effectivement préférable car un seul test.

Merci.

Message édité par: tibo, à: 17/04/2006 11:29

 

Vote positif 0 Vote négatif

N

Nadine

Guest

• 17 Avril 2006

• #9

Kikou

Vous êtes trop fort !!! pour les validations

marc,
Les codes que tu m'as passé pour la macro me font une erreur d'exécution 438 sur l'instruction que j'ai ajouté.

biz à tous

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 17 Avril 2006

• #10

Bonjour,

Voici pour ta macro. Remplace la tienne par celle ci dessous :

Code:

Sub test()
Dim val1 As Byte
Dim val2 As Date
'Macro amendée par Dan pour Nadine - 17/04/06
'Macro pour [B]Lien supprimé[/B]
'-interdire-une-valeur-de-saisie-conditionnelle.htm
'
 Application.ScreenUpdating = False
   Sheets('Questionnaire').Range('E2:F29').Copy
   With Sheets('archivage')
    .Activate
    .Range('Début').End(xlToRight).Offset(-3, 1).Activate
    .Paste
    End With
    val1 = Sheets('Questionnaire').Range('E4').Value
    
    Sheets('Archivage').Range('Début').End(xlToRight).Offset(-1, -1) = val1
    Sheets('Données Graph').Range('Note').End(xlDown).Offset(1, 0) = val1
    
    val2 = Sheets('Questionnaire').Range('E2').Value
    Sheets('Données Graph').Range('Date').End(xlDown).Offset(1, 0) = val2
    Sheets('Questionnaire').Activate
    Application.ScreenUpdating = True
End Sub

Si pb n'hésite pas

 

Vote positif 0 Vote négatif

N

Nadine

Guest

• 17 Avril 2006

• #11

Merciiiiiiiiii Dan !!!

C'est quand même vachement mieux comme ça....

il me reste a essayer de comprendre comment tu as fait (looool)

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 17 Avril 2006

• #12

Ok.

Si pb n'hésite pas



edition : J'allais oublier. Félicitations pour ton beau fichier !! Belle présentation.

Message édité par: Dan, à: 17/04/2006 21:30

 

Vote positif 0 Vote négatif