Bonjour,
J'ai pas mal cherché aujourd'hui une solution à mon probléme et je demande à l'aide car je vais m'arracher les derniers cheveux si je continue ...

Voici mon petit code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub NOUVEL_ENTREE_Click()
Dim MotCherche, plage As Range, Cell As Range
MotCherche = Me.TextBox1.Text
ColonneRecherche = 1 
Set plage = fl1.Range(Cells(1, ColonneRecherche), _
Cells(Range("A65536").End(xlUp).Row, ColonneRecherche))
With plage
    Set c = .Find(MotCherche, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then 'donnée trouvée
            MsgBox "Le trigramme existe déjà !", _
     vbOKOnly + vbExclamation, "Manque trigramme"
 
 
End If
End With
Set plage = Range("A65536").End(xlUp).Row + 1
With plage
    fl1.Cells(c.Row, 1).Value = Me.TextBox1.Text
    fl1.Cells(c.Row, 2).Value = Me.TextBox2.Text
End With
End Sub
Et en fait j'ai un probléme avec la fin, je voudrais faire apparaitre dans la premiére ligne vide d'une page excel la valeur des textbox 1 et 2 mais je n'y arrive pas, j'ai essayé tout ce que je connais et tout ce que j'ai cherché sur la toile, mais bon, je ne suis qu'un débutant, pourriez vous m'aider ??? Je sais qu'il manque des trucs et je n'arrive pas à déterminer ce que c'est ...