Microsoft 365 Afficher l'unité dans ma userform et mon devis et empêcher que mon fichier devis se referme

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Arch974
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

Arch974

XLDnaute Junior
Bonjour,

J'ai un userform déjà presque programmé dans mon fichier "Detail fini" mais je n'arrive pas à faire afficher l'unité correspondante lorsqu'on choisit une tâche (CIT) dans l'userform et aussi je voudrais que l'unité apparaisse dans mon devis.
J'ai aussi un problème mon fichier devis se referme lorsque je rajoute une donnée comment faire pour qu'elle reste afficher?

Merci d'avance.
 

Pièces jointes

Solution
Dranreb
Ça se produit où quand vous allez en débogage ?
C'est la Sub tb_Qte_Change que je soupçonne le plus.
Alors rectifiez la ainsi :
VB: 
Private Sub tb_Qte_Change()
   If IsNumeric(tb_Qte.Text) Then
      tb_Prix.Text = Format(CDbl(tb_Qte.Text) * TVLDon(1, 8), "0,00 €")
   Else
      tb_Prix.Text = "WTF"
      End If
   End Sub
Ça pourrait aussi être dans la CommandButton1_Clickc. Corrigé :
Code: 
Private Sub CommandButton1_Click()
   Dim TVLDev(1 To 1, 1 To 5)
   On Error GoTo E
   TVLDev(1, 1) = TVLDon(1, 1)
   TVLDev(1, 2) = CDbl(tb_Qte.Text)
   TVLDev(1, 3) = TVLDon(1, 6)
   TVLDev(1, 5) = CCur(tb_Prix.Text)
   TVLDev(1, 4) = TVLDev(1, 5) / TVLDev(1, 2)
   With WshDevis.[A1].CurrentRegion
      .Rows(.Rows.Count + 1).Value = TVLDev...
Trier par date Trier par votes
Bonjour.
Essayez comme ça :
VB: 
Option Explicit
Private RngDon As Range, WshDevis As Worksheet, LCouDon As Long, TVLDon()
Private Sub UserForm_Initialize()
   Set RngDon = Feuil1.ListObjects(1).DataBodyRange
   cb_CIT.List = RngDon.Columns(1).Value
   With Workbooks.Open(ThisWorkbook.Path & "\devis.xlsx")  'ouvre le fichier
      Set WshDevis = .Worksheets(1)
      End With
   End Sub
Private Sub cb_CIT_Change()
   If cb_CIT.MatchFound Then
      LCouDon = cb_CIT.ListIndex + 1
      TVLDon = RngDon.Rows(LCouDon).Value
   Else
      LCouDon = 0
      ReDim TVLDon(1 To 1, 1 To 8)
      End If
   tb_unite = TVLDon(1, 6)
   End Sub
Private Sub tb_Qte_Change()
   tb_Prix = CDbl(tb_Qte.Text) * TVLDon(1, 8)
   End Sub
Private Sub CommandButton1_Click()
   Dim TVLDev(1 To 1, 1 To 5)
   TVLDev(1, 1) = TVLDon(1, 1)
   TVLDev(1, 2) = CDbl(tb_Qte.Text)
   TVLDev(1, 3) = TVLDon(1, 6)
   TVLDev(1, 5) = CCur(tb_Prix.Text)
   TVLDev(1, 4) = TVLDev(1, 5) / TVLDev(1, 2)
   With WshDevis.[A1].CurrentRegion
      .Rows(.Rows.Count + 1).Value = TVLDev
      End With
   End Sub
Private Sub CommandButton2_Click()
   cb_CIT = ""
   tb_Qte = ""
   tb_Prix = ""
   End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   WshDevis.Parent.Close SaveChanges:=True
   End Sub
 
Vote positif 0 Vote négatif
Dranreb à dit:
Bonjour.
Essayez comme ça :
VB: 
Option Explicit
Private RngDon As Range, WshDevis As Worksheet, LCouDon As Long, TVLDon()
Private Sub UserForm_Initialize()
   Set RngDon = Feuil1.ListObjects(1).DataBodyRange
   cb_CIT.List = RngDon.Columns(1).Value
   With Workbooks.Open(ThisWorkbook.Path & "\devis.xlsx")  'ouvre le fichier
      Set WshDevis = .Worksheets(1)
      End With
   End Sub
