Discussion :

[JPDU92]

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 ...

[wilfried_42]

Bonjour

Je ne comprend pas tres bien ton code

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

If not is nothing --> tu testes l'existance d'un trigramme mais tu n'as aucun traitement specifique selon si trouvé ou pas

fl1----> ca correspond à quoi ????

set plage = range("A65535............... ?????
With plage : non utilisé en dessous


je ne sais pas si j'ai compris ton besoin mais je verrai bien comme ca :

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, ligne as long, 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à ----> Maj"
            c.offset(0,1) = me.textbox2
    else
            msgbox "Trigramme absent ---> ajout"
            ligne = range("A65536").end(xlup).row +1
            fl1.cells(ligne,1)=me.textbox1
            fl1.cells(ligne,2)=me.textbox2
    End If
End With
 
End Sub

Bonne journée

[rtg57]

Bonjour,

pour le problème de recherche, pourquoi ne pas utiliser un langage basic simple du genre:

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
22
23
 
dim MotCherche As String
dim ligne_recherche As Integer
Dim colonne_recherche As Integer
Dim drapeau_trouve As Boolean
 
MotCherche = TextBox1.Text
colonne_recherche = 1
For ligne_recherche = 1 To 65535
  if ActiveSheet.Cells( ligne_recherche, colonne_recherche ).Text = MotCherche Then
    MsgBox "Le trigramme existe déjà ----> Maj"
    drapeau_trouve = True;
    Exit For  ' On arrête immédiatement la recherche
  End If
 
  if ActiveSheet.Cells( ligne_recherche, colonne_recherche ).value = ""
    Exit For  ' On arrête immédiatement la recherche car plus de ligne remplie
  End If
Next ligne_recherche
 
if drapeau_trouve = False then
  MsgBox "Trigramme absent ---> ajout"
End if

C'est du langage simple et beaucoup moins spécifique à l'environnement EXCEL. Donc plus facilement exportable dans une autre application.

[dro414]

Bonjour

se mettre dans la colonne qui sert de test.
Tu peux enlever ce qu'il y apres le end si tu es sur qu'il n'y a pas de saut de ligne

Code :

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

1
2
3
4
5
range("a1").select 
 
Do Until ActiveCell.Offset(1, 0).Value <> "" And ActiveCell.Offset(2, 0).Value <> ""
    ActiveCell.Offset(1, 0).Select
Loop

[JPDU92]

Merci beaucoup pour toutes ces réponses, j'ai trouvé grace à vous et je pourrais maintenant avancé dans mon projet. Mais bientot j'en aurais un autre.