range Fermé

Question

Bonjour, 
comment peut on réaliser un boucle pour effectuer une suite d'affectations des valeur situées dans une feuille "Bases des données", sachant que la ligne des données est variable, vers  une suite de textbox1 to textbox55

Code 
Private Sub Button100_Click()
Dim Num As Long
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer
Dim I As Integer
Dim TxtB As String
'
'
'''Affecter la valeur de textbox1 dans le variable num'''
Num = CSng(UserForm4.TextBox1)

Set celluletrouvee = Range("A2:A200").Find(Num, lookat:=xlWhole)
If celluletrouvee Is Nothing Then
MsgBox ("pas trouvé")
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column
Som = col + 1
MsgBox ("Trouvé")
For I = 2 To 55
Dim R As Range
TxtB = "TextBox" & I
UserForm4.Controls(TxtB).Value = ''' Ici je veux insérer la ligne trouvé Ex B2, B3, .....B55 '''

Next I
End If
End Sub

Configuration: Windows 7 / Firefox 31.0

Iama · Answer

Bonjour sinane

Je pense que le bout de code qui te manque est

cells(ligne, colonne)
Range("B55")  équivalent à cells(55,2)

ou   Sheets("Bases des données").Cells(55, 2)

sinane123 · Answer

bonjour,
enfin j'ai trouvé la solution
code :
Private Sub Button100_Click()
Dim Num As Long

Dim celluletrouvee As Range
Dim test As Range
Dim ligne As Integer
Dim col As Integer
Dim I As Integer
Dim TxtB As String
'
'
'''Affecter la valeur de textbox1 dans le variable num'''
Num = CSng(UserForm4.TextBox1)

Set celluletrouvee = Range("A:A").Find(Num, lookat:=xlWhole)
If celluletrouvee Is Nothing Then
MsgBox ("pas trouvé")
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column
MsgBox ("Trouvé")
For I = 2 To 55
TxtB = "TextBox" & I
UserForm4.Controls(TxtB).Value = celluletrouvee([col], [I])
Next I
End If

End Sub

Range

2 réponses

Discussions similaires