Cellule vide mais pas identifiée comme vide

Question

J'ai eu ce code sur le site pour effacer des lignes entières si la cellule en colonne B est vide. ça ne fonctionne pas sur ce tableau (importé depuis une application) à la ligne 46, pourtant la cellule B46 semble vide. si je mets le curseur sur B46 et appuie sur la touche supprimer de mon clavier et qu'après je réactive le code, là ça fonctionne!!!! qu'est ce que celle cellule a de particulier? comment adapter le code? merci d'avance pour votre aide. cordialement. Moutchec...

Steelson · Answer

Peux-tu mettre ton fichier (tu peux supprimer les colonnes autres que B)...

m3ellem1 · Answer

Slt moutchec, slt Steelson,

oui la cellule B46 contient un espace

utilise ce code:

Private Sub CommandButton1_Click()
Dim i As Integer
For i = Range("B65536").End(xlUp).Row To 1 Step -1

  If Len(Trim(Cells(i, 2).Value)) = 0 And Len(Cells(i, 2).Value) <> 0 Or Len(Trim(Cells(i, 2).Value)) = 0 Then Rows(i).Delete

Next i
End Sub

ric · Answer

Il semble que l'importation des données depuis cet application laisse le caractère "chr(32)" dans les cellules que l'on croit vides. Une autre suggestion ... ric...

Steelson · Answer

Re

Bonjour m3ellem1 & ric

j'ai ajouté 2 colonnes à ton fichier ... mon but est de te guider dans la résolution du sujet par toi même, cela peut toujours servir

la première colonne donne le nombre de caractères

la seconde le premier caractère

en effet, il y a un espace (on trouve aussi souvent un espace insécable : 160 au lieu de 32)

11classeur1.xlsm (68.06 Ko)

tu peux donc mettre simplement

Private Sub CommandButton1_Click()
Dim i As Integer
For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
    If (Cells(i, 2)) = " " Then Rows(i).Delete
Next i
End Sub

au passage, Cells(Rows.Count, 2) permet de s'adapter à la version d'excel