trouver derniere ligne vide et remplir avec textbox

[lolo34140]

Bonjour,

Je cherche une macro me permettant de trouver la dernière ligne vide d'un tableau (commençant à la ligne 5 dans mon cas) et de remplir dans cette dernière ligne vide des valeurs via des textbox d'un userform.
J'arrive très bien à le faire mais c'est conditionné par rapport à une seule colonne mon code (genre colonne C ou D ..)
J'aimerai trouver la 1 ere ligne du tableau qui soit complètement vide sur toute les colonnes. Car elles ne sont pas forcément toutes remplie au même en droit. Donc je ne peux pas faire référence à une colonne précise. Ou alors je peux le faire sur 2 colonnes qui sont toujours rempli dans mon cas. C'est à dire si la ligne de la colonne C et de la colonne T est vide.

Merci

 

[Compte Supprimé 979]

Re : trouver derniere ligne vide et remplir avec textbox

Bonsoir Lolo34140

Dans ton cas, la dernière ligne est trouvée avec le code

DLig = Cells.SpecialCells(xlCellTypeLastCell).Row

A+

 

[lolo34140]

Re : trouver derniere ligne vide et remplir avec textbox

Merci.

Je n'arrive pas à renvoyer une valeur saisie dans un textbox dans la ligne vide avec ce code. A chaque fois, et je ne comprends pas pourquoi, la valeur saisie va à la ligne 103 alors qu'il n'y a rien avant et après.

 

[Compte Supprimé 979]

Re : trouver derniere ligne vide et remplir avec textbox

Re,

Je viens de voir ce que tu avais mis en dernier

Ou alors je peux le faire sur 2 colonnes qui sont toujours rempli dans mon cas. C'est à dire si la ligne de la colonne C et de la colonne T est vide.​

Il suffit donc alors d'utiliser

DLig = Sheets("NomFeuille").Range("C" & Rows.Count).End(XlUp).row

Pour êtres certain que la dernière ligne cherchée se fait bien dans la feuille voulu,
il suffit de l'indiquer avant le Range

A+

 

[lolo34140]

Re : trouver derniere ligne vide et remplir avec textbox

Merci encore.

Mais je n'y arrive toujours pas. Cela doit venir de la façon dont je récupère le numéro de ligne pour ensuite y renvoyer via textbox des valeurs. Je n'arrive pas à utiliser ce code avec un textbox. Je ne sais pas trop comment faire.
La formule précédente ne convient pas dans mon cas car ce doit être la colonne C et la colonne T qui doivent être vérifiée ensemble.

 

[Compte Supprimé 979]

Re : trouver derniere ligne vide et remplir avec textbox

Salut,

Sans fichier de ta part 🙁, je n'irais pas plus en avant dans l'aide que je peux te fournir

A+

 

[lolo34140]

Re : trouver derniere ligne vide et remplir avec textbox

Voici le fichier.

Cela concerne le bouton "ajouter étape fabrication", userform3.

Merci

 

[Compte Supprimé 979]

Re : trouver derniere ligne vide et remplir avec textbox

Re,

Pourquoi te fais-tu des noeuds au cerveau, à moins que je n'ai pas tout compris 😕

Chaque étape de fabrication comporte des tests ...
Si tu veux ajouter une étape de fabrication,
il suffit de regarder quel est la dernière ligne remplie par un test
et d'ajouter 2 lignes en dessous dans la colonne "C", la nouvelle étape, non !?

Private Sub CommandButton1_Click()  Dim DLig As Long
  With Sheets("Analyse des essais")
    DLig = .Range("T" & Rows.Count).End(xlUp).Row
    .Range("C" & DLig + 2).Value = TextBox1.Value
  End With
End Sub

A+

 

[lolo34140]

Re : trouver derniere ligne vide et remplir avec textbox

Avec un référencement seulement sur la colonne T ça ne peut pas marcher. Soit ça doit vérifier si la colonne C et la colonne T sont vides ensemble. Le mieux étant je pense la ligne entière.

 

[Compte Supprimé 979]

Re : trouver derniere ligne vide et remplir avec textbox

Re,

As-tu essayé au moins 😕
Et quel est ton argument pour me dire que ça ne peut pas fonctionner !?

A+

 

[lolo34140]

Re : trouver derniere ligne vide et remplir avec textbox

Oui j'ai essayé mais ça ne peut pas marcher avec mon tableau car je peu avoir une référence par exemple qui n'a pas de test. Ou deux référence qui se suivent et qui n'ont pas de tests. Dans ces cas ça ne marche pas.

 

[Compte Supprimé 979]

Re : trouver derniere ligne vide et remplir avec textbox

Re,

Et bien voilà on y arrive ... 🙄 tu vois quand tu veux bien t'expliquer un peu

Private Sub CommandButton1_Click()
  Dim DLig1 As Long, DLig2 as long
  With Sheets("Analyse des essais")
    DLig1 = .Range("C" & Rows.Count).End(xlUp).Row
    DLig2 = .Range("T" & Rows.Count).End(xlUp).Row
    If Dlig2 > Dlig1 then
    .Range("C" & DLig2 + 2).Value = TextBox1.Value
    Else
    .Range("C" & DLig1 + 2).Value = TextBox1.Value
    End IF
  End With
End Sub

A+

 

[lolo34140]

Re : trouver derniere ligne vide et remplir avec textbox

C'est parfais! merci beaucoup.
J'ai juste mis 1 à la place de 2 car je préfère sans saut de ligne entre chaque référence.

 

[Daher Ali]

Bonjour,

Qui pourra m'aider svp, j'ai fait une macros et j'aimerais récupérer des informations d'un onglet "Bon Entrée" qui ce trouve dans ces différent cellules : A2, C2, E2, F2, H2, I2
sur un autre onglet "TOTAL" : A5:F5 à partir de A2 dans onglet "Bon Entrée"

J'arrive à le faire mais lorsque je vide une cellule dans colonne A dans "TOTAL" et que je fait mais modification dans "Bon Entrée" et je clique sur récupérer, je retrouve mes informations dans la ligne qui suit, mais j'aimerai plutôt les avoir dans la cellule vide du haut pour ne pas avoir un vide dans mon tableau

Sub Sauver()
Dim DerniereLigne As Integer
DerniereLigne = Sheets("TOTAL").Range("A5000").End(xlUp).Row + 1
If Application.WorksheetFunction.CountIf(Sheets("TOTAL").Range("A5:A100000"), ActiveSheet.Range("A2").Value) Then
If MsgBox("Attention ce N° BE existe déja...!", vbOKOnly + vbExclamation, "Doublon...!") = vbOK Then
Exit Sub
End If
End If
If MsgBox("Êtes vous sûr de vouloir enregistrer les information...?", vbYesNo + vbQuestion, "Confirmation !") = vbYes Then
Sheets("TOTAL").Range("A" & DerniereLigne).Value = ActiveSheet.Range("A2").Value
End If
End Sub

 

[Compte Supprimé 979]

Bonjour Daher Ali,

Cette fonction modifiée, permet de trouver dans la dernière ligne remplie dans la colonne A

DerniereLigne = Sheets("TOTAL").Range("A" & Rows.Count).End(xlUp).Row + 1

Si cette cellule est vidée, il faut t'appuyer sur une autre colonne

Cordialement.