Discussion :

[Ardiden31]

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.

[Quentin77170]

Salut à toi, je pense qu'il te faut spécifier le nom de la feuille car .Address te donne juste l'adresse locale à l'intérieur de la feuille...
Désolé pas le temps de l'écrire !

[Ardiden31]

Le préciser à quel moment ? Je pensais que With End With suffirait...

[amnorian]

tu utilise des formules excel donc les with ne fonctionne pas.
Tu dois
soit utiliser les formules vba (application.worksheetfunction)
soit inscrire le nom de la feuille dans la formule
soit mettre des guillemets pour integrer les variables.

[Ardiden31]

voila la modification :

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
Sub estimé()
 
 Dim colonne As Integer
 Dim ligne As Integer
 Dim Sheet2 As Worksheet
 Set Sheet2 = Feuil2
 
 
    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
 
 
 
 
For i = colonne To 18
 
    Cells(ligne, i).Formula = _
        "=INDEX('" & Sheet2 & "'!" & Cells(3, 1) & ":" & Cells(29, 16) & _
        ",MATCH(" & Cells(7, 2) & ",'" & Sheet2 & "'!" & Cells(3, 1) & ":" & Cells(29, 1) & ",0),3)"
 
 
Next i
Set Sheet2 = Nothing
 
 
End Sub

J'ai une erreur d'exécution 438 : Propriété ou méthode non gérée par cet objet.

[Quentin77170]

Utilise la propriété .Name de la Sheet2, sinon le code ne sait pas quoi écrire sinon...

De plus, il te manque l'adresse des cells dans ta formule... Si tu utilises une worksheetfunction, VBA accepte les objets, mais là tu écris une formule dans une cellule, donc une string.. Il n'accepte pas les objets, mais leur adresse ou leur nom (donc sous forme de texte également, d'où la nécessité d'utiliser les propriétés .Address et .Name)

Si tu veux que cela fonctionne, écris ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Cells(ligne, i).Formula = _
        "=INDEX('" & sheet2.Name & "'!" & Cells(3, 1).Address & ":" & Cells(29, 16).Address & _
        ",MATCH(" & Cells(7, 2).Address & ",'" & sheet2.Name & "'!" & Cells(3, 1).Address & ":" & Cells(29, 1).Address & ",0),3)"

Chez moi ça marche

Quentin