Userform et modification feuille

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:

---

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:

---

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:

---

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 ?

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

@+JP

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.

Merci beaucoup,

Je regarde ça.

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:

---

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.

bonjour,

Citation:

---

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

Citation:

---

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

Merci beaucoup,

ça fonctionne.