XL 2013 formule avec plusieurs ou

xUpsilon

XLDnaute Accro

• 16 Décembre 2019

• #2

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

 

Vote positif 0 Vote négatif

S

Santulud

XLDnaute Occasionnel

• 16 Décembre 2019

• #3

bonjour papy,

Essai cette formule :

VB:

=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.

 

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 16 Décembre 2019

• #4

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)

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 16 Décembre 2019

• #5

Re,

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

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Décembre 2019

• #6

Bonjour à tous,

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

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Décembre 2019

• #7

Moi j'écrirai :

VB:

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

 

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 16 Décembre 2019

• #8

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Décembre 2019

• #9

Autre solution :

VB:

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

 

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 17 Décembre 2019

• #10

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Décembre 2019

• #11

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+

 

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 17 Décembre 2019

• #12

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 17 Décembre 2019

• #13

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

VB:

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

 

Dernière édition: 17 Décembre 2019

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Décembre 2019

• #14

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+

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 17 Décembre 2019

• #15

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.

 

Vote positif 0 Vote négatif