XL 2019 cellule vide

MOmichel · 20 Décembre 2020

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

Staple1600 · 22 Décembre 2020

Bonjour le fil

Fonctionne chez moi
(toujours sur le fichier demo.xlsm)

VB:

Sub PremièreVideDepuisBas()
Dim LObj As ListObject, premCellVideDepuisBas&
Set LObj = ActiveSheet.ListObjects("Tsource")
With LObj.Range.Columns(5)
premCellVideDepuisBas = .Cells(.Rows.Count).End(xlUp).Row + 1
End With
MsgBox premCellVideDepuisBas, vbInformation, "N°Ligne"
LObj.Range(premCellVideDepuisBas, 5).Select
End Sub

chris · 20 Décembre 2020

Bonjour

A priori

tu bosses sur un tableau structuré et non une plage
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 · 20 Décembre 2020

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

vgendron · 20 Décembre 2020

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 · 20 Décembre 2020

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

VB:

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 · 20 Décembre 2020

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 · 20 Décembre 2020

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 · 20 Décembre 2020

Bonjour le fil

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

VB:

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 · 20 Décembre 2020

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 · 20 Décembre 2020

RE

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

VB:

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

Adpater NomTableau

MOmichel · 20 Décembre 2020

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 · 20 Décembre 2020

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 · 20 Décembre 2020

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 · 20 Décembre 2020

MOmichel à dit:
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 · 20 Décembre 2020

Bonjour,

un exemple :

VB:

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

XL 2019 cellule vide

MOmichel

XLDnaute Junior

Staple1600

chris

XLDnaute Barbatruc

Patrice33740

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

MOmichel

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

MOmichel

XLDnaute Junior

chris

XLDnaute Barbatruc

MOmichel

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

Patrice33740

XLDnaute Impliqué

soan

XLDnaute Barbatruc

Discussions similaires