renvoie adresse case vide

**afssaLERH** · 28/11/2007, 09h36

Bonjour,

voila j'ai une feuille de paillasse (de chimie) ou toutes les données doivent absolument aparaitre dans les colonnes B C H et I.
Dans la colonne L j'ai un filtre sur le nom de l'analyse.
Ce qu'il me faudrai :
=> a chaque fois que je change le filtre, je regarde la plage filtrée et si une des colonnes citées ci-dessus est vide un message d'aletre doit apparaitre avec l'adresse de la cellule à remplir (par exemple B12).

On m'a donné ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Plage = Cells.SpecialCells(xlCellTypeVisible).Address

pour recuperer la plage visible. Mais je ne sais absolument pas comment l'utiliser.

Merci pour votre aide...

**ouskel'n'or** · 28/11/2007, 09h46

Ce que tu dois faire, pour une colonne, c'est tester si la cellule de la première ligne de ta colonne est vide.
Je suppose que des données se trouvent normalement des colonnes 1 à 10
Si je veux tester ces colonnes, je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim ok as boolean
ok = True
For NoCol = 1 to 10
    Ok = Ok and (Cells(Columns(NoCol).Cells.Count, NoCol).End(xlUp).Row <> 1 or _
      Cells(Columns(NoCol).Cells.Count, NoCol).End(xlUp).Row = 1 and Cells(1, NoCol) <> "")
    if not ok then
         Msgbox "Colonne " & NoCol & " vide"
         Exit for
    endif
Next

Tu peux également créer un tableau des colonnes vides
Tu dis
A+

**afssaLERH** · 28/11/2007, 10h53

mais comment je peux liée les deux?
La plage recuperée et la recherche dans les colonnes comme tu viens de me mettre?

Et oui quand on est pas douée comme moi la vie est pas facile en VBA

**ouskel'n'or** · 28/11/2007, 11h59

Pour récupérer la plage de données, tu dois connaître la dernière colonne de ta plage et la dernière ligne de ta plage.
Comme ta plage est filtrée, tu ne dois prendre que les cellules visibles
Ce qui donne, avec un filtre sur la colonne L,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test()
Dim NoCol As Integer, ok As Boolean
Dim Col As Range, TabCol As Variant
    NoCol = 12
    DerniereLigne = Cells(Columns(NoCol).Cells.Count, NoCol).End(xlUp).Row
    DerniereColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column
    TabCol = Array(2, 3, 8, 9)
    With Cells.SpecialCells(xlCellTypeVisible)
        For NoCol = 0 To UBound(TabCol)
            ok = Cells(Columns(TabCol(NoCol)).Cells.Count, TabCol(NoCol)).End(xlUp).Row <> 1 Or _
                (Cells(Columns(TabCol(NoCol)).Cells.Count, TabCol(NoCol)).End(xlUp).Row = 1 And _
                Cells(1, TabCol(NoCol)) <> "")
            If Not ok Then _
            MsgBox "Colonne " & TabCol(NoCol) & " vide"
         Next
    End With
End Sub