Discussion :

[stRiks]

Bonjour,

Je cherche une formule me permettant un remplissage automatique d'une grille tarifaire selon plusieurs critères

C'est donc l'onglet TARIF qui doit être rempli en auto selon une tranche de poids par rapport au colonnes H, I et J dans l'onglet BDD

La première colonne du tableau à remplir correspond au Dpt
La ligne 1 correspond aux tranches de poids
Les cellules vident correspondent au prix indiqué selon le poids et dpt de l'onglet BDD

Un grand merci à ceux qui m'aideront car je sèche sur la formule adequate.

---

Fichiers joints dans les discussions

---

[stRiks]

Bonjour,

J'ai trouvé ma solution
Au cas ou cela serve voici la macro utilisé :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub calculauto()
'
    Application.Goto Reference:="calculauto"
' calculauto Macro
'
' Touche de raccourci du clavier: Ctrl+m
' Dim FL1 As Worksheet, Cell As Range
    Set FL1 = Worksheets("index")
    Set FL2 = Worksheets("Tarifs")
    Dim Compteur As Integer, dep As Integer, poid As Long, x As Integer
    With FL1
        'Utilisation de la propriété UsedRange dans une boucle For Each... Next
        For Each cell In .UsedRange
        Compteur = Compteur + 1
         ' si 4 alors new line
        If Compteur = 4 Then
        Compteur = 1
        End If
         ' si 1 Sav du dep
        If Compteur = 1 Then
        dep = cell.Value
        dep = dep + 1
        If dep = 99 Then
        dep = 97
        End If
         End If
         ' si 1 Sav du poid
        If Compteur = 2 Then
        poid = cell.Value
         End If
         ' si 3 On met le prix dans la cell x selon poid
        If Compteur = 3 Then
 
        poid = cell.Value / 10
        x = poid + 1
        ' on ecrit la cellule
        FL2.Cells(dep, x).Value = cell.Value
        End If
 
        ' lecture cellule suivante
        Next
        End With
 
 
End Sub