XL 2010 Première cellule vide d'une plage

Phil_2059 · 20 Juin 2020

Bonjour, Je cherche à activer la première cellule vide au sein d'une plage (navigation de gauche à droite, de haut en bas)...
J'ai trouvé une macro mais qui ne fonctionne pas toujours. Auriez vous une solution ? Merci d'avance de votre aide. Phil.
Sub PremiereCelluleVide()
Set r = Range("Tableau3")
For i = 1 To r.Rows.Count
If r.Cells(i).Formula = "" Then
Set PremiereVide = r.Cells(i)
PremiereVide.Select
Exit Sub
End If
Next
End Sub

mapomme · 21 Juin 2020

Bonjour @Phil_2059 , bienvenue sur XLD .
Bonjour @chris

En partant de votre code, chacune des macros ci-dessous devrait le faire :

VB:

Sub PremiereCelluleVide()
   Set r = Range("Tableau3")
   For i = 1 To r.Count     ' r contient r.Count cellule et non  r.Rows.Count (nombre de ligne)
      If r.Cells(i).Formula = "" Then Set PremiereVide = r.Cells(i): PremiereVide.Select: Exit Sub
   Next i
End Sub

Sub PremCellVide()
   For Each x In Range("Tableau3")
      If x.Formula = "" Then Set PremiereVide = x: x.Select: Exit Sub
   Next
End Sub

Cette dernière est la plus rapide (respectivement 4,1 s ; 2,3 s ; 0,25 s pour un tableau de 1 million de cellules avec les cellules vides vers...

chris · 20 Juin 2020

Bonjour

On suppose que Tableau3 est un tableau structuré

Dans ce cas il ne doit pas contenir de ligne vide et on peut facilement se placé à la fin tout en crénat une nouvelle ligne...

mapomme · 21 Juin 2020

Bonjour @Phil_2059 , bienvenue sur XLD .
Bonjour @chris

En partant de votre code, chacune des macros ci-dessous devrait le faire :

VB:

Sub PremiereCelluleVide()
   Set r = Range("Tableau3")
   For i = 1 To r.Count     ' r contient r.Count cellule et non  r.Rows.Count (nombre de ligne)
      If r.Cells(i).Formula = "" Then Set PremiereVide = r.Cells(i): PremiereVide.Select: Exit Sub
   Next i
End Sub

Sub PremCellVide()
   For Each x In Range("Tableau3")
      If x.Formula = "" Then Set PremiereVide = x: x.Select: Exit Sub
   Next
End Sub

Cette dernière est la plus rapide (respectivement 4,1 s ; 2,3 s ; 0,25 s pour un tableau de 1 million de cellules avec les cellules vides vers la fin du tableau) :

Code:

Sub PremCelluleVide()
   Set r = Range("Tableau3"): t = r.Value
   For i = 1 To UBound(t): For j = 1 To UBound(t, 2)
      If t(i, j) = "" Then
         If r.Cells(i, j).Formula = "" Then Set PremiereVide = r.Cells(i, j): PremiereVide.Select: Exit Sub
      End If
   Next j: Next i
End Sub

cp4 · 21 Juin 2020

Bonjour Phil_2059, Chris, Mapomme,

@Phil_2059 : Moi j'ai testé ton bout de code. Il fonctionne bien si on rajoute le nom de la feuille avant tableau3, soit

VB:

'feuil1 =feuille où se trouve le tableau3'
r=feuill1.Range("Tableau3")

Bonne journée.

fanch55 · 21 Juin 2020

Bonjour @Phil_2059 , le Fil,

Et avec l'instruction ci-dessous, cela ne marche pas ?

VB:

[Tableau3].SpecialCells(xlCellTypeBlanks).Select

mapomme · 21 Juin 2020

Bonjour @fanch55 ,

fanch55 à dit:
Et avec l'instruction ci-dessous, cela ne marche pas ? VB:

VB:

[Tableau3].SpecialCells(xlCellTypeBlanks).Select

Sauf dans un seul cas. Celui de la "chaine vide". Ce cas est illustré dans le fichier joint. Et pour l'instant, MS n'a pas fourni de fonction pour contourner cet écueil de manière concise.

mapomme · 21 Juin 2020

Bonjour @cp4 ,

cp4 à dit:
Moi j'ai testé ton bout de code. Il fonctionne bien si on rajoute le nom de la feuille avant tableau3,

Pas tout à fait...

Phil_2059 · 21 Juin 2020

Merci à tous pour votre aide !
Phil.

cp4 · 21 Juin 2020

mapomme à dit:
Bonjour @cp4 ,
Pas tout à fait...

Re, Mapomme,
J'avoue ne pas avoir compris la subtilité de ton code, dans lequel Tableau3 est une plage nommée.
J'avais cru comprendre que Phil utilisait un tableau structuré (dans son cas Tableau3).

mapomme · 21 Juin 2020

Re @cp4,

Effectivement, les deux écritures ne sont pas équivalentes :

Dans le cas d'un tableau structuré, Range("Tableau3") représente les données du tableau sans la barre de titre.
Dans le cas d'une plage nommée, Range("Tableau3") représente les données du tableau y compris la barre de titre.

Je n'ai vu nulle part que c'était un tableau structuré dans la question.

cp4 · 21 Juin 2020

mapomme à dit:
Je n'ai vu nul part que c'était un tableau structuré dans la question.

@mapomme : C'est la supposition de Chris au post#2 (tableau structuré).
Merci beaucoup pour tes explications.

Bonne soirée.

job75 · 21 Juin 2020

Bonjour à tous,

Sur 1 000 000 de cellules chez moi :

- la dernière macro de mapomme post #3 s'exécute en 0,27 seconde.

- celle-ci en 0,45 seconde :

VB:

Sub RechercheCelluleVide()
On Error Resume Next
Range("Tableau3").Find("", , xlValues, , xlByRows).Select
End Sub

A+

fanch55 · 21 Juin 2020

mapomme à dit:
Bonjour @fanch55 ,

Sauf dans un seul cas. Celui de la "chaine vide". Ce cas est illustré dans le fichier joint. Et pour l'instant, MS n'a pas fourni de fonction pour contourner cet écueil de manière concise.

Salut @mapomme ,
En fait ce n'est pas la chaine vide qui pose problème, c'est sa couleur de fond :
il semblerait que la fonction considère que xlCellTypeBlanks ne s'applique pas à une cellule dont la couleur n'est pas "automatique" alors qu'aucun problème avec l'encadrement, allez comprendre.....

Edit: je comprends plus , j'ai voulu vérifier, je ne reproduis plus le même problème ou cela devient aléatoire ... vraiment une fonction à fuir ...

XL 2010 Première cellule vide d'une plage

Phil_2059

XLDnaute Nouveau

mapomme

chris

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

Phil_2059

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Discussions similaires