Private Sub cb_CIT_Change()
   If cb_CIT.MatchFound Then
      LCouDon = cb_CIT.ListIndex + 1
      TVLDon = RngDon.Rows(LCouDon).Value
   Else
      LCouDon = 0
      ReDim TVLDon(1 To 1, 1 To 8)
      End If
   tb_unite = TVLDon(1, 6)
   End Sub
Private Sub tb_Qte_Change()
   tb_Prix = CDbl(tb_Qte.Text) * TVLDon(1, 8)
   End Sub
Private Sub CommandButton1_Click()
   Dim TVLDev(1 To 1, 1 To 5)
   TVLDev(1, 1) = TVLDon(1, 1)
   TVLDev(1, 2) = CDbl(tb_Qte.Text)
   TVLDev(1, 3) = TVLDon(1, 6)
   TVLDev(1, 5) = CCur(tb_Prix.Text)
   TVLDev(1, 4) = TVLDev(1, 5) / TVLDev(1, 2)
   With WshDevis.[A1].CurrentRegion
      .Rows(.Rows.Count + 1).Value = TVLDev
      End With
   End Sub
Private Sub CommandButton2_Click()
   cb_CIT = ""
   tb_Qte = ""
   tb_Prix = ""
   End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   WshDevis.Parent.Close SaveChanges:=True
   End Sub
Cliquez pour agrandir...
ça fonctionne merci bien. Par contre lorsque j'essaie de rentrer une 2ème valeur il m'affiche "Erreur d'exécution Incompatibilité de type" ? et ça ne fonctionne plus.
 
Vote positif 0 Vote négatif
Ça se produit où quand vous allez en débogage ?
C'est la Sub tb_Qte_Change que je soupçonne le plus.
Alors rectifiez la ainsi :
VB: 
Private Sub tb_Qte_Change()
   If IsNumeric(tb_Qte.Text) Then
      tb_Prix.Text = Format(CDbl(tb_Qte.Text) * TVLDon(1, 8), "0,00 €")
   Else
      tb_Prix.Text = "WTF"
      End If
   End Sub
Ça pourrait aussi être dans la CommandButton1_Clickc. Corrigé :
Code: 
Private Sub CommandButton1_Click()
   Dim TVLDev(1 To 1, 1 To 5)
   On Error GoTo E
   TVLDev(1, 1) = TVLDon(1, 1)
   TVLDev(1, 2) = CDbl(tb_Qte.Text)
   TVLDev(1, 3) = TVLDon(1, 6)
   TVLDev(1, 5) = CCur(tb_Prix.Text)
   TVLDev(1, 4) = TVLDev(1, 5) / TVLDev(1, 2)
   With WshDevis.[A1].CurrentRegion
      .Rows(.Rows.Count + 1).Value = TVLDev
      End With
   Exit Sub
E: MsgBox Err.Description, vbCritical, Me.Caption
   End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
Dranreb à dit:
Ça se produit où quand vous allez en débogage ?
C'est la Sub tb_Qte_Change que je soupçonne le plus.
Alors rectifiez la ainsi :
VB: 
Private Sub tb_Qte_Change()
   If IsNumeric(tb_Qte.Text) Then
      tb_Prix.Text = Format(CDbl(tb_Qte.Text) * TVLDon(1, 8), "0,00 €")
   Else
      tb_Prix.Text = "WTF"
      End If
   End Sub
Ça pourrait aussi être dans la CommandButton1_Clickc. Corrigé :
Code: 
Private Sub CommandButton1_Click()
   Dim TVLDev(1 To 1, 1 To 5)
   On Error GoTo E
   TVLDev(1, 1) = TVLDon(1, 1)
   TVLDev(1, 2) = CDbl(tb_Qte.Text)
   TVLDev(1, 3) = TVLDon(1, 6)
   TVLDev(1, 5) = CCur(tb_Prix.Text)
   TVLDev(1, 4) = TVLDev(1, 5) / TVLDev(1, 2)
   With WshDevis.[A1].CurrentRegion
      .Rows(.Rows.Count + 1).Value = TVLDev
      End With
   Exit Sub
E: MsgBox Err.Description, vbCritical, Me.Caption
   End Sub
