Bonjour à tous,

J’ai un petit problème sur mon code suivant :

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
Sub estimé()
 
 Dim colonne As Integer
 Dim ligne As Integer
 
 
 
    colonne = InputBox("quel colonne ?", "Titre") 'La variable reçoit la valeur entrée dans l'InputBox
    ligne = InputBox("quel ligne ?", "Titre") 'La variable reçoit la valeur entrée dans l'InputBox
 
 
With Worksheets("Feuil2")
 
 
For i = colonne To 18
 
    Cells(ligne, i).Formula = _
        "=INDEX(" & .Cells(3, 1).Address(False, False) & ":" & Cells(29, 16).Address(False, False) & _
        ",MATCH(" & Cells(7, 2).Address(False, False) & "," & .Cells(3, 1).Address(False, False) & ":" & Cells(29, 1).Address(False, False) & ",0),3)"
 
 
Next i
 
 
End With
 
 
End Sub
En effet j’aimerai qu’il me renvoi la formule suivante :

=INDEX(Feuil2!A3: P29;EQUIV(Feuil1!B7;Feuil2!A3:A29;0);3)
Mais il me renvoi la formule suivante :

=INDEX(A3: P29;EQUIV(B7;A3:A29;0);3)
Il ne prend pas en compte le with end with et je ne sais pas pourquoi.

Merci à tous pour votre aide.