probleme recupération valeur textbox

Version imprimable

bonjour,

Je n'arrive pas à attribuer à ma cellule la valeur de ma textbox.
J'ai une combobox avec le nom des personnes qui recherche dans une colonne excel si le nom y est et si oui, alors je copie le contenu de ma textbox dans une colonne AC de la même ligne.
mais ma textbox ne renvoie pas le texte saisi dans la cellule.
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub CommandButton1_Click() Sheets("tableau").Activate nbLignes = Cells(Rows.Count, "B").End(xlUp).Row For i = 1 To nbLignes If (InStr(1, CStr(Range("B" & i).Value), strTemp, vbTextCompare) = Formation.ComboBox1.Value) Then Sheets("tableau").Cells(i, 29).Value = Formation.TextBox1.Value End If Next i Unload Formation End Sub
merci pour toute aide

24/05/2012, 12h46
jackborogar

Bonjour,

Essayes en retirant le ".Value" après ton Textbox1 et dis moi

Cdt,

Bonjour,

J'aurais mieux vu quelque chose comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim strTemp As String
Dim nbLignes As Long, i As Long
    With Worksheets("tableau")
        nbLignes = .Cells(.Rows.Count, "B").End(xlUp).Row
        strTemp = Formation.ComboBox1.Value
        For i = 1 To nbLignes
            If InStr(1, CStr(.Range("B" & i)), strTemp, 1) > 0 Then
                .Cells(i, 29).Value = Formation.TextBox1.Value
            End If
        Next i
        Unload Formation
    End With
End Sub

Cordialement.

24/05/2012, 16h45
maclolo2

merci beaucoup ca fonctionne parfaitement.