Autres Validation des données

[SamMar]

Bonjour à tous ,
dans mon travail chaque ouvrier doit rentrer un rapport quotidien sous forme d'un tableau excel en verticale les taches à réaliser (traçage, trou , soudage , échelle ..) et en horizontal le nombre de point à saisir si la taches a été réalisée ( par exemple traçage=2 , trou =8 , échelle= 5 )
je voudrai bien mettre une conditions de saisie genre que l'ouvrier ne peut remplir la case échelle que si traçage = 2 OU trou =8 et qu'il recoit un avertissement si une des conditions n'est pas respectées


MERCI

 

[sylvanu]

Bonjour SamMar,
Vous auriez un petit fichier test ?
Juste pour apporter une réponse plus ciblée à votre besoin.

 

[SamMar]

bonjour sylvanu ,
voila

Merci ^^

 

[casmaran]

Bonsoir chris et sylvanu
désolé de ne pas avoir répondu de suite, mais je ne peux plus ouvrir mon fichier excel ni même ma sauvegarde, je ne sais pas ce qui se passe, ça le fait que sur mon fichier carnet de vol, je verrai ça demain j'espère que je n'ai pas un bug grave sinon sinon j'ai perdu tout mon travail !

 

[soan]

Bonsoir casmaran, le fil,

Je crois que tu as posté dans le mauvais sujet : ici, c'est le sujet de SamMar ;
il y a aussi sylvanu, mais pas chris. 😉

soan

 

[soan]

Ajout : j'ai trouvé ton bon sujet ici :

Autres - Valider une même formule SOMME.SI.ENS sur plusieurs onglets

Bonjour à tous, je suis en train de finaliser la création d'un carnet de vol pilote (suite à une défaillance de mon fournisseur). Dans mes statistiques je veux déterminer, entre autres, le nombre d'heures de vol en double pour un avion déterminé. Mon fichier est constitué de 32 Pages de 33...

www.excel-downloads.com

donc c'est là que tu dois réécrire ton post #4.

soan

 

[sylvanu]

Bonjour SamMar,Soan, Casmaran,
@SamMar, en PJ un essai avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("F12:H25")) Is Nothing Then
        Ligne = Target.Row
        If Cells(Ligne, 2) = "" And Cells(Ligne, 5) = "" Then
            Application.EnableEvents = False
            MsgBox "Vous devez préalablement remplir Installation ou Amplificateur."
            Cells(Ligne, Target.Column) = ""
            Cells(Ligne, 2).Select
            Application.EnableEvents = True
        End If
    End If
End Sub

Tout accès à Echelle,Trou ou Traçage est interdit si Installation ou Amplificateur n'est pas renseigné.

 

[sylvanu]

Re le fil,
Une autre approche sans macro.
Remplir une case inopinément n'est pas interdit mais est mis en rouge par une MFC, de plus un signal Erreur est émis.

NB : Dans le fichier d'origine la liste en Traçage est faux, il est mis 6 au lieu de 1.

 

[casmaran]

Bonjour sylvanu, soan, et chris,
désolé pour l'erreur de direction de post,
j'ai pu récupérer mon fichier à partir d'un autre ordi, ouf !
concernant VB je ne suis pas à l'aise car je n'ai aucune notion de programmation; j'ai essayé la formule SOMMEPROD en prenant les 4 premières Pages, mais j'ai un message d'erreur de #REF.
Je vous joins mon fichier pour que vous puissiez regarder si vous pouvez.
Merci

 

[casmaran]

voici mon fichier que je n'ai pas joins 😕

 

[sylvanu]

Bonjour Casmaran,

Ce fil a été ouvert par SamMar, déjà signalé par Soan au post #5.

Veuillez remettre votre fichier dans votre fil ( très certainement celui ci : https://www.excel-downloads.com/thr...-somme-si-ens-sur-plusieurs-onglets.20048571/ )
Car ,là , un futur lecteur va vraiment s'arracher les cheveux en essayant de suivre la conversation.🙂

 

[casmaran]

il faut que je me familiarise avec le site, j'ai renvoyé le message j'espère au bon endroit

 

[SamMar]

Bonjour SamMar,Soan, Casmaran,
@SamMar, en PJ un essai avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("F12:H25")) Is Nothing Then
        Ligne = Target.Row
        If Cells(Ligne, 2) = "" And Cells(Ligne, 5) = "" Then
            Application.EnableEvents = False
            MsgBox "Vous devez préalablement remplir Installation ou Amplificateur."
            Cells(Ligne, Target.Column) = ""
            Cells(Ligne, 2).Select
            Application.EnableEvents = True
        End If
    End If
End Sub

Tout accès à Echelle,Trou ou Traçage est interdit si Installation ou Amplificateur n'est pas renseigné.

Bonjour sylvanu ,
merci pour ton aide .

je ne connais pas grand chose sur les macros ,vba... je suis en cours d’apprentissage

n'a t il pas une méthode plus simple en créant par exemple une validation de données personnalisé avec les fonction SI , OU ou autres ?


Bien à vous

 

[sylvanu]

Bonjour'
Un ex comme au post 8 n'est il pas suffisant ?
Sans VBA on est assez limité.