Bonjour a tous, j'ai parcouru plusieurs posts sans trouver mon bonheur.
J'ai crée un carnet d'adresses avec un usf pour la fiche un usf menu et un usf pour afficher les listes.
Le classeurs contients 26 feuilles soit une par lettre, toutes identiques.
Ce que j'aimerai c'est à partir due l'usf qui affiche les listes en doublecliquants sur un nom que toutes les infos s'affiche dans l'usf fiche pour modifier les infos.
Je joint le fichier car la je bloque.
Merci a vous tous.
Re : Recuperations de donnees dans textbox d'un usf pour modif
Bonjour.
Personnellement j'écrirais dans l'userform :
VB:
Option Explicit
Dim Cible As Range, VLgn()
Public Sub Afficher(ByVal Target As Range)
Dim C As Long
Set Cible = Target.EntireRow.Resize(, 9)
VLgn = Cible.Value
For C = 1 To 9
Me("TextBox" & C).Text = VLgn(1, C)
Next C
Me.Show
End Sub
Et dans ThisWorkbook :
VB:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name Like "[A-Z]" Then Cancel = True: ufFiche.Afficher Target
End Sub
Mais je n'adhérerais pas du tout au principe des 26 lettres et feuilles. Une seule, des ComboBox un peu partout dans un seul UserForm, on tape un début de nom, de prénom ou d'autre chose, c'est tout.
Re : Recuperations de donnees dans textbox d'un usf pour modif
Merci pour ta réponse rapide mais justement le but et d'avoir une feuille par lettre je sais c'est beaucoup mais on me demande de faire comme ça.
Donc si il y a d'autres solutions je suis preneur
Encore merci.
Re : Recuperations de donnees dans textbox d'un usf pour modif
Tout compte fait tu as raison pourquoi m'embeter avec 26 feuilles je vais suivre ton conseil.
Une feuille BD et un formulaire.
Merci, si j'ai des difficultés je posterai