Y marche pas?

[denis]

Bonjour à tous

J'ai repris un Usf qui marche bien sur un autre fichier je change juste le nom de la feuille .
Quant je click sur rechercher j'ai bien les noms des gens mais pas la date et le N° de teleph,
De plus il me retourne pas le bon nom,

Help svp

d'avance merci

 

[@Christophe@]

Bonjour Denis

Remplace le code de ton userform par celui la:

Option Explicit

Dim NomLBindex As Integer
Dim LRecherche As Integer

Private Sub UserForm_Initialize()
Dim L As Integer
Dim plage As String

L = Sheets("Liste").Range("A65536").End(xlUp).Row
plage = Sheets("Liste").Range("F10:F" & L).Address
ListBox1.RowSource = "Liste!" & plage
End Sub

Private Sub ListBox1_Click()
NomLBindex = ListBox1.ListIndex + 10
TextBox1 = Sheets("Liste").Range("F" & NomLBindex)
TextBox2 = Sheets("Liste").Range("A" & NomLBindex)
TextBox3 = Sheets("Liste").Range("H" & NomLBindex)
'TextBox6 = Sheets("Liste").Range("d" & NomLBindex)
'TextBox7 = Sheets("Liste").Range("e" & NomLBindex)
'TextBox8 = Sheets("Liste").Range("F" & NomLBindex)

End Sub
Private Sub CommandButton7_Click()
Unload Me
UserForm4.Hide
End Sub

Et voila

Bonne journée

@Christophe@

 

[G'Claire]

Denis

Essaye cela, en P-J

Salut, G'Claire

 

[G'Claire]

le forum, @Christophe@

Oups sorry, n'a pas vue que tu avez répondu

salut, G'Claire

 

[G'Claire]

Re le forum

Et enlèves les apostrophes devant Texbox6, TexBox7 et Texbox8, pour avoir les reste de tes données

Salut, G'Claire

 

[@+Thierry]

Bonsoir G'Claire, @Xtof@, Denis, le Forum


Brève incursion, juste pour faire la chasse aux Sujets Bidons qui sont une véritable Pollution de notre Forum... Donc Denis si tu as deux minutes passe lire notre Charte (Artilce 2 a)

"Y marche pas" !!! Non Non Plus Jamais çà ;-) mais plutôt "Migration/Importation d'un UserForm dans un autre classeur"

Menfin !!

Aller Bonne Soirée à tout le monde
@+Thierry