Discussion :

[manufer]

Salut à tous,

Voila j'ai plusieurs textbox (une dizaine) dont une (textbox20) avec une listbox au-dessous,

La textbox20 peut être considérée comme une barre de recherche.

En fonction de ce qui est saisi dans celle-ci, la listbox affichera des résultats,

Un click sur le listbox permet de selection une donnée dans le textbox.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox20_Change()
Worksheets("Base adresses").Activate
    ListBox1.Clear
    If TextBox20 <> "" Then
        For ligne = 3 To 40000
            If Cells(ligne, 1) Like "*" & TextBox20 & "*" Then
                ListBox1.AddItem Cells(ligne, 1)
            End If
        Next
    End If
End Sub

J'ajoute le résultat dans le textbox et aussi les résultats des cellules de la même ligne dans d'autre textbox
comme ceci:

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
Me.TextBox20 = Me.ListBox1.List(Me.ListBox1.ListIndex)
 
For ligne = 3 To 40000
    If Cells(ligne, 1).Value Like "*" & Me.TextBox20 & "*" Then
        Me.TextBox1 = Cells(ligne, 3).Value
        Me.TextBox2 = Cells(ligne, 4).Value
        Me.TextBox3 = Cells(ligne, 5).Value
        Me.TextBox4 = Cells(ligne, 6).Value
        Me.TextBox5 = Cells(ligne, 7).Value
        Me.TextBox6 = Cells(ligne, 8).Value
        Me.TextBox7 = Cells(ligne, 9).Value
        Me.TextBox8 = Cells(ligne, 10).Value
        Me.TextBox9 = Cells(ligne, 11).Value
        Me.TextBox10 = Cells(ligne, 2).Value
    End If
Next

Le problème c'est que je n'ai pas la possibilité de modifié une valeur dans une cellule au travers d'une de ces textbox.

Parce que au début de mon code l'insertion se fait de cette façon:

Code :

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

1
2
3
4
5
 
a = textbox1.value
 
derlig = Feuil7.Range("A" & Rows.Count).End(xlUp).Row
Worksheets("bdd").Range("A" & derlig + 1).Value = a

Ce que j'ai fais est plutôt long.


Alors que j'aimerai avoir ce choix après avoir retouché le textbox:

- Modifier une donnée sur la ligne ou ajouter la donnée à la fin

Savez-vous comment s'y prendre pour avoir ce choix ?

[mjpmjp]

bonjour,
la textbox a un événement qui teste quand on y sort , c'est à ce moment là que tu décides

@+JP

[Philippe Tulliez]

Bonjour,
Cette contribution USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire t'aidera sans doute à résoudre ton problème.

[manufer]

Merci beaucoup,

Je regarde ça.

[manufer]

Pour commencer Merci Philippe pour cette contribution,
C'est remarquable.

Ensuite je précise que je me suis peut être mal expliqué mais mon problème est le suivant.
J'ai une valeur dans un textbox et des valeur dans une feuille.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
a = texbox3
Dlig1 = Feuil7.Range("C" & Rows.Count).End(xlUp).Row
derlig = Sheets("bdd").Cells(Rows.Count, 1).End(xlUp).Row
 
For ligne = 3 To derlig + 1
    If Sheets("bdd").Cells(ligne, 1).Value = TextBox20.Value Then
    Cells(ligne, 3).Value = Me.TextBox3
else
Worksheets("bdd").Range("C" & Dlig1 + 1).Value = a
end if
Next

J'aimerai que la deuxième condition ne se réalise qu'une fois que toute les lignes ont été balayé et que la première condition soit fausse.

Je ne parviens pas à le faire.

[mjpmjp]

bonjour,

et que la première condition soit fausse.

il te faut un "témoin" qui atteste ta première volonté --> première partie vraie ou fausse
dim ErreurDetect as boolean
ErreurDetect = false

J'aimerai que la deuxième condition ne se réalise qu'une fois que toute les lignes ont été balayé

tu boucle "sans le else" et si il y a une erreur ErreurDetect = true

après le next
if ErreurDetect then ...

@+JP

[manufer]

Merci beaucoup,

ça fonctionne.