vérifier contenu de plusieurs cellules Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Scorpdragon
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 26 janvier 2013
Version d'Excel : 2007 FR

Message par Scorpdragon » 4 mars 2014, 11:03

Bonjour
Je cherche une méthode pour que quand dans une colonne données j'ai une valeur alors je dois vérifier que j'ai une valeur dans au moins une des 3 cellules prédéfinies

je m'explique :

si dans la colonne A j'ai des cellules non vides alors je dois avoir une valeur dans C ou D ou E sur la ligne correspondante.

J'ai tenté quelque chose mais ça ne fonctionne pas je vous joint mon fichier pour éclaircir ma demande.
Essai.xlsm
(14.73 Kio) Téléchargé 18 fois
Merci.
C'est au pied du mur...qu'on voit le mieux le mur !
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 3
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 4 mars 2014, 11:37

Bonjour

A tester
Formule en E3 et à tirer vers le bas
=NBVAL(B3:D3)-NBVAL(A3)=0
Image
Avatar du membre
Scorpdragon
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 26 janvier 2013
Version d'Excel : 2007 FR

Message par Scorpdragon » 4 mars 2014, 13:19

Merci
Cette méthode fonctionne mais en fait j'aurais voulu une méthode vba car par la suite je veux que quand je clique sur un bouton de validation cela me vérifie si toutes les conditions sont remplies le test est valide sinon j'affiche une "MgBox" pour signaler qu'il y a une condition fausse.

J'ai fait ce bout de code qui fonctionne :
Private Sub Validation_Click()
Dim wS As Worksheet
Dim Dernumero As Long, i As Long

    Application.ScreenUpdating = False
    Set wS = Worksheets("Feuil1")
    With wS
        Dernumero = .Range("J" & Rows.Count).End(xlUp).Row
        For i = 1 To Dernumero
            
            If .Cells(i, 10).Value Like "*toto*" Then
                    
                    If .Cells(i, 11).Value Like "" And .Cells(i, 12).Value Like "" And .Cells(i, 13).Value Like "" Then
                    MsgBox "manque valeur"
                                                        
                    Exit Sub
                
                    End If
                
            Else
                Goto Fin
                
            End If
        Next
    End With
End Sub
Par contre j'aimerais pouvoir afficher dans ma MsgBox la cellule en cause
C'est au pied du mur...qu'on voit le mieux le mur !
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 3
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 4 mars 2014, 23:44

Bonsoir
Scorpdragon a écrit :Par contre j'aimerais pouvoir afficher dans ma MsgBox la cellule en cause
Pas facile car c'est une des 3 (au choix - pile ou face - Am, stram, gram )
Et même cela pourrait être la 1ère cellule parce qu'il faudrait qu'elle soit vide

Donc tu peux marquer
MsgBox "manque valeur " & .Cells(i, 11).Address
ou
MsgBox "manque valeur " & .Cells(i, 12).Address
ou
MsgBox "manque valeur " & .Cells(i, 13).Address
ou
MsgBox "valeur en trop " & .Cells(i, 10).Address
A toi de choisir
Image
Avatar du membre
Scorpdragon
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 26 janvier 2013
Version d'Excel : 2007 FR

Message par Scorpdragon » 5 mars 2014, 06:43

Merci
C'est ce que je pensais.
C'est au pied du mur...qu'on voit le mieux le mur !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message