Discussion :

[toushusss]

Bonjour à tout le Forum
J'ai rentré ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
With Sheets("EDF")
Dim ligne As Long
Dim Tot As Range
 
ligne = .Range("B" & .Rows.Count).End(xlUp).Row
    Set Tot = .Range("b1:b" & ligne).Find(UserForm2.ListBox1.Text)
    .Range("A" & Tot.Row + 7) = UserForm2.TextBox1.Text
End With
End Sub

Il doit me permettre de rechercher un texte dans mon tableau ( identique à celui selectionner dans ma listBox1)
Et ensuite inserer dans la cellule A , 7 lignes plus bas le texte de la TextBox.

Or cela plante et m'affiche pour la dernière ligne de code
"Variable objet ou Variable de bloc With non définie

Quelqu'un pourrait il m'aider
Merci par avance

[SfJ5Rpw8]

Salut,

Le problème doit subvenir si ta recherche ne renvoi rien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
     If Not Tot Is Nothing Then
        .Range("A" & Tot.Row + 7) = UserForm2.TextBox1.Text
      Else
        MsgBox "introuvable"
      End If

[toushusss]

Salut ! c'est bon j'ai trouvé.

Le probleme est que j'avai fusionné Col B et Col C et donc la recherche ne se faisait pas. Deplus j'ai corrigé mon code comme suit et ça fonctionne ( enfin pour le moment)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
 
Dim ligne As Long
Dim Tot As Range
 
With Sheets("EDF").Range("B2:B2000")
    Set Tot = .Find(UserForm2.ListBox1.Text)
    Range("A" & Tot.Row + 7) = UserForm2.TextBox1.Text
End With
End Sub