[XL-2007] Remplir un tableau à partir de variables

Re bonjour

J'ai cherché et ai trouvé une solution qui fonctionne

J'utilise la fonction Find dans la ligne et la colonne de titre.

Je récupère les référence de lignes et colonnes pour trouver la référence de la cellule où je dois insérer ma valeur

Code:

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
Dim tabloLigne, tabloColonne As String
 
            Dim PlageLigne, PlageCol As Range
            Dim trouveLigne, TrouveCol As Range
            Dim AdresseJour, adresseMat As String
 
            Select Case majmaterb
                Case Is = "Sous"
                    majmaterbis = Worksheets("UTILISATION MATERIELS").Range("B" & xmaj3 - 1)
                    majvaleur = Worksheets("UTILISATION MATERIELS").Range("N" & xmaj3)
 
                    'on cherche le jour VALMAJ dans l entete du tableau
                    With Worksheets("SYNTHESE MATERIELS")
                        Set PlageLigne = .Range(.Cells(6, 4), .Cells(6, 20))
                    End With
                    Set trouveLigne = PlageLigne.Find(valmaj2)
                    AdresseJour = trouveLigne.Column
 
                    'on cherche le matériel dans la colonne du tableau
                    With Worksheets("SYNTHESE MATERIELS")
                        Set PlageCol = .Range(.Cells(7, 1), .Cells(60, 1))
                    End With
                    Set TrouveCol = PlageCol.Find(majmaterbis)
                    adresseMat = TrouveCol.Row
 
                    ' on place la valeur dans la bonne colonne et la bonne ligne
                    majvaleur2 = Replace(majvaleur, ",", ".")
                    Worksheets("SYNTHESE MATERIELS").Cells(adresseMat, AdresseJour).Value = majvaleur2

Bonne journée

Daniel