Discussion :

[fullmetalknet]

Bonjour,
je souhaiterais récuperer la valeur de la derniere cellule d'une colone vers une textbox

je m'explique j'ai une userform que je remplie avec plusieurs données a renseigner dès que j'ai tout renseigner les valeurs sont incrementé dans une feuille
j'ai une textbox ou je souhaiterais recuperer la valeur de la derniere cellule +1 de la colonne T

Pouvez-vous m'aider?

[laetitia]

bonjour fullmetalknet le forum pourquoi plus 1?? un exemple simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
TextBox1 = Range("T" & Cells(Rows.Count, 20).End(xlUp).Row)
End Sub

[fullmetalknet]

+1 pour avoir une numero de commande different

sinon comment faire pour que la textbox est la valeur a initialization de l'userform?

[laetitia]

re, pour l'avoir a l'ouverture de ton user 2 possibilitées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize()
Textbox1 = Range("T" & Cells(Rows.Count, 20).End(xlUp).Row)
End Sub

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Activate()
Textbox1 = Range("T" & Cells(Rows.Count, 20).End(xlUp).Row)
End Sub

par contre si tu modifie une fois ton user charge
un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click()
Range("T" & Cells(Rows.Count, 20).End(xlUp).Row + 1) = 50
Textbox1 = Range("T" & Cells(Rows.Count, 20).End(xlUp).Row)
End Sub

[fullmetalknet]

Merci laetitia!

j'ai un peu modifier ton code pour avoir ce que je voulais!
j'ai juste rajouter +1 a la fin de ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Sheets("Feuil3").Select
TextBox1.Value = Range("T" & Cells(Rows.Count, 20).End(xlUp).Row) + 1

en essayant le code je me suis aperçu que ca ne fonctionnait pas comme je voulais!

je n'y avai pas pensé ! désolé!

j'explique mon cas

j'ai une feuille 3 qui me sert pour les actions que je dois appliquer

quand ses actions sont effectuer elles sont valider et coller sur la feuille 2, elles sont supprimer de la feuille 3

si je rajoute une action sur la feuille 3 elle reprendra forcement le meme numero

est-il possible que prendre le numero le plus élevé entre la feuille 2 et la feuille 3?

j'espere que je suis assez explicite!!

merci

[laetitia]

re, comme cela pas si simple assez abstrait!! pour moi
je suppose que le numero tu le reportes sur la feuille 2 en colonne T a la suite
c'est a ce niveau qu'il faut adapter!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
 Dim x As Long, z As Long
   Sheets("Feuil3").Select
      x = Sheets("Feuil3").Range("t65536").End(xlUp).Rows
      z = Sheets("Feuil2").Range("t65536").End(xlUp).Rows
   If x > z Then TextBox1 = x + 1 Else TextBox1 = z + 1
End Sub