Recherche dans une plage de cellules

Bonjour,

Je sais qu'il existe déjà quelques sujets sur ce thème mais je ne trouve pas mes réponses....

Je recherche une fonction ou méthode me permettant de rechercher dans une plage de cellules si la valeur d'une textebox est comprise dans cette plage.

Si celle ci n'y est pas comprise, je souhaiterais qu'elle s'ajoute a la suite.

J'ai essayé avec .find mais ne ne comprends pas....
Merci d'avance pour vos retours!

Bonjour,

Une textbox te renvoie du texte. Si ce sont des nombres que tu cherches, il faut, dans ton find, convertir le texte cherché en nombre.

Mais sans fichier exemple, dur de te dire ce que tu fais bien ou non.

Bonjour maxime_nrgt, JoyeuxNoel , le forum,

Un exemple...

Sub Bouton2_Cliquer()
 Dim plage As Range, val As Range
  Set plage = Range("G1:G" & Range("G" & Rows.Count).End(xlUp).Row)
   If ActiveSheet.TextBox1.Value <> "" Then
    Set val = plage.Find(What:=ActiveSheet.TextBox1.Value)
     If val Is Nothing Then
      If MsgBox("Valeur non touvée, la rajouter ?", vbYesNo, "Demande de confirmation") = vbYes Then
       ActiveSheet.Range("G" & ActiveSheet.Range("G" & Rows.Count).End(xlUp).Row + 1) = ActiveSheet.TextBox1.Value
       MsgBox "Valeur ajoutée à la liste": ActiveSheet.TextBox1 = ""
      End If
     Else
       MsgBox "Valeur présente dans la liste": Exit Sub
     End If
   End If
End Sub

Cordialement,

Hello xorsankukai,

OK, je n'ai rien dit alors :)

Merci pour votre aide

Cependant j'ai essayé de l'inclure dans mon fichier mais cela ne fonctionne pas... ci-joint le classeur

Je souhaiterais que les données s'ajoutent dans la feuille "data"

Re,

A tester....

Cordialement,