recherche fonction VBA ESTVIDE

[Hugues]

Bonjour Le Forum,
Tout d'abord une bonne et heureuse année à tout le Forum.

Je recherche la fonction sous VBA qui correspond à la fonction sous Excel de "ESSVIDE".
Je souhaiterais à l'intérieur d'une boucle rechercher les cellules vides dans la colonnes B.
Si la cellule est vide alaors il faut supprimer la ligne.
Merci par avance pour votre aide.

Hugues

 

[Guest]

Re : recherche fonction VBA ESTVIDE

bonjour Hugues

en adaptant ces 3 lignes à ta plages de données cela devrait le faire:

    Dim plage As Range
    Set plage = Range("B1:B7").SpecialCells(xlCellTypeBlanks)
    If Not plage Is Nothing Then plage.EntireRow.Delete

A++

 

[Raja]

Re : recherche fonction VBA ESTVIDE

Bonjour,

L'équivalent en anglais de la formule ESTVIDE() est : ISBLANK(). Je suppose que le VBA doit accepter celle-ci.

édit : Salut Hasco.

 

[Hugues]

Re : recherche fonction VBA ESTVIDE

Bonjour Hasco,
Merci pour cette réponse rapide.
Le code fonctionne bien. Mais toutefois quand il n'y a aucune cellule vide la procédure renvoie un message d'erreur. Comment faire pour éviter cel ?

Merci par avance ;

Ci joint le code :
' Recherche de la dernière ligne du tableau
derligne = Sheets("clients").Range("B65536").End(xlUp).Row
MsgBox ("La dernière ligne du fichier client est la N° : " & derligne)
' Définition de la plage
Set plage = Range("B4:B" & derligne).SpecialCells(xlCellTypeBlanks)
If Not plage Is Nothing Then plage.EntireRow.Delete

 

[Guest]

Re : recherche fonction VBA ESTVIDE

Re,

Je suppose que tu n'a pas du déclarer la variable 'plage'
Si tu la déclare comme en rouge ci-dessous, pas de problème
sinon donne le message d'erreur et la ligne en cause.

    [COLOR=red]Dim plage As Range[/COLOR]
    on error resume next
    Set plage = Range("B1:B7").SpecialCells(xlCellTypeBlanks)
 
    If Not plage Is Nothing Then plage.EntireRow.Delete

on error goto 0
A+

 

[Hugues]

Re : recherche fonction VBA ESTVIDE

Re bonjour Hasco,
Vraiment un grand merci . J'ai suivi tes conseils mais hélas je n'y arrive pas
Pourrais - tu regarder ce qui ne fonctionne pas ?
De plus j'ai un souci de copiage de données d'une feuille vers une autre.
Un grand merci par avance.
Hugues

 

[Guest]

Re : recherche fonction VBA ESTVIDE

Re Hugues,

Voici qui est corrigé.

A+

 

[Hugues]

Re : recherche fonction VBA ESTVIDE

Bonjour Hasco,

Un grand merci à toi et pour l'aide précieuse.

Hugues