renvoie adresse case vide

Version imprimable

28/11/2007, 09h36
afssaLERH

renvoie adresse case vide

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:

Plage = Cells.SpecialCells(xlCellTypeVisible).Address

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

Merci pour votre aide...

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:

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+

28/11/2007, 10h53
afssaLERH

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 ;)

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:

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

Mais j'ai l'impression que tu veux quelque chose de plus...
Précise ta demande
A+

29/11/2007, 08h41
afssaLERH

merci
je suis en réunion toute la journée aujourd'hui mais je test dès que j'ai 5 minutes...
07/12/2007, 09h52
afssaLERH

desolée mais je suis partie en formation JAVA docn j'ai pu regarder comment ça marchait que ce matin.
Merci c'est nickel