Vérifier contenu de plusieurs cellules

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.

38essai.xlsm (14.73 Ko)

Merci.

Bonjour

A tester

Formule en E3 et à tirer vers le bas

=NBVAL(B3:D3)-NBVAL(A3)=0

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

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

Merci

C'est ce que je pensais.

Rechercher des sujets similaires à "verifier contenu"