Cliquez pour agrandir...
C'est la Sub tb_Qte_Change qui posait problème, votre correction a bien marché ça ne beug plus !! Merci infiniment 🙂
 
Vote positif 0 Vote négatif
Dranreb à dit:
Ça se produit où quand vous allez en débogage ?
C'est la Sub tb_Qte_Change que je soupçonne le plus.
Alors rectifiez la ainsi :
VB: 
Private Sub tb_Qte_Change()
   If IsNumeric(tb_Qte.Text) Then
      tb_Prix.Text = Format(CDbl(tb_Qte.Text) * TVLDon(1, 8), "0,00 €")
   Else
      tb_Prix.Text = "WTF"
      End If
   End Sub
Ça pourrait aussi être dans la CommandButton1_Clickc. Corrigé :
Code: 
Private Sub CommandButton1_Click()
   Dim TVLDev(1 To 1, 1 To 5)
   On Error GoTo E
   TVLDev(1, 1) = TVLDon(1, 1)
   TVLDev(1, 2) = CDbl(tb_Qte.Text)
   TVLDev(1, 3) = TVLDon(1, 6)
   TVLDev(1, 5) = CCur(tb_Prix.Text)
   TVLDev(1, 4) = TVLDev(1, 5) / TVLDev(1, 2)
   With WshDevis.[A1].CurrentRegion
      .Rows(.Rows.Count + 1).Value = TVLDev
      End With
   Exit Sub
E: MsgBox Err.Description, vbCritical, Me.Caption
   End Sub
Cliquez pour agrandir...
Par contre parfois dans le devis le symbole euro est affiché avant le nombre alors que dans l'userform elle est bien affiché après le nombre
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
850
ChTi160
ChTi160
A
  • Résolu(e)
Microsoft 365 Copier un Userform dans toutes les feuilles de mon fichier
2
Réponses
16
Affichages
2 K
Dranreb
Dranreb
A
  • Question Question
Microsoft 365 calcul avec un userform qui prend en compte l'économie d'échelle
2 3
Réponses
31
Affichages
2 K
Arch974
A
C
  • Question Question
XL 2016 [résolu] Création d'un vote via VBA et Userform
Réponses
3
Affichages
2 K
chaps42
C
A
  • Question Question
Résolu ! Double-click sur lisbox pour alimenter un autre userform : Résolu !
Réponses
11
Affichages
6 K
~ Arnaud ~
A
L
  • Question Question
Problème affichage fichier excel avec userform
Réponses
8
Affichages
2 K
Loglana
L
N
  • Question Question
afficher une feuille base de donnee dans une autre feuille dans un userform
Réponses
7
Affichages
1 K
Bebere
B
L
  • Question Question
XL 2013 Deplacer Formes/Shapes pour gerer l'espace dans un entrepot
Réponses
3
Affichages
1 K
youky(BJ)
youky(BJ)
F
  • Question Question
afficher une image dans un userform d'après une listbox
Réponses
4
Affichages
3 K
néné06
néné06
M
  • Question Question
Afficher texte et non la formule dans la barre des formules
Réponses
4
Affichages
7 K
Efgé
Efgé
emj
  • Question Question
Piloter l'affichage dans un userform depuis un autre userform et ouverture par double
Réponses
3
Affichages
2 K
emj
emj
E
  • Question Question
Date d'un userform transférées fausses dans le fichier ecel, pb de format
Réponses
2
Affichages
1 K
Essart
E
C
  • Question Question
remplir plusieur textbox dans userform et afficher dans listbox resultat recherche
Réponses
2
Affichages
4 K
Robert
Robert
D
  • Question Question
Aide userform et listbox pour mon lancement de prod
Réponses
1
Affichages
1 K
dams8659
D
F
  • Question Question
Problème de textbox et d'évènement change
Réponses
3
Affichages
2 K
Flo.
F
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
116 K
MichelXld
M
S
  • Question Question
chercher fichier pour lire donner et renvoyer l'info dans un userform
Réponses
4
Affichages
1 K
@+Thierry
@
@
  • Question Question
=> UTILITAIRE XLD UserForm de "Surf" dans le Phorum, depuis BDD <<<< SPECIAL XLD
2 3
Réponses
30
Affichages
7 K
steplof
S
Retour