[VBA Excel] Pb avec IsEmpty

Résolu
saian-sugus -  
Bonjour,

j'aimerai tester si un groupe de cellules ne sont pas vides. 

Mon code:
Range("B9:B11,B17:B19,B25:B26,B32:B33,B38:B39,B47:B48,B53:B56,B63:B68,B78:B81,B88:B91").Select
If Not IsEmpty(ActiveCell.Value) Then
Else
MsgBox ("Veuillez remplir les chiffres définitifs de l'année en cours")
Exit Sub
End If


Mais ce test ne marche que sur B9 et non sur toute la sélection comme souhaité, je ne trouve la solution nul part, pourriez-vous m'aider?

Merci d'avance :)
Configuration: Windows XP
Internet Explorer 7.0

4 réponses

  1.  lermite222 Contributeur
    Aller... je me dévoue... 
    Sub SiVide()
If Application.CountA(Range _
("B9:B11,B17:B19,B25:B26,B32:B33,B38:B39, B47: B48 , B53: B56 , B63: B68 , B78: B81 , B88: B91 ")) < 32 Then
               MsgBox ("Veuillez remplir les chiffres définitifs de l 'année en cours")
                Exit Sub
end if

End Sub

    C'est pas plus simple ??
    A+
    1. lermite222 Contributeur
      Bonjour,
      la macro qui fait ce que tu veux 
      Sub TestVide()
Dim TB
Dim i As Integer
Dim cel As Range
    TB = Array("B9:B11", "B17:B19", "B25:B26", "B32:B33", "B38:B39", _
    "B47:B48", "B53:B56", "B63:B68", "B78:B81", "B88:B91")
    For i = 0 To UBound(TB)
        For Each cel In Range(TB(i))
            If cel = "" Then
                MsgBox ("Veuillez remplir les chiffres définitifs de l 'année en cours")
                Exit Sub
            End If
        Next cel
    Next i
End Sub

      A+
      1. saian-sugus Auteur
        Merci lermite, parfait :)
      2. lermite222 Contributeur
        @saian-sugusMes avis que tu n'a pas compris le code donner par Michel, il est beaucoup plus cour.

        Cogite un peu dessus et tu verras...
        Si vraiment tu ne trouve pas Michel ou moi te donnerons plus d'explications.
        A+
    2. michel_m Contributeur
      re-re

      test = Application.CountA(Range("B9:B11,B17:B19,B25:B26,B32:B33,B38:B39,B47:B48,B53:B56,B63:B68,B78:B81,B88:B91"))

      te donne le nombre de cellules non vides dans ta zone, donc...
      1. lermite222 Contributeur
        Bonjour Michel, comme quoi ont apprend tout les jours, connaissais pas CountA
        A+
        Edit: Je trouve d'ailleur rien sur CountA dans l'aide ?? pas étonnant que je connais pas.
        La seule solution trouvée dans l'aide renvoi à For Each...
      2. michel_m Contributeur
        @lermite222Salut lermite

        CountA est le terme anglais pour nbval

        en écrivant Application.countA(...) j'utilise la syntaxe simplifiée de application.worksheetfunction.countA(.....)
        vola,vloila

        bon après midi
    3. saian-sugus Auteur
      J'ai oublié de souligner que j'aimerais que toutes les cellules ne doivent pas être vides et non pas une seule..