Discussion :

[timtof2011]

Bonjour,

Voici ma recherche:

j'ai une colonne avec A1 à A10 dedans chiffre de 1à 10

J’aimerai pouvoir dans un userform tester la dernier cellule d ans ce cas ci [A10] encodé pour proposer dans mon userform la valeur 11 dans un textbox

Alors là...si qq1 ma compris je serai sur le c.. !!!
Bon weekend à toutes et tous...profiter car la pluie arrive

Bien à vous Tim.

[SfJ5Rpw8]

Bonjour,

Une solution à adapter..:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub UserForm_Initialize()
 Dim iDer As Integer
 With ThisWorkbook.Sheets("Feuil3")
    iDer = .Range("A1").CurrentRegion.Rows.Count
    TextBox1 = Val(.Cells(iDer, 1)) + 1
 End With
End Sub

[timtof2011]

trop cool...bbil...!!!

j'ai plus qu'a plonger dans mon programme qui avance et qui avance...C'est trop chouette...ce language...petit bout par petit bout.

Merci de votre aide bbil.

Bon weekend.

Tim

[timtof2011]

voilà,

j'aurai voulu suite au petit code de bbil,qu'une fois la valeur iDer connu que cette valeur s'ajoute à la cellule suivante...

A1=1
A2=2
A3=3
etc...
valeur iDer= 4
j'aimerai que cette valeur A4=4 s'affiche dans la cellule A4 physiquement et ça en cliquant à chaque fois sur un commandButton1.

D'avance merci.
Tim

[mercatog]

Bonjour
Si la ligne 1 est celle des titres, à chaque clique sur CommandButton1, le nouveau compteur s'inscrit de suite en colonne A

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim iDer As Long
 
With Worksheets("Feuil2")                                  'à adapter
    iDer = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range("A" & iDer + 1) = Val(.Range("A" & iDer)) + 1
End With
End Sub

[timtof2011]

Merci Mercatog,

C’est bien ce que je souhaitai faire mais une fois placé dans mon petit programme, je me rends compte d'un défaut...c'est à dire qu'alors il ne faut pas qu'il assigne une nouvelle valeur à chaque clic si la cellule à coté de la nouvelle valeur est vide.

par exemple:

colonneA= nom
colonneB= prénom
colonneC= liste de iDer

je rentre 3 noms en A1, A2 et A3
je rentre 3 prénoms en B1, B2 et B3
le code de mercatog génère 1, 2 et 3

mais si je clic encore sur le commandBouton ben il continue à générer 4,5, etc...alors que je n'ai pas encore rentré le 4eme nom...à partir de mon userForm.

Merci pour votre aide...j'espère être assez clair

Tim

[mercatog]

Comment tu transfère tes données de ton userform vers la feuille?
C'est là qu'il faut intégrer l'essence du code proposé par Bbil.