Réafficher des informations

[Arnaud]

Bonsoir le Forum

Voilà, j'ai crée un USF incrémenté qui sert de formulaire pour remplir une base de données, chaque ligne étant considéré comme une fiche.
Existe-t-il un moyen d'afficher ces fiches dans un autre USF par exemple pour les consulter ou les modifier, comme de les appeler suivant leur numéro d'odre

Merci d'avance

 

[steplof]

Salut à tous,

arnaud tu peux afficher dans un userform des infos que tu as préalablement saisies, en appelant par exemple le numéro de la ligne dans laquelle l'info initiale est saisie...


@+Thierry a fait une démo d'un userform de saisie qui comporte un bouton copier qui me semble répondre à ta demande, désolé je retrouve plus le fichier original. Par contre je l'ai adapté pour qu'il contienne par défaut la dernière ligne inscrite,
Private Sub CommandButton2_Click() 'nom de ton bouton copie dans ton usf
Dim Message As String
Dim Title As String
Dim Default As Variant
Dim refligne As Long

Message = "Entrez un numéro de ligne à copier"
Title = "Copie de données existantes"
Sheets(1).Range("a17").Activate
Default = Sheets(1).Range("a65536").End(xlUp).Row 'par défaut dernière ligne saisie
On Error Resume Next
If Default = 16 Then 'mon tableau commençait à la ligne 17
MsgBox "Copie impossible, aucune ligne saisie", vbCritical, "ERREUR"
Exit Sub
End If
refligne = InputBox(Message, Title, Default)

Worksheets(1).Activate ' mes données dans la 1ere feuille du classeur

TBDateAction.Value = Date 'à remplacer par cells(refligne,2) si date en colB
LBCode.Value = Cells(refligne, 3).Value 'colonneC
TBNumeroPremier.Value = Cells(refligne, 4).Value 'colonne D
TBDernierNumero.Value = Cells(refligne, 5).Value
LBTarifs.Value = Cells(refligne, 7).Value
TBRefTitre.Value = Cells(refligne, 9).Value

TBNumeroPremier.SetFocus
End Sub

Ici l'userform contient les valeurs de la ligne indiquée dans l'inputbox initiale, pour la colonne c,D,EF,H,J)
à toi de l'adapter pour qu'il réponde à ton attente, mais je pense que tu as de bonnes bases avec ça.

Si t'as des soucis, on doit pouvoir t'aider.

 

[steplof]

Désolé clic sur Envoyer un peu vite...

@+
Steplof

PS: encore merci à @+Thierry, à qui je le rappelle revient le mérite de ce code.

 

[Arnaud]

Salut Steplof

Ben maintenant il ne me reste plus qu'a essayer

Merci
@+

Arnaud