Microsoft 365 Trouver la première cellule vide sur une range prédéfinie

[SPGoder]

Bonjour
Je souhaiterai savoir comment trouver la première cellule vide dans un "tableau sur une feuille".
Sachant qu'il y a d'autres tableaux en dessous,. je ne peux me servir de la colonne en entier pour trouver la première cellule vide avec :

 Feuille1. .Range("A65536").End(xlUp).Row + 1

J'ai trouvé une parade en faisant :

    Dim j As Integer, L As Integer
 
        For j = 2 To 15
            If Feuil1.Cells(j, "A").Value = "" Then L = j: Exit For
        Next j
        Feuil1.Cells(j, "A") = TextBox1.Value

ça fonctionne bien, mais je suis sur qu'il existe une méthode plus simple
Petit fichier test pour l'exemple
merci de votre aide

 

[vgendron]

Hello
avec ceci peut etre==> à supposer que A1 fait partie du tableau

MsgBox Range("A1").CurrentRegion.Rows.Count + 1

 

[Compte Supprimé 979]

Bonjour SPGoder

Si on parle du 1er tableau, c'est effectivement simple

DerLig = Range("A1").End(xlDown).Row

A+

 

[Hasco]

bonjour,

Avec CurrentRegion :

Sub Chargement_Listbox()

    Dim Tbl As Variant
    With Range("A2").CurrentRegion
        If .Rows.Count < 2 Then Exit Sub

         'données de la colonne 1 sans les entêtes
        Tbl = .Offset(1).Resize(.Rows.Count - 1, 1).Value
    End With
    If IsArray(Tbl) Then
        Me.ListBox_page1.List = Tbl
    Else
        Me.ListBox_page1.AddItem Tbl
    End If
End Sub

Il faut au moins 2 lignes (dont l'entête) dans le tableau sinon ça plantera .List


Cordialement

 

[SPGoder]

Bonjour à tous
Merci de m'avoir répondu si rapidement
VGendron
Je me suis mal exprimer, C'est le numéro de ligne qu'il me faut
Bruno
ça correspond exactement à mon besoin, mais avec un +1 à la fin, pour avoir la cellule vide
Hasco
ça fonctionne aussi, sauf que le fichier n'est qu'un exemple, sur mon projet, je n’alimente pas forcément une listbox, c'était pour la vérification en direct que j'avais mis une listbox

Merci à vous tous, et bonne journée

​

 

[patricktoulon]

bonjour

Bonjour
Je souhaiterai savoir comment trouver la première cellule vide dans un "tableau sur une feuille".
Sachant qu'il y a d'autres tableaux en dessous,. je ne peux me servir de la colonne en entier pour trouver la première cellule vide avec :

"Sachant qu'il y a d'autres tableaux en dessous"
mmmouais ca sent la conception bien mal pensé ça
et comment ajouter des lignes si c'est pas des tableaux structurés sans manger sur le debut d'un autre

après on parle de première ligne vide là encore on pourrait faire l'erreur d'utiliser xllup ou xldowncar il se peut que tu aie des lignes vides en tre deux pleines

question:
tes tableaux sont il des tableaux structurés (au quel cas la question est sans fondement ) et inutile
si ils ne le sont pas comment est organisé ta page et tes ranges(tes tableaux)

conclusion
mon conseil dans ce contexte
travailler toujours avec tes tableaux structurés l'ajout ou suppression de ligne est simplissime
et il ont un nom ce qui facilite leur accès en lecture ou écriture

dans le contexte que tu nous presente tu a fait de quelque chose de simple un case tête chinois

 

[TooFatBoy]

Bonjour,

C'est le numéro de ligne qu'il me faut
Bruno
ça correspond exactement à mon besoin, mais avec un +1 à la fin, pour avoir la cellule vide

Effectivement il faut +1 pour atteindre la cellule vide.

Mais attention aussi si A2 est vide, ça ne te retournera pas la bonne valeur.

 

[SPGoder]

Bonjour Patrick
Tu as certainement raison, mais pour l'instant, la gymnastique cérébrale que nécessite l'utilisation de tableau structuré n'est pas encore à ma portée, mais je m'y mettrai des que j'aurais un peu de temps.

Bonjour Toofatboy

Mais attention aussi si A2 est vide, ça necte retournera pas la bonne valeur.

Tu as raison, je viens de faire le test. et ça n'ajoute pas de nouvelle ligne.
Mais dans mon cas, ça fonctionnera
Merci à vous tous

 

[mapomme]

Mais attention aussi si A2 est vide, ça ne te retournera pas la bonne valeur.

Tout comme s'il n'y a plus de cellules vides entre les deux tableaux.

 

[vgendron]

Pour les tables structurées, une aide ici

The VBA Guide To ListObject Excel Tables

For a data analyst, Excel Tables are a necessity! They are the most efficient way to organize your raw data and refer to data that contracts or expands on a regular basis. Likewise, Excel tables can be extremely useful in combination with VBA.

www.thespreadsheetguru.com

 

[patricktoulon]

tellement plus simple de travailler avec des TS
tellement plus simple

j'dis ça moi j'dis rien hein
les codes en sont tellement simple (une ligne)

 

[patricktoulon]

Bonjour Patrick
Tu as certainement raison, mais pour l'instant, la gymnastique cérébrale que nécessite l'utilisation de tableau structuré n'est pas encore à ma portée, mais je m'y mettrai des que j'aurais un peu de temps.

Bonjour Toofatboy

Tu as raison, je viens de faire le test. et ça n'ajoute pas de nouvelle ligne.
Mais dans mon cas, ça fonctionnera
Merci à vous tous

heu et le range oui
bon ben je préconise alors un mois dans une maison de repos
et potasser l'exelent tutoriel de Pierre fauconnier sur DVP
sinon tu a un exemple dans mon precedent post qui te montre a quel point c'est simple

 

[SPGoder]

bon ben je préconise alors un mois dans une maison de repos
Je ne demande pas mieux....
Je suis convaincu aussi qu'il faut que je passe par des Tableau
Merci pour l’exemple
Pourrais tu m'indiquer comment rajouter une donnée à un endroit précis du tableau, exemple je veux rajouter ma donnée en Colonne B (à la première cellule vide)

 

[vgendron]

En allant voir le lien que je t'ai mis.. tu auras les éléments de réponse

 

[patricktoulon]

re
dans mon exemple (et cela que ce soit pour le tableau 1 ou 2 c'est le meme code c'est le nom du tableau qui change c'est tout
donc pour mettre la donnée en "B" c'est simple

Private Sub CommandButton3_Click()
Dim R As Range
Set R = Range("tableau2").ListObject.ListRows.Add.Range
'MsgBox "une ligne  à  été ajouté au tableau2 " & vbCrLf & "elle se trouve en feuil1 .row " & R.Row
r(2).value="taratata"
End Sub

terminé
et si tu voulais remplir toute la ligne par exemple

r.value=array("lenom","leprenom","la nationalité","l'etude","l'age")

du coup là la gymnastique cérébrale c'est walouhh!!