Discussion :

[patricktoulon]

bonjour a tous
en aidant un autre forumeur je m'interesse au fonction natives d'excel vba

je cherche a gerer cette erreur

Code :

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

 MsgBox .Range("b2:b" & Range("B" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Rows.Count

si il y a des cellules vides en colonne "b" le message me donne le nombre de ligne ou la colonne "b" est vide
parcontre si il n'y a pas de cellules vides dans la colonne "b" c'est le bug "erreur 1004"il n'y a pas de cellules correspondantes

ma question est:
sans faire de boucle comme tester une plage pour trouver le cas echehant les cellule vides

une idée??

merci pour le retour

au plaisir

[gFZT82]

Bonjour Patrick,

Code :

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

1
2
3
    Set C = .Range("b2:b" & Range("B" & Rows.Count).End(xlUp).Row)
    If Application.CountBlank(C) > 0 Then
        Valeur = C.SpecialCells(xlCellTypeBlanks).Rows.Count

Cordialement.

[patricktoulon]

bonsoir
c'est bon j'ai trouvé

Code :

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

1
2
3
4
5
6
7
 
With Sheets(1)
                derligne = .Range("c" & Rows.Count).End(xlUp).Row
               If Application.WorksheetFunction.CountIf(Range("b1:b" & derligne), "") > 0 Then
                .Range("b2:b" & derligne).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        End If
end with

merci quand meme

oupss!!! gFZT82 on c'est croisé je regarde ca de plus prêt je te remercie pour le retour
au plaisir

[patricktoulon]

bonjour
pour le coté simplifié je prefere ton code

a mon avis

Code :

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

If Application.CountBlank(C) > 0 Then

c'est la methode excel 2003

Code :

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

 If Application.WorksheetFunction.CountIf(Range("b1:b" & derligne), "") > 0 Then

methode excel 2007

merci encore
au plaisir