XL 2019 cellule vide

[MOmichel]

bonjour
j'aimerai avoir une explication j'ai un tableau avec X lignes ci dessous
lorsque je veux sélectionner la premiere ligne non vide da la colonne E en appliquantt le code

Range("e20000").Select
' Boucle tant que pas vide
Do While (IsEmpty(ActiveCell))
NbLigne = NbLigne - 1
Selection.Offset(-1, 0).Select
Loop
Selection.Offset(1, 0).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.ClearContents
Range("e20000").Select
Selection.End(xlUp).Select

je viens me positionner sur la cellule E,91 et non sur la E79 ?

par avance merci pour vos commentaires

 

[chris]

Bonjour

A priori

1. tu bosses sur un tableau structuré et non une plage
2. ton code pour trouver une cellule non vide en partant de la cellule 20000 est un non sens avec boucle et select
   Range("E20000").end(Xlup) suffit

 

[Patrice33740]

La cellule E91 est-elle vide ???
Une cellule vide ne contient rien : ni formule, ni espace, ni ....

 

[vgendron]

Bonjour
Pour trouver la ligne de la Dernière CelluleNON vide de la colonne A
Derligne=range("A" &rows.count).end(xlup).row
hello All

et la PREMIERE (j'ai mal lu la demande)
FirstLine=range("E1").end(xldown).row

 

[chris]

RE à tous

S'il s'agit d'un tableau structuré
Derligne=range("A" &rows.count).end(xlup).row
ne fonctionne pas contrairement à
FirstLine=range("E1").end(xldown).row
qui fonctionne dans certaines situations mais pas toutes

Il faut tester avec quelque chose comme

For Each cellule In [NomTableau].ListObject.ListColumns(5).DataBodyRange
ou
With [NomTableau].ListObject.ListColumns(5).DataBodyRange
   For i = .Rows.Count + .Row - 1 To .Row Step -1
       If IsEmpty(.Cells(i, 1)) Then ...

 

[vgendron]

a quoi voyez vous qu'il s'agit d'un tableau structuré à partir d'un simple screen shot ?

ah oui.. je viens de voir.. "Colonne 1" :-D

 

[MOmichel]

Bonjour
ce tableau est renséigné via un userfrorm , et si j'ai fait une boucle c'est pour m'assurer que rien est dans ces cellules

 

[Staple1600]

Bonjour le fil

Avec ce bidule, on peut tendre vers le vide, non?

Sub DerLig_ListObject()
Dim tlObj As ListObject, Der_Lig_Tableau&
Set tlObj = ActiveSheet.ListObjects(1)
Der_Lig_Tableau = tlObj.ListColumns(1).Range.Rows.Count
MsgBox Der_Lig_Tableau & " (avec l'entête)", 64, "Nombre de ligne d'un Tableau:"
MsgBox tlObj.DataBodyRange.Rows.Count
End Sub

 

[MOmichel]

lorsque je veux sélectionner la premiere ligne non vide da la colonne E en appliquantt le code
ce que je voulais demander c'est
lorsque je veux sélectionner la premiere cellule non vide de la colonne E en appliquant le code ci dessous

 

[chris]

RE

J'ai donné le code déjà au #5

 For Each cellule In [NomTableau].ListObject.ListColumns(5).DataBodyRange
     If IsEmpty(cellule) Then ....
Next cellule

Adpater NomTableau

 

[MOmichel]

bonjour je viens d'essayer mais message d'erreur "erreur de compilation Next sans for"

voila ce que j'ai recopie de ta solution
For Each Cellule In [tsource].ListObject.ListColumns(5).DataBodyRange
If IsEmpty(Cellule) Then
Next Cellule

 

[Staple1600]

Re

Et c'est là qu'on se demande (ou qu'on peut le faire)
Mais diable, pourquoi le demandeur n'a pas joint de fichier Excel dès son premier message?
Oui, on peut se le demander (en affichant un air las et fatigué , directe conséquence de rabâcher cette rengaine pour la 12729ième fois)

 

[chris]

RE

A toi de compléter ce qui se passe après le then ....

Les ... indiquait une suite à saisir

Comme déjà dit select est à proscrire donc on ne sait ce que tu y fais dans la celllule...

 

[Patrice33740]

lorsque je veux sélectionner la premiere ligne non vide da la colonne E en appliquantt le code
ce que je voulais demander c'est
lorsque je veux sélectionner la premiere cellule non vide de la colonne E en appliquant le code ci dessous

Apparemment, E79 est la dernière cellule non vide

 

[soan]

Bonjour,

un exemple :

For Each Cellule In [tsource].ListObject.ListColumns(5).DataBodyRange
  If IsEmpty(Cellule) Then Cellule.EntireRow.Select
Next Cellule

et plus d'erreur de compilation « Next sans For » !

attention : si tu veux supprimer les lignes pour lesquelles Cellule est vide,
tu dois utiliser une boucle qui balaye les lignes de bas en haut, afin que
le compteur de la boucle ne soit pas « perturbé » !

soan