Listbox et Texbox

[gilles]

Bonjour à tous.

Je travaille sur un fichier de colonie de vacances. Je pense être au point pour l'année prochaine.

Dans mon USF, à partir d'une listebox, je souhaite informer des textbox pour les modifier éventuellement, modifiant du même coup la listbox originale.

J'espère avoir " parler en français dans le texte" et que les puristes et les autres bien sûr m'aurront compris.

Merci d'avance à ceux qui me liront et me répondrons.
Bonne journée.


Gilles

 

[petchy]

bonjour Gilles
essaye ce code et adapte le à ton appli
Option Explicit
Dim C As Range
Public LastSheet As String
Dim PLage As Range
Dim WsBase As Worksheet
Dim ActuelWkbk As Workbook
Dim NomLBindex As Integer
Dim LRecherche As Integer

Private Sub Modiflistecolon_Click()
Dim Cell As Object
Dim h As Integer
Dim maille As Boolean
Dim WsBase As Worksheet
Set WsBase = ActiveSheet


NomLBindex = Modiflistecolon.ListIndex + 1
modifnomcolon = WsBase.Range("b" & NomLBindex)
modifprenomcolon = WsBase.Range("c" & NomLBindex)
modifadressecolon = WsBase.Range("d" & NomLBindex)
TextBox3 = WsBase.Range("e" & NomLBindex)

With Range("f5:f" & Range("A65536").End(xlUp).Row)
Set Cell = .Find(Modiflistecolon, LookIn:=xlValues)
End With
Exit Sub


'modifnomcolon.Value = Cells([2], [2])
'modifprenomcolon.Value = Cells([2], [3])

' mais c'est pas bon, car je n'affiche que la TB modifnomcolon et modifprenomcolon
'soit seules celles qui j'ai programmées.
' Je ne connais pas la solution.

End Sub

@ plus
petchy

 

[gilles]

Merci Petchy,


Ca marche au mieux, je vais encore me creuser la tête pour pouvoir maintenant modifier mes texbox éventuellement.
A plus
Gilles