Simple Macro Excel

Version imprimable

08/01/2019, 13h33
celine.celine

Simple Macro Excel

Bonjour,

Je souhaite realiser une simple macro:

J'ai un fichier avec 2 onglets et j'aimerais dans le 1er onglet retrouver deux types de donnees automatiquement du deuxieme onglet.

Par example:
Dans l onglet 1 j ai une reference: ABCDE et j'aimerais que s'ecrive automatiquement a cote le prix de cette reference (le prix se trouve dans l'onglet 2). Aussi il y a plusieurs pays par reference donc la formule devra trouver le prix en fonction de la bonne reference avec le meme pays.

Donc: Ref: ABCDE pour pays: Inde : 50€

Auriez-vous des suggestions pour ce probleme?

Je vous remercie vivement par avance de vos precieux conseils.

Cordialement

Celine
08/01/2019, 13h39
BENNASR

bonsoir
un tableau croisé dynamique en ligne les articles et en valeur les prix et comme segment les pays

1 pièce(s) jointe(s)

Si pour une raison ou une autre vous cherchez à passer via VBA, il te faut un userform avec 2 combobox et un textbox et les codes :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub ComboBox1_Change()
Dim CodeR As String
ComboBox2.Clear
With Sheets("feuil1")
dernLigne = .Range("A" & Rows.Count).End(xlUp).Row
  CodeR = ComboBox1.Value
  Set rg = .Range("B2:B" & dernLigne)
 For Each cell In rg
  If cell.Value = CodeR Then
   ComboBox2 = .Range("A" & cell.Row)
   If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem .Range("A" & cell.Row)
  End If
  Next cell
End With
ComboBox2.Value = ""
TextBox1.Value = ""
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub ComboBox2_Change()
Dim Pays As String
Dim CodArt As String
 
With Sheets("feuil1")
dernLigne = .Range("A" & Rows.Count).End(xlUp).Row
  Pays = ComboBox1.Value
  CodArt = ComboBox2.Value
  Set rg = .Range("A2:A" & dernLigne)
 For Each cell In rg
  If cell.Value = CodArt And Cells(cell.Row, 2) = Pays Then
   TextBox1.Value = Cells(cell.Row, 3)
  End If
  Next cell
End With
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub UserForm_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 2 To Sheets("feuil1").Range("B65536").End(xlUp).Row
  ComboBox1 = Sheets("feuil1").Range("B" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("feuil1").Range("B" & i)
Next i
ComboBox1.Value = ""
ComboBox2.Value = ""
TextBox1.Value = ""
End Sub

A TESTER

08/01/2019, 14h13
Menhir

Citation:

Envoyé par celine.celine

Auriez-vous des suggestions pour ce probleme?

On peut éviter de passer par du VBA en utilisant la fonction BDLIRE().
https://support.office.com/fr-FR/art...0-ec250d00892e