recuperer valeur d'une cellule vers textbox

Version imprimable

04/12/2009, 19h31
fullmetalknet

recuperer valeur d'une cellule vers textbox

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?

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

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

04/12/2009, 20h43
fullmetalknet

+1 pour avoir une numero de commande different;)

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

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

Code:

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

Code:

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:

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

05/12/2009, 08h20
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:

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é!:oops:

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!!:roll:

merci

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:

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

06/12/2009, 21h57
fullmetalknet

merci mais,
Tu vas me trouver chiant!!:oops:
j'ai aussi une autre feuille en commun qui m'incremente des données et je souhaiterais qu'il me mette un numéro aussi!

voici comment mon code commence

Code:

Sheets("Feuil3").Cells(Lcible, 20) = "numéro"

es ce que c'est possible?

merci

re,

en partant de ton code.

Code:

1
2
3
Dim Lcible As Long
Lcible = Sheets("Feuil3").Cells(Rows.Count, 20).End(xlUp).Row + 1
Sheets("Feuil3").Cells(Lcible, 20) = TextBox1.Value

07/12/2009, 15h42
fullmetalknet

:oops:

J'ai oublié de te préciser que cette Feuil4 qui incremente aussi la Feuil3 n'utilise pas d'userform, j'utilise une autre macro pour ca!

en faite a la place de "TextBox1.Value" je voudrais un code qui permet de recupérer lui aussi le numéro le plus élevé de la Feuil 2 et la Feuil3.

j'espère que tu m'en veux pas???;)

re,sur le meme principe a adapter a la place des msgbox tu met ton code!!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub es()
Dim x As Long, z As Long
      x = Sheets("Feuil3").Range("t65536").End(xlUp).Rows
      z = Sheets("Feuil2").Range("t65536").End(xlUp).Rows
   If x > z Then
       MsgBox "feuil3 = " & x
        'action1
        Else
      MsgBox "feuil2=  " & z
       'action2
    End If
End Sub

Bonjour,
Je me rend contre que ca ne fonctionne pas comme il le faudrait!

quand je transfere de la Feuil3 à la Feuil2, les numéros ne sont pas forcement en ordre
par exemple il est possible d'avoir le numero 4 dans la ligne 6 et le numero 3 dans la ligne 7 et quand j'incremente une autre actions dans la Feuil3 il me sort le numéro 4.

j'ai essayer ce code mais ca marche pas:
Code:

1 2 3 4 5 6 Dim x As Long, z As Long x = Sheets("Feuil3").Range("t65536").End(xlUp).Rows z = Sheets("Feuil2").Application.Max(Range("T:T")) If x > z Then TextBox1 = x + 1 Else TextBox1 = z + 1

08/12/2009, 08h58
laetitia

re, essai comme cela!!

Code:

z = Application.WorksheetFunction.Max(Sheets("Feuil2").Range("t1:t65536"))
08/12/2009, 09h13
fullmetalknet

Ca marche pas!:(
08/12/2009, 09h26
fullmetalknet

J'ai compris en faite j'ai un bug!

Qunad j'increment par mon userform mon numéro est le bon sauf que le format ne doit pas etre bon ( j'ai un icone vert dans un coin)
j'essaie de trouver le probleme je te tien au courant

merci
08/12/2009, 09h35
fullmetalknet

C'est bien ca j'avais un probleme de format de cellule!

Merci beaucoup de ton aide

A+