Problème prise en compte with / end with

Version imprimable

Bonjour à tous,

J’ai un petit problème sur mon code suivant :
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 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 :

Citation:

=INDEX(Feuil2!A3: P29;EQUIV(Feuil1!B7;Feuil2!A3:A29;0);3)

Mais il me renvoi la formule suivante :

Citation:

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

22/07/2015, 11h01
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 !
22/07/2015, 11h12
Ardiden31

Le préciser à quel moment ? Je pensais que With End With suffirait...
22/07/2015, 11h20
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.

voila la modification :

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

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:

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