XL 2016 Macro avec conditions multiples

KTM · 12 Juin 2019

SALUT le Forum
J'ai élaboré la macro suivante avec plusieurs conditions . Elle fonctionne bien mais j'aimerais savoir s'il ya un autre moyen plus simple de l'écrire. Merci

If Sheets("TB").Range("B5") = "" Or Sheets("TB").Range("B6") = "" Or Sheets("TB").Range("B7") = "" _
Or Sheets("TB").Range("B8") = "" Or Sheets("TB").Range("B9") = "" Or Sheets("TB").Range("B10") = "" _
Or Sheets("TB").Range("B11") = "" Then
MsgBox " Veuillez Renseigner Tout le Tableau de Bord ", 64
Exit Sub
End If

job75 · 12 Juin 2019

Bonjour KTM,

VB:

If Application.CountA(Sheets("TB").Range("B5:B11")) < 7 Then _
    MsgBox " Veuillez Renseigner Tout le Tableau de Bord ", 64: Exit Sub

A+

Hasco · 12 Juin 2019

Bonjour,

Tel que je comprends votre code, ceci pourrait faire l'affaire:

VB:

If Application.CountA(Sheets("TB").Range("B5:B11")) < 7 Then
    MsgBox " Veuillez Renseigner Tout le Tableau de Bord ", 64
End If

cordialement

KTM · 12 Juin 2019

Bien sur
Merci job75

KTM · 12 Juin 2019

Roblochon à dit:
Bonjour,

Tel que je comprends votre code, ceci pourrait faire l'affaire:

VB:

If Application.CountA(Sheets("TB").Range("B5:B11")) < 7 Then MsgBox " Veuillez Renseigner Tout le Tableau de Bord ", 64 End If

cordialement

Vrai
Merci

job75 · 12 Juin 2019

Un code un peu plus élaboré :

VB:

Dim r As Range
Set r = Sheets("TB").Range("B5:B11")
Set r = r.Find("", r(r.Count), xlValues)
If Not r Is Nothing Then
    MsgBox " Veuillez renseigner tout le tableau de bord...", 64
    r.Parent.Visible = xlSheetVisible 'si la feuille est masquée
    Application.Goto r
    Exit Sub
End If

XL 2016 Macro avec conditions multiples

KTM

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

KTM

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Discussions similaires