formulaire avec contrôl Multipage

[ExcelDow]

bonjour à tous,

donc, j'ai un formulaire et j'ai créer un contrôl multipage, le soucis c'est de faire une recherche avec un combobox comme dans un formulaire classique. Le combobox de recherche à son code, mais ne fonctionne pas.
Pourrais-je avoir s'il vous plaît un petit peux d'aide
Merci d'avance

 

[CHALET53]

Re : formulaire avec contrôl Multipage

bonjour,

Peut-être un début de solution

a+

 

[ExcelDow]

Re : formulaire avec contrôl Multipage

Bonjour CHALET53,
OUI, super, c'est un bon début, MERCI

 

[Lone-wolf]

Re : formulaire avec contrôl Multipage

Bonsoir ExcelDow, CHALET


@ ExcelDow : pour éviter de répéter le nom de la feuille dans la macro d'enregistrement, c'est mieux si tu écrit comme ceci:

Dans les propriétés du formulaire mettre Show Modal = False

With Sheets("BD")
lig = .Range("a65536").End(xlUp).Row + 1 
.Range("a" & lig) = lig - 1
.Range("b" & lig) = Me.TxtNom
.Range("c" & lig) = Me.TxtPrenom

'-------------------------------------------

If OpbLivre.Value = True Then .Range("o" &  lig ) = OpbLivre.Caption
If .Range("o" &  lig ) = "" then .Range("o" &  lig ) =  "-"

If OpbAttente.Value = True Then .Range("p" &  lig ) = OpbAttente.Caption
If .Range("p" &  lig ) = "" then .Range("p" &  lig ) =  "-"
Etc...

A+ 😎

 

[ExcelDow]

Re : formulaire avec contrôl Multipage

Bonsoir Lone-Wolf
Merci beaucoup pour ces précisions, je vais tester tous ça
Bon Week End

 

[Lone-wolf]

Re : formulaire avec contrôl Multipage

Re ExcelDow,


et pour éviter le format texte dans certaines cellules (Quantité, PrixA, PriV), code à adapter.
Mettre les quatres colonnes au format nombre pour commencer. Ensuite >>>

With sheets("BD")
lig = .Range("e65536").End(xlUp).Row + 1
.Range("e" & lig) = Trim(.Range("e" & lig))
.Range("k" & lig) = Trim(.Range("k" & lig))
.Range("l" & lig) = Trim(.Range("l" & lig))
.Range("m" & lig) = Trim(.Range("m" & lig))

.Range("e" & lig) = Format(TextBox1, "0")
.Range("k" & lig) = Format(TextBox2, "0")
.Range("l" & lig) = Format(TextBox3, "0.00.-")
.Range("m" & lig) = Format(TextBox4, "0.00.-")
End With

A+ 😎

 

[ExcelDow]

Re : formulaire avec contrôl Multipage

Bonjour Lone-Wolf
OK et un grand merci à toi