Discussion :

[presser]

Bonsoir à tous
j'utilise un userforme presentant une zone de saisie et deux ComboBox:
ComboBox1 pour selectionner le produit
ComboBox2 pour selectionner l'année
Et aprés les deux selections je saisie les données .Je passe par un appel de procedure pour le chargement sur une feuille excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Charger_Click()
   If ComboBox2.Value = "2009" Then
   Call extractive1
  Unload Me
End If
If ComboBox2.Value = "2009" Then
Call travail1
  Unload Me
End If
End Sub

pour le second chargement ça ne passe pas je voulais une aide
la procedure extractive1 saisie les element d'un produit suivant l'année

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub extractive1()
If ComboBox1.Value = "INDUSTRIES EXTRACTIVES" Then
If Me.TextBox1.Text <> "" Then
         Sheets("CA industrie").Range("AN47").Value = Me.TextBox1
End If
If Me.TextBox2.Text <> "" Then
         Sheets("CA industrie").Range("AO47").Value = Me.TextBox2
End If
If Me.TextBox3.Text <> "" Then
         Sheets("CA industrie").Range("AP47").Value = Me.TextBox3
End If
If Me.TextBox4.Text <> "" Then
         Sheets("CA industrie").Range("AQ47").Value = Me.TextBox4
End If
If Me.TextBox5.Text <> "" Then
         Sheets("CA industrie").Range("AR47").Value = Me.TextBox5
End If
end sub

et la procedure travail1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub travail1()
If ComboBox1.Value = "TRAVAIL DES GRAINS" Then
If Me.TextBox1.Text <> "" Then
         Sheets("CA industrie").Range("AN52").Value = Me.TextBox1
End If
If Me.TextBox2.Text <> "" Then
         Sheets("CA industrie").Range("AO52").Value = Me.TextBox2
End If
If Me.TextBox3.Text <> "" Then
         Sheets("CA industrie").Range("AP52").Value = Me.TextBox3
End If
If Me.TextBox4.Text <> "" Then
         Sheets("CA industrie").Range("AQ52").Value = Me.TextBox4
End If
If Me.TextBox5.Text <> "" Then
         Sheets("CA industrie").Range("AR52").Value = Me.TextBox5
End If
End sub

[DeaD78]

Salut,

Fais voir ta procédure travail1. Ca doit venir de là.

A+

EDIT : pourquoi tu fais 2 conditions If ? Mets les 2 Call l'un après l'autre. Ca peut aussi venir de là. Tu as 2 fois la même Combobox avec la même valeur en condition. Ca ne sert vraiment à rien de faire 2 If et ça peut causer ton problème.

[mapeh]

Bonsoir,

tu Unload ton USF après la première condition....

si elle est vraie, l'USF se ferme..

essaie plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Charger_Click()
If ComboBox2.Value = "2009" Then
   Call extractive1
   Call travail1
  Unload Me
End If
End Sub

[laetitia]

bonjour presser l' ami DeaD comme le dit mon ami dead Call extractive1
c'est quoi ??? Call travail1 c' est quoi ???
voila ce que ton code fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Charger_Click()
   If ComboBox2.Value = "2009" Then
   Call extractive1
  Unload Me
End If

tu as excatement la meme condition
si combobox2="2009"
par chronologie du code
tu appeler que la 1 premiere condition donc extractive1 tu peus pas appeler Call travail1 j' espére que tu as compris a+

[laetitia]

re, bonjour mapeh attention ecris comme cela tu appeles les 2 procedures je vois pas trop l' interêt

pour être logique je verrais mieux un truc dans ce style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Charger_Click()
If ComboBox1 =x and ou or  ComboBox2 =y Then
   Call extractive1
   else
Call travail1
  end if
unload me
End Sub

[mapeh]

Re,

Salut Laeticia,

d'après son code, c'est ce qu'il veut.....

Maintenant, un ElseIf, s'il veut faire l'un ou l'autre code...

Bonne soirée

[laetitia]

re mapeh pour moi c' est pas cohérent il teste les 2 conditions sur la méme combobox2 ca peut pas marcher ou il sait tromper attendons pour voir. passe une bonne soirée leti a+