XL 2013 formule avec plusieurs ou

[papy 73 ans]

Bonjour à tous,
je cherche comment faire une formule avec plusieurs OU si ces cellules ne sont pas vides :
A7 - K7 - F9 - G11 - et I18
Je vous remercie de l'aide que vous m'apporterez

 

[xUpsilon]

Bonjour,

La fonction ESTVIDE(___) renvoie la valeur Vrai si la cellule est vide et faux si elle ne l'est pas.
Difficile de donner une réponse adéquate sans plus d'éclaircissements de ta part mais tu pourrais avoir qqchose comme :
=SI(OU(ESTVIDE(A7)=Faux;ESTVIDE(K7)=Faux; ......))

Autre indication au passage, si tu veux que toutes ces cellules ne soient pas vides, il te faut tester avec une condition ET et non pas un OU.

Bonne continuation

 

[Santulud]

bonjour papy,

Essai cette formule :

=SI(OUX(A7;K7;F9;G11;I18);"VRAI";"FAUX")

Si l'une des cases n'est pas rempli, ou sa valeur à zéro alors la formule renvoi à FAUX.

 

[papy 73 ans]

Bonjour xUpsilon, Santulud,
Je vous remercie mais cela ne fonctionne pas dans ma macro.
Ce que je souhaite c'est que si l'une de ces cellules est renseignée, ça mette un terme à la macro
Private Sub Worksheet_Change(ByVal Target As Range)

 

[xUpsilon]

Re,

Envoie ton fichier en attaché dans ce cas, ce serait plus simple.
Ca devrait ressembler à

If A7="" or K7="" or F9="" or G11="" or I18="" Then Exit Sub

Mais on est d'accord que tu veux un OU et non pas un ET hein ?

Bonne continuation

 

[job75]

Bonjour à tous,

Allons xUpsilon, papy a bien dit "si l'une de ces cellules est renseignée"...

A+

 

[job75]

Moi j'écrirai :

If [A7] & [K7] & [F9] & [G11] & [I18] <> "" Then Exit Sub

 

[papy 73 ans]

Bonjour job et un grand merci à toi c'est exactement ce que je recherchai.

 

[job75]

Autre solution :

If Not [A7,K7,F9,G11,I18].Find("*", , xlValues) Is Nothing Then Exit Sub

 

[papy 73 ans]

Bonjour job
Revenant sur ma demande je découvre ta seconde proposition, mais ne la comprenant pas, pourrais-tu me l'expliquer en détails Stp
En te remerciant.

 

[job75]

Bonjour papy 73 ans,

C'est simple, avec la méthode Find on recherche une valeur dans la plage [A7,K7,F9,G11,I18].

L'astérisque ""*" est un caractère générique.

A+

 

[papy 73 ans]

Bonjour job
Oui c'est simple lorsque l'on sait
Un grand merci à toi

 

[Dudu2]

Bonjour,
"Ce que je souhaite c'est que si l'une de ces cellules est renseignée, ça mette un terme à la macro"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A7,K7,F9,G11,I18")) Is Nothing Then
        If Not IsEmpty(Target) Then
            --- Code pour que "ça mette un terme à la macro" (?) ---
        End If
    End If
End Sub

 

[job75]

Bonjour Dudu2, bienvenue sur XLD,

Range accepte au plus 2 arguments, il faut donc écrire Range("A7,K7,F9,G11,I18")

IsEmpty ne va pas si les cellules contiennent des formules renvoyant le texte vide "" (True est renvoyé).

A+

 

[Dudu2]

Bonjour Job75,
En effet, j'avais commencé par une union des Ranges puis j'ai pensé à simplifier en me trompant de syntaxe sur le Range "multi-area".
J'ai corrigé après avoir vérifié que ça ne marchait pas. J'aurais dû vérifier avant !
IsEmpty() s'applique aux constantes et aux formules. En l'occurrence, la condition énoncée par papy "si l'une de ces cellules est renseignée" est assez ouverte et, même si on peut parier qu'il pense à une constante, pourrait en théorie s'appliquer à la saisie d'une formule retournant n'importe quoi voire un texte vide.
On est sur un Worksheet_Change() pas sur un test des contenus comme sur les posts précédents.