validation de donnees suivant colonne

  • Initiateur de la discussion Initiateur de la discussion GHISLAIN
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

GHISLAIN

XLDnaute Impliqué
bonjour a tous
en utilisant les donnees de validation
j'oblige la saisie de 4 caracteres (proposition faite par JCGL)
je souhaiterais completer cette validation de donnee en imposant
la saisie de 4 caracteres uniquement dans les colonnes ou la cellule de
la ligne 3 est differente de auto
et pour les colonnes ayant en entete en ligne 3 auto , autoriser une saisie
de 4 a 5 caracteres

merci a tous de votre aide et suggestions

cordialement ghislain
 

Pièces jointes

Re : validation de donnees suivant colonne

Bonjour à tous,

Peux-tu essayer ceci dans la validation en Personnalisé et Décocher "Ignorer si Vide" :
Code:
=SI(C$3="AUTO";NBCAR(C7)>=4;SI(C$3<>"AUTO";NBCAR(C7)=4))

A + à tous

Edition : Voir la proposition de rachid en #6 plus adaptée à la demande
 
Dernière édition:
Re : validation de donnees suivant colonne

Bonjour,

Il y a peut-être une solution avec (Données / Validation / ....)

Une solution avec macro évènementielle

A tester dans les cellules F5 et G5

Il faudrait supprimer toutes les Données / validation actuellement en place

a+
 

Pièces jointes

Re : validation de donnees suivant colonne

Bonjour à tous,
Bonjour Chalet,

Bien vu...
Puis-je permettre (pour un retour sur la cellule "incriminée" et son effacement) :

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.EnableEvents = False Then Application.EnableEvents = True: Exit Sub
    If Cells(3, Target.Column) = "AUTO" Then
        If Len(Target.Value) < 4 Or Len(Target.Value) > 5 Then
            MsgBox ("4 ou 5 caractères")
            Application.EnableEvents = False


            With Target
                .Value = ""
                .Select
            End With


            Application.EnableEvents = True
        End If
    Else
        If Len(Target.Value) <> 4 Then
            MsgBox ("4 caractères")
            Application.EnableEvents = False


            With Target
                .Value = ""
                .Select
            End With


            Application.EnableEvents = True
        End If
    End If
End Sub

A + à tous
 
Re : validation de donnees suivant colonne

Bonjour @ tous,
@ JCGL :
Bonjour à tous,
Peux-tu essayer ceci dans la validation en Personnalisé et Décocher "Ignorer si Vide" :
Code :
=SI(C$3="AUTO";NBCAR(C7)>=4;SI(C$3<>"AUTO";NBCAR(C7)=4))
je souhaiterais completer cette validation de donnee en imposant
la saisie de 4 caracteres uniquement dans les colonnes ou la cellule de
la ligne 3 est differente de auto
et pour les colonnes ayant en entete en ligne 3 auto , autoriser une saisie
de 4 a 5 caracteres
Code:
=SI(C$3="AUTO";ET(NBCAR(C7)>=4;NBCAR(C7)<=5);NBCAR(C7)=4)
Sauf erreur de ma part
Amicalement
 
Re : validation de donnees suivant colonne

Bonjour à tous,

Chalet : Chez moi les pistes ferment demain... Jolie saison. Il a neigé il y a deux jours... Pour notre ami Robino, je t'ai "liké" car je ne souhaite plus répondre, il ne semble pas lire les messages ou les comprendre. A++ l'ami

A + à tous
 
Re : validation de donnees suivant colonne

Re,

Merci pour l'info JCGL : Les pistes ferment également ce week end (avec encore 3.35m en haut de Flaine). toutefois, j'ai regagné ma province natale depuis 2 semaines.

Afin de ne pas mourir idiot : liké (j'ai déjà vu) quel interprétation de ce message ?

a+
 
Re : validation de donnees suivant colonne

bonjour chalet53 , rachid_0661 ainsi que JCGL

je vois que mon poste a attiré l'attention des exceliens et j en suis ravi
je vous remercie a tous.
je n ai que l embarras du choix de vos superbent propositions
tres amicalement
bon week end a tous
>Ghislain
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
22
Affichages
2 K
Retour