Discussion :

[familledacp]

Bonjour à tous et toutes

Je suis à la recherche de la meilleur méthode pour résoudre mon problème

En fin de mes divers traitements sur une feuille de calculs, je fais un tableau de synthèse sur la feuille "synthèse materiels"

En colonne A, divers matériels, dont le nombre et les noms varient d'un projet à l'autre. Cette colonne est remplie à partir d'une boucle

En ligne 6, divers jours, dont le nombre varie d'un projet à l'autre

J'ai diverses valeurs à saisir dans ce tableau
Ce sont des valeurs numériques (variable MAJVALEUR) qui dépendent de deux variables (variable matériel : MAJMATERBIS et variable jour : VALMAJ2)

La variable MAJMATERBIS correspond à une valeur de la colonne A
La variable VALMAJ2 correspond à une valeur de la ligne 6

Quelle est la piste à utiliser ?
> Fonction de type Vlookup ?
> Variable tableau ?

Merci pour vos pistes

Daniel S

[familledacp]

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 :

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
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