XL 2013 Multiplication Textbox avec pourcentage

Hauliege

XLDnaute Nouveau
Bonjour chers Tous,

Dans mon code Vba j'ai fait la multiplication entre des TextBox et le résultat est correct.
Mon problème à la validation de mon code j'ai un message "d'erreur 13 incompatibilité de type".
Débogage indiqué au niveau de mes ComboBox et avec "Val" ou "CDbl" le problème demeure????!!!
Ci-joint fichier et Merci de votre aide!
Hauliege
 

Pièces jointes

  • Test.xlsm
    184.2 KB · Affichages: 40
Solution
Re
de mon Ordi Lol
j'ai cette procédure dans mon fichier .
VB:
Private Sub CmbB_Noms_Clients_Change()
With Me.CmbB_Noms_Clients
        Me.TxtB_Adresse_1.Value = .List(.ListIndex, 2)
        Me.TxtB_Adresse_2.Value = .List(.ListIndex, 3)
        Me.TxtB_Telephone.Value = .List(.ListIndex, 4)
        Me.TxtB_Fax.Value = .List(.ListIndex, 5)
        Me.TxtB_Email.Value = .List(.ListIndex, 6)
End With
End Sub

voir Vidéo !

jean marie

Hauliege

XLDnaute Nouveau
Re
une version perfectible ! (sûrement) Lol
jean marie
Oui Jean Marie une version perfectible je confirme après signal "erreur d’exécution 381 Impossible de lire la propriétaire list index...."
Ne maitrisant pas aussi parfaitement Vba merci vérifier ton code stp
au niveau de :
Private sub CmbB_nom client et Private sub CmbB_Ref
le debogueur signale!!!!!
Hauliege
 

Pièces jointes

  • Test Chti160-3.xlsm
    200.2 KB · Affichages: 7

ChTi160

XLDnaute Barbatruc
Re
moi j'ai
les deux procédures suivantes :
VB:
Private Sub CmbB_Noms_Clients_Change()
With Me.CmbB_Noms_Clients
  Me.TxtB_Adresse_1.Value = .List(.ListIndex, 2)
  Me.TxtB_Adresse_2.Value = .List(.ListIndex, 3)
  Me.TxtB_Telephone.Value = .List(.ListIndex, 4)
  Me.TxtB_Fax.Value = .List(.ListIndex, 5)
  Me.TxtB_Email.Value = .List(.ListIndex, 6)
End With
End Sub
puis
VB:
Private Sub CmbB_Ref_Change()
With Me.CmbB_Ref
  Me.CmbB_Code_Remise.ListIndex = 0
  Me.CmbB_Code_TVA.ListIndex = 0
  Me.CmbB_Code_AIRSI.ListIndex = 0
  Me.TxtB_designation.Value = .List(.ListIndex, 2)
  Me.TxtB_Famille.Value = .List(.ListIndex, 3)
  Me.TxtB_PU.Value = .List(.ListIndex, 7)
  Me.TxtB_Qte.Text = 1
End With
End Sub
et je n'ai pas de problème
si tu n'as rien changé , à toi de voir !
jean marie
 

Hauliege

XLDnaute Nouveau
Re
une petite vidéo lol
jean marie
Bonjour le Forum,
Bonjour Jean Marie
Je te remercie pour tes efforts. Je ne comprends pas pourquoi ca ne fonctionne pas .... et pas calé en vidéo alors petites images de mon coté Lol.
Nota Bene : Après le test1 j'ai supprimé TxtB_Adresse_12 ???!!!!
au Test2 donc, on encore message d'erreur....... (voir les images jointes)


Tu m'as peut être envoyé le fichier inachevé car pour la quantité impossible de saisir une qté dans la case. Cette dernière marque automatiquement "1" à l'appel de la référence dans la CmbB_Ref. Impossible de modifier...:Quelle galère???!!!!
 

Pièces jointes

  • ImageTest1.png
    ImageTest1.png
    83.8 KB · Affichages: 8
  • ImageTest2.png
    ImageTest2.png
    80.4 KB · Affichages: 3
  • ImageTest3.png
    ImageTest3.png
    83.7 KB · Affichages: 4
  • Test Chti160-3 (1).xlsm
    200.2 KB · Affichages: 2

ChTi160

XLDnaute Barbatruc
Bonjour Hauliege
Bonjour le Fil ,le Forum

1° tu as bien fais de le Supprimer ce TxtB_Adresse_12 ! je ne sais pas d'ou il vient ! Lol
2° je n'ai aucune erreur a ce Niveau "Impossible de lire ......... Propriété non valide)
3° pour ce qui est de la TxtB_Qte la mise à 1 est Normale et voulue , c'est dans le Code !
j'ai modifié certaines choses a voir !
Tu testes et tu me dis .
il va peut être falloir aussi limiter , comme dans TxtB_Qte , la saisie a du Numérique .....
dans l'attente
jean marie
 

Pièces jointes

  • Test Chti160-3-1.xlsm
    202.8 KB · Affichages: 3

Hauliege

XLDnaute Nouveau
Bonjour Hauliege
Bonjour le Fil ,le Forum

1° tu as bien fais de le Supprimer ce TxtB_Adresse_12 ! je ne sais pas d'ou il vient ! Lol
2° je n'ai aucune erreur a ce Niveau "Impossible de lire ......... Propriété non valide)
3° pour ce qui est de la TxtB_Qte la mise à 1 est Normale et voulue , c'est dans le Code !
j'ai modifié certaines choses a voir !
Tu testes et tu me dis .
il va peut être falloir aussi limiter , comme dans TxtB_Qte , la saisie a du Numérique .....
dans l'attente
jean marie
Ça ne fonctionne toujours pas mon cher JM...
Merci (re) vérifier
 

Pièces jointes

  • ImageTest4.png
    ImageTest4.png
    76.9 KB · Affichages: 7
  • ImageTest5.png
    ImageTest5.png
    88.2 KB · Affichages: 6

Hauliege

XLDnaute Nouveau
Re
C'est lorsque tu utilises le fichier que je t'ai envoyé que tu as ce problème ?
Chez moi c'est ok !
Je ne sais pas comment faire lol
Je regarde desque possible.
Jean marie

la case "adresse 1" n'est plus renseigné...
Ca marche chez toi mais moi non?????? si ca se trouve ma "becane" doit être "Covidée" non !!!Lol
Je rame grave ....... je rappelle avec mon fichier joint dans mon post #1 j'ai ceci:
2020-07-16 (5).png
et
2020-07-16 (6).png

Je n'arrive pas à résoudre l'incompatibilité de type sur mon fichier.
JM avec ton fichier l'erreur est de type "381 proprieté impossible....." quand je fais le test
 

ChTi160

XLDnaute Barbatruc
Re
de mon Ordi Lol
j'ai cette procédure dans mon fichier .
VB:
Private Sub CmbB_Noms_Clients_Change()
With Me.CmbB_Noms_Clients
        Me.TxtB_Adresse_1.Value = .List(.ListIndex, 2)
        Me.TxtB_Adresse_2.Value = .List(.ListIndex, 3)
        Me.TxtB_Telephone.Value = .List(.ListIndex, 4)
        Me.TxtB_Fax.Value = .List(.ListIndex, 5)
        Me.TxtB_Email.Value = .List(.ListIndex, 6)
End With
End Sub

voir Vidéo !

jean marie
 

Pièces jointes

  • test3.gif
    test3.gif
    145.7 KB · Affichages: 12

Discussions similaires