Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

S

SPGoder

XLDnaute Occasionnel
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 :

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

J'ai trouvé une parade en faisant :
VB: 
    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
 

Pièces jointes

  • Premier ligne vide sur range prédéfinie.xlsm
    22.2 KB · Affichages: 10
Trier par date Trier par votes

Hasco

XLDnaute Barbatruc
Repose en paix
bonjour,

Avec CurrentRegion :
VB: 
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
 
Vote positif 0 Vote négatif
S

SPGoder

XLDnaute Occasionnel
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

​

 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
bonjour

"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
 
Vote positif 0 Vote négatif
S

SPGoder

XLDnaute Occasionnel
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.
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
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)
 

Pièces jointes

  • Premier ligne vide sur range prédéfinie.xlsm
    20.2 KB · Affichages: 5
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif
S

SPGoder

XLDnaute Occasionnel
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)
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
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
VB: 
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
VB: 
r.value=array("lenom","leprenom","la nationalité","l'etude","l'age")
du coup là la gymnastique cérébrale c'est walouhh!!
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

D
  • Question
XL 2010 Recherche cellule vide sur une ligne
Réponses
9
Affichages
319
job75
  • Question
XL 2021 Verifier les doublons dans feuille avant validation
Réponses
11
Affichages
104
cathodique
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
358
snoopy07
S
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
261
vgendron
L
  • Résolu(e)
Microsoft 365 Suppression de cellules vide
Réponses
3
Affichages
428
Le Rouky
L
A
  • Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
186
Anthony_51
A
M
  • Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
755
Mody200
M
G
  • Question
Microsoft 365 Export données
Réponses
4
Affichages
472
GClaire
G
  • Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
555
AtTheOne
B
  • Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
547
Compte Supprimé 979
C
U
  • Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
337
Phil69970
C
  • Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
383
CathyLD
C
D
  • Question
XL 2010 Trouver dernière cellule vide sur une ligne
Réponses
6
Affichages
383
TooFatBoy
S
  • Question
Microsoft 365 A partir de la 1ere cellule non vide, récupérer le mois
Réponses
4
Affichages
158
Sissou71
S
S
  • Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
1 K
fanch55
  • Question
Microsoft 365 L'indice n'appartient pas à la sélection
Réponses
8
Affichages
626
TooFatBoy
G
  • Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
473
GClaire
G
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
834
firecarl
F
C
  • Question
XL 2010 Trier des lignes par nombre de mots pertinent
Réponses
3
Affichages
634
crocrocro
C
M
  • Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
248
MBEPID
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…