XL 2019 besoin corection code vba

[NicolasKH]

bonjour tout le monde

je rencontre un petit probleme dans mon code vba et je voudrais savois si jai bien ecrit le code ou pas

ma feuil s'appel employ, colone A (ID), colone B (lastname), colone C (firtname), colone D ( Genre (male,femelle))



Private Sub Cbtedit_Click()
Dim rng1 As Range
Dim str_search As String
str_search = Me.Cbocherche.Value
ActiveWorkbook.Sheets("employ").Activate
Set rng1 = Sheets("employ").Range("B:B").Find(str_search, , xlValues, xlWhole)
If Not rng1 Is Nothing Then
rng1.Select
Dim row_number As Long
row_number = ActiveCell.Row
With ActiveWorkbook.Sheets("employ")
.Range("b" & row_number).Value = Me.Txtlastname.Value
.Range("c" & row_number).Value = Me.Txtfirstname.Value
.Range("d" & row_number).Value = Me.Cbogenre.Value
.Range("e" & row_number).Value = Me.TxtBirth.Value
End With
Else
MsgBox str_search & "Not Found"
End If
End Sub

quand je fait le test il y a que le colone lasname qui change et le reste non

cordialement

 

[TooFatBoy]

Bonjour,

Ce code est-il dans un UserForm ?

 

[NicolasKH]

Bonjour,

Ce code est-il dans un UserForm ?

oui

 

[TooFatBoy]

Les TextBox sont-elles remplies ?

 

[NicolasKH]

Les TextBox sont-elles remplies ?

oui j'ai tous renom en txtlastname,txtfirstname,txtgenre,txtbirth
txtlastename=colone A
txtfirstname B
txtgenre C
txtbirth D

 

[TooFatBoy]

txtlastename=colone A

Ca ne veut rien dire ! Une TextBox ne contient pas une colonne d'une feuille.

 

[NicolasKH]

Ca ne veut rien dire ! Une TextBox ne contient pas une colonne d'une feuille.

c'est sur la feuil
colone B= lastname
colone C = firstname
colone D = genre
colone E = birth

 

[TooFatBoy]

Tu as bien une TextBox qui s'appelle Txtlastname dans ton UserForm ?

 

[NicolasKH]

Tu as bien une TextBox qui s'appelle Txtlastname dans ton UserForm ?

dans mon userform jai une textbox pour chacun des colones de la feuille

 

[TooFatBoy]

Donc :

Les TextBox sont-elles remplies ?

 

[NicolasKH]

Donc :

en fait dans le combobox (select name) je selction un nom et ca me fait une recherche ca ca rempli tous les textbox de mon userform

 

[TooFatBoy]

Et après tu fais une autre recherche pour savoir quelle ligne remplir avec les valeurs de tes TextBox ?

 

[NicolasKH]

Et après tu fais une autre recherche pour savoir quelle ligne remplir avec les valeurs de tes TextBox ?

c'est peut la que je n'est pas su faire parce que ca ne me modifie le lastname et le rest rien

 

[TooFatBoy]

OK.


@+