incrémentation avec 1 USF

[Laurent313131]

Bonjour,

J'ai crée un USF avec à l'intérieur 5 intitulés, 5 textbox et 1 bouton de commande "Quitter".

Les valeurs que je rentre dans mes textbox s'affichent ensuite dans une feuille Excel en A1, B1, C1, D1 et E1. Si je relance mon USF, et que je rentre des valeurs, ces dernières se reaffichent en A1, B1, ... ,E1 et effaceront donc les valeurs déjà inscrites.

En fait, je voudrais qu'à chaque fois que je le lance mon USF, il y ait une incrémentation d'une ligne de façon à ce que les nouvelles valeurs s'inscrivent une ligne en dessous des valeurs déjà présentent.

Merci d'avance pour vos réponses !

 

[jp14]

Re : incrémentation avec 1 USF

Bonjour

Il faut remplacer 1 par une variable

Sheets("feuille1").Range("A" & 1)= Textbox1.value


dl1 = Sheets("feuille1").Range( "a65536").End(xlUp).Row +1

Sheets("feuille1").Range("A" & dl1)= Textbox1.value

JP

 

[Laurent313131]

Re : incrémentation avec 1 USF

Merci Jp.

J'ai pas réussi à faire ce que je veux.

Je joins le fichier Excel ça sera peut être plus simple...

Merci

 

[jp14]

Re : incrémentation avec 1 USF

Bonjour

Il faudrait rajouter un bouton "enregistrer" et affecter à ce bouton la procédure suivante

Private Sub CommandButton2_Click()
Dim dl1 As Long ' dernière ligne
If Not IsDate(TextBox2.Value) Then
    Call MsgBox("La date n'est pas conforme", vbCritical, Application.Name)

    Exit Sub
End If
With Sheets("Feuil1")
dl1 = .Range("a65536").End(xlUp).Row + 1
.Range("A" & dl1) = TextBox1.Value
.Range("b" & dl1) = CDate(TextBox2.Value)
If Controls("OptionButton1").Value = True Then .Range("d" & dl1) = " Catégorie " & Controls("OptionButton1").Caption
If Controls("OptionButton2").Value = True Then .Range("d" & dl1) = " Catégorie " & Controls("OptionButton2").Caption
If Controls("OptionButton3").Value = True Then .Range("e" & dl1) = " Position " & Controls("OptionButton3").Caption
If Controls("OptionButton3").Value = True Then .Range("e" & dl1) = " Position " & Controls("OptionButton4").Caption
.Range("c" & dl1) = TextBox3.Value
End With
End Sub

Et supprimer toutes les procédure existante sauf quitter.

JP

 

[Laurent313131]

Re : incrémentation avec 1 USF

(re) bonsoir le forum.

J'ai fais ce que tu as dis JP mais ça ne marche pas.

Je dois oublier quelque chose mais je vois pas quoi...

Le fichier joint est en pièce jointe...

 

[jp14]

Re : incrémentation avec 1 USF

Bonsoir

(re) bonsoir le forum.

J'ai fais ce que tu as dis JP mais ça ne marche pas.

Je dois oublier quelque chose mais je vois pas quoi...

Le fichier joint est en pièce jointe...

Les données sont en ligne 33.
Ligne à corriger
dl1 = .Range(colonne1a & "65536").End(xlUp).Row + 1
à remplacer par
dl1 = .Range( "a65536").End(xlUp).Row + 1

Un exemple sur ce fil (feuille client ou produits) pour introduire éventuellement une modification de données.

https://www.excel-downloads.com/threads/besoin-daide-debutant.104465/

JP