userform

[magalie]

bonjour à tous et à toutes,
un problème de récupération de la dernière ligne non vide et selon une réponse
ajouter ou non 1 au chiffre présent dans cette dernière ligne (dans la même colonne)
le tout par un userform
je vous remercie d'avance
cdt

 

[Pierrot93]

Re : userform

Bonjour,

il n'y a pas d'userform dans ton fichier... d'ailleurs les fichiers "xlsx" ne prennent pas en charge les macros....

bonne journée
@+

 

[magalie]

Re : userform

désolée je me suis trompée de fichier

 

[phlaurent55]

Re : userform

Bonjour à tous,

voir fichier joint

à+
Philippe

 

[Pierrot93]

Re : userform

Re,

A priori il manque le "textbox" sur ton usf, sinon pour l'alimenter avec la dernière ligne de la colonne A :

Private Sub UserForm_Initialize()
TextBox1.Value = Range("A65536").End(xlUp)
End Sub

 

[Pierrot93]

Re : userform

Re,

avec les codes des boutons OUI NON :

Private Sub CommandButton2_Click()
Range("A65536").End(xlUp)(2).Value = Range("A65536").End(xlUp)
TextBox1.Value = Range("A65536").End(xlUp)
End Sub
Private Sub CommandButton3_Click()
Range("A65536").End(xlUp)(2).Value = Range("A65536").End(xlUp) + 1
TextBox1.Value = Range("A65536").End(xlUp)
End Sub

 

[magalie]

Re : userform

comme d'habitude vous êtes formidable
je vous envie de savoir faire tout cela
merci à vous deux

 

[Robert]

Re : userform

Bonjour le fil, bonjour le forum,

En retard mais tant pis j'envoie quand même... Ton fichier modifié avec le code ci-dessous :

Private dl As Integer 'déclare la variable dl (Dernière LIgne)
Private dc As Integer 'déclare la variable dc (Dernie Chiffre)

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A)
    dc = CInt(Cells(dl, 1).Value) 'définit le derier chiffre de cette colonne
End With 'fin de la prise en compte de l'onglet "Feuil1"
Me.Label2.Caption = dc 'récupère le dernier chiffre dans le label
End Sub


Private Sub CommandButton2_Click() 'bouton "OUI"
Sheets("Feuil1").Cells(dl + 1, 1).Value = dc 'place le dernier chiffre une ligne en dessous la dernière ligne éditée
Unload Me 'vide et ferme l'UserForm
End Sub


Private Sub CommandButton3_Click() 'bouton "NON"
Sheets("Feuil1").Cells(dl + 1, 1).Value = dc + 1 'place le dernier chiffre + un, une ligne en dessous la dernière ligne éditée
Unload Me 'vide et ferme l'UserForm
End Sub


Private Sub CommandButton1_Click() 'Bouton "Fermer"
Unload Me 'vide et ferme l'UserForm
End Sub

Le fichier :

 

[magalie]

Re : userform

vieux motard que j'aimais
merci robert