syntaxe cellule vide sous VBA

[oliv]

Bonjour,
je souhaite savoir si qqn connai la syntaxe pr les cellules vides sous VBA.
En effet, je souhaite effectuer une rechercher de ttes les cellules vides de la premiere colonne dune feuille excel.
Je souhaite ensuite supprimer les lignes correspondant aux cellules vides trouvée.

Merci

 

[@Christophe@]

Bonjour,

Voici la syntaxe VBA qu'il te faut:

Sheets('Feuil1').Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Bonne journée

 

[mikael2403]

Re : syntaxe cellule vide sous VBA

Bonjour,

En suivant la syntaxe ci-dessus, je n'arrive pas à l'adapter à mon fichier.

Je souhaite que les lignes 13 à 19 puis 26 à 28 soient supprimées si les cellules de la 1ere colonne ("A13";"A14";etc...) sont vides.

Je sollicite votre aide, si quelqu'un connait l'astuce.

Merci beaucoup.

 

[Pierrot93]

Re : syntaxe cellule vide sous VBA

Bonsoir Mikael

essaye peut être avec le code ci dessous, ou 13 represente la première ligne des cellules à tester :

Sub test()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 13 Step -1
    If IsEmpty(Cells(i, 1).Value) Then Rows(i).Delete
Next i
End Sub

bonne soirée
@+

 

[CelluleVide]

Re : syntaxe cellule vide sous VBA

Bonjour Mickael2403,

Essais ce bout de code:

Dim Ligfin as string, Cel as range
Range("A65536").Select
Selection.End(xlUp).Select
Ligfin = ActiveCell.Row
Range("A1", "A" & Ligfin).Select
For each Cel in Selection
If lig = "" Then

'ICI, TU METS TON CODE POUR FAIRE CE QUE TU DESIRES

Next Cell

A+

 

[Pierrot93]

Re : syntaxe cellule vide sous VBA

Re, bonsoir cellulevide

@cellulevide
attention avec ta boucle for each, si tu as 2 cellules consécutives qui répondent au critère, une seule ligne sera effacée.

@+

 

[mikael2403]

Re : syntaxe cellule vide sous VBA

Merci à vous 2 pour vos réponses.

Cependant, il y a des lignes vides qui ne doivent pas être supprimées et qui se trouvent entre certaines qui doivent, au contraire être supprimées.

La formule doit absolument vérifier les lignes 13 jusqu'à 19 puis sauter à la ligne 22 (donc les lignes 20 à 21 ne doivent pas être supprimées et elles sont vides) puis véirifer à nouveau de la ligne 22 à 29.

Comment je peux adapter ma formule ?

Désolé, je débute en VBA et ne connait pas toutes les fonctions.

Merci beaucoup.🙂

 

[Pierrot93]

Re : syntaxe cellule vide sous VBA

Re

regarde la modification si cela te convient :

Sub test()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 13 Step -1
    If IsEmpty(Cells(i, 1).Value) And i <> 20 And i <> 21 Then Rows(i).Delete
Next i
End Sub

@+