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

dernière ligne vide d'un tableau erronée en VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion herve62
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

herve62

XLDnaute Barbatruc
Supporter XLD
Bonsoir
Ce fichier (vidé exprès ) ne donne plus la dernière ligne en 2 mais 3 ??? lors de la "validation" de saisie de l'usf
J'ai fait un test via le module c'est bien 2 avec forcément la même instruction ... de base
C'est un fichier de reprise , peut être le tableau a t-il été mal construit .. ??
pour tester :
clik en col A > USF : juste mettre un nom + un truc > Validation
Résultat : insertion en ligne 3 ??? Pourquoi ?? comme dab .. un truc simple doit m'échapper !!
Merci à vous !!
 

Pièces jointes

Trier par date Trier par votes
Bonjour

Dans la sub validation() modifier cette ligne comme ceci :
dlg = .Range("A" & .Rows.Count).End(xlUp).Row '+1

Soit vous enlevé le +1 soit vous mettez un ' juste avant le plus
 
Vote positif 0 Vote négatif
Bonsoir @herve62, @piga25,

J'avais, pour usage personnel, écrit une fonction DerLigne(...) qui retourne le numéro absolue de ligne de la dernière cellule non vide d'une colonne entière.
Cette fonction doit fonctionner qu'on soit en présence ou non d'une structure tableau. Que la colonne soit filtrée ou non, le résultat n'en est pas affecté. Elle est indépendante des noms des en-têtes et du nom du tableau. Je vous la livre brute de décoffrage.
Dans le fichier joint, on peut comparer le résultat avec une structure tableau en utilisant soit End(xlup) soit la fonction DerLigne(...). Idem dans feuil2 mais avec une simple plage. Sur Feuil2 la plage est en outre filtrée.

VB: 
Function DerLigne(xrg As Range)
'considère la première cellule du range xrg
'considère toute la colonne de la feuille correspondante à cette cellule
'recherche la dernière cellule non vide cette colonne
'retourne le numéro de ligne de cette dernière cellule non vide
'si la colonne est entirement vide, alors 0 est renvoyé
'doit fonctionner avec ou sans une structure de type tableau
'doit fonctionner avec ou sans filtrage
Dim der1 As Long, der2 As Long, x
  On Error Resume Next
  x = 9E+99: der1 = Application.WorksheetFunction.Match(x, xrg(1, 1).EntireColumn, 1)
  x = String(255, Chr(255)): der2 = Application.WorksheetFunction.Match(x, xrg(1, 1).EntireColumn, 1)
  If der2 > der1 Then DerLigne = der2 Else DerLigne = der1
  On Error GoTo 0
End Function
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour à tous
Pour les tableaux de feuilles, il faut utiliser le range:
VB: 
LstRw = Range("Diffusion[Nom du chien]")(Range("Diffusion[Nom du chien]").Count).Row

Cordialement
 
Vote positif 0 Vote négatif
Bonjour tous
@piga25 : oui mais ensuite il faut remodifier les variables , car si tu a remarqué dans mon code Dlg est utilisé et donc si par ex = 4 les données suivantes écraseront les anciennes !
@Efgé : je pige pas ta syntaxe ?
Mapomme c'est la solution qui fonctionne ; Je connaissais d'autres fonctions au cas ou : formules , MFC , mais pas celle-ci ; j'ai déjà mis ton fichier super bien expliqué dans mon grenier !
 
Vote positif 0 Vote négatif
Bonsoir , @Efgé
Effectivement dans une sub avec un with worksheets ... , et LstRw= .range ........ c'est ok ; les tableaux ne me servent que vraiment très rarement
donc la "gestion des noms" et l'utilité .. euh ?? j'essaierai de m'en souvenir
 
Vote positif 0 Vote négatif
Bonjour
Je reviens sur le sujet , car plus tard en commençant à me servir du fichier , je me suis aperçu que l'instruction de EFgé ne fonctionnait pas
la 1ere fois cela insère bien en 2 ... mais les autres fois aussi ????
 
Vote positif 0 Vote négatif
Bonjour
La ligne de code te donne la ligne de la dernière cellule remplie de la colonne.
La première foi que tu l'utilise, le tableau est vide, donc tu trouves la deuxième lignes.
Ensuite tu continus à trouver la ligne deux car c'est la dernière remplie du tableau.
Dans le code il faut vérifier avant d'écrire, si la cellule en A2 est remplie.
Si elle est vide tu écrits en A2, sinon tu utilise :
LstRw = Range("Diffusion[Nom du chien]")(Range("Diffusion[Nom du chien]").Count).Row +1

En espérant que mes explications soient compréhensibles.
Cordialement
 
Vote positif 0 Vote négatif
Re
Oui , Ok je pensais que c'était une instruction générale permettant de donner systématiquement le der Lig lorsque c'était un tableau
comme l'exemple de MaPomme !
Sinon en même temps , je viens de remarquer que juste pour cette LIGNE 2 > si l'on fait "supprimer" : ne "delete" pas l'image ???
 
Vote positif 0 Vote négatif
Re
herve62 à dit:
je pensais que c'était une instruction générale permettant de donner systématiquement le derLig lorsque c'était un tableau
Cliquez pour agrandir...
C'est ça. Mais ton tableau commence sans lignes de données , donc il faut faire un vérification du type
If A2 = "" j'écrit en A2
Else j'écrit en A & LstRw +1

herve62 à dit:
je viens de remarquer que juste pour cette LIGNE 2 > si l'on fait "supprimer" : ne "delete" pas l'image ???
Cliquez pour agrandir...
Là je laisse d'autres prendre le sujet 😉

Cordialement
 
Vote positif 0 Vote négatif
Bonjour.
Pour trouver le nombre de ligne d'un tableau dont fait partie une cellule Cel, c'est Cel.ListObject.ListRows.Count.
Mais on n'en a pas besoin pour obtenir un Range représentant une nouvelle ligne ajoutée: C'est LOt.ListRows.Add.Range, si Private LOt As ListObjet en tête et dans l'UserForm_Initialize: Set LOt = Sheets("Liste diffusion").ListObjects(1)
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2016 copier la même ligne sur la dernière ligne vierge d'un tableau
Réponses
8
Affichages
233
eastwick
M
  • Résolu(e)
XL 2021 VBA Ajouter ligne tableau + autres cellules hors tableau
Réponses
3
Affichages
192
sylvanu
T
  • Question Question
XL 2019 tableau , cellule protégé et ligne vide
Réponses
2
Affichages
215
sylvanu
  • Question Question
Microsoft 365 Tableau
2
Réponses
24
Affichages
2 K
jaclam
C
  • Question Question
XL 2016 VBA Détecter la suppression de la dernière ligne d'un Tableau
Réponses
9
Affichages
656
crocrocro
C
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
344
vgendron
  • Question Question
XL 2021 Dernière ligne rempli d'un tableau de données filtrées
Réponses
5
Affichages
472
treza88
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
441
AtTheOne
  • Résolu(e)
XL 2021 Sélectionner plusieurs plages jusqu'à la dernière ligne NON vide en col "E"
Réponses
5
Affichages
385
Usine à gaz
  • Question Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
975
TooFatBoy
A
  • Question Question
XL 2010 Copier coller dernière ligne remplie d'un tableau
2
Réponses
16
Affichages
945
job75
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
559
Chaton77
S
  • Résolu(e)
XL 2016 Comment faire ressortir la ligne sélectionnée dans un tableau
Réponses
2
Affichages
629
Stéphane_1
S
A
  • Résolu(e)
Microsoft 365 Suppression d'une ligne d'un tableau avec une macro
Réponses
13
Affichages
998
Alain 79
A
M
  • Question Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
1 K
ManuXZ
M
C
  • Résolu(e)
XL 2016 VBA : inversion de Date sur Range.Resize ... = Tableau après Transpose du Tableau
Réponses
2
Affichages
303
crocrocro
C
S
  • Résolu(e)
Microsoft 365 Mon code ne reconnait pas la dernière ligne de mon tableau
Réponses
4
Affichages
648
Soumie
S
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
606
picc
P
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
692
Julien_B
J
F
  • Question Question
XL 2016 [VBA] Incrémenter le graph d'une nouvelle ligne du tableau
Réponses
2
Affichages
391
F22Raptor
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…