erreur 13 vba

Version imprimable

erreur 13 vba

bonjour

je sus novice en vba, je suis entrain de faire une macro pour automatiser des calculs mais j'ai l'erreur d'incompatibilité

le code est le suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Subsolartime1()
Set myrange= Range("Feuil1!B:J")
Dim i, j As Integer
Dim v As Variant
i = 5
 
 v = "= c[-1]"
 ActiveCell.FormulaR1C1 = v +Application.WorksheetFunction.VLookup(i, myrange, 5, 0) / 60
Selection.AutoFillDestination:=ActiveCell.Range("A1:A25")
 ActiveCell.Range("A1:A25").Select
 ActiveWindow.SmallScroll Down:=21
 activeCell.Offset(29,0).Range("A1").Select
 ActiveWindow.SmallScroll Down:=-27
End Sub

07/05/2018, 16h24
Pierre Fauconnier

Salut.

L'opérateur de concaténation (collage de chaines de caractères) est le signe & et pas le signe + en VBA

Code:

ActiveCell.FormulaR1C1 = v & Application.WorksheetFunction.VLookup(i, myrange, 5, 0) / 60
07/05/2018, 22h24
unparia

Bonjour
Si une correspondance est trouvée, ceci :

Code:

Application.WorksheetFunction.VLookup(i, myrange, 5, 0) / 60

retournera un nombre (disons par exemple 1.3245)
et donc :
puisque

Code:

v = "= c[-1]"

FormulaR1C1 sera v & 1.3245, ce qui donne "= c[-1]1.3245"
Euh ... :coucou:
08/05/2018, 05h44
Pierre Fauconnier

Bonjour Jacques,

Citation:

Envoyé par unparia

[...]

Code:

Application.WorksheetFunction.VLookup(i, myrange, 5, 0) / 60

retournera un nombre (disons par exemple 1.3245)[...]

ou... une erreur 13 "incompatibilité de type" si VLookup renvoie du texte, par exemple, et c'est cette erreur qui est spécifiée dans le message initial du demandeur... ;)

Citation:

Envoyé par unparia

[...]
FormulaR1C1 sera v & 1.3245, ce qui donne "= c[-1]1.3245"

Là, je te rejoins à moitié, car le résultat pourrait être un nombre entier et je perçois donc l'intention initiale (reconstituer une adresse R1C1), mais effectivement, la formule serait de toute façon caduque.

@Aresassociated

Il serait intéressant que tu nous dises en français (pas en pseudo vba ;) ) ce que tu souhaites obtenir, car je pense que la méthode pourrait être plus simple que celle employée.

Et puisque tu débute en VBA, n'hésite pas à passer par des variables intermédiaires pour pouvoir facilement vérifier si ton code renvoie le résultat attendu. Par exemple, placer le résultat du VLookup dans une variable te permettra de voir si ton résultat est bien un nombre divisible par 60.
08/05/2018, 07h17
unparia

Bonjour Pierre
Peut-être (je me suis laissé avoir par ton premier message, relatif à l'utilisation de l'opérateur & de concaténation) , mais alors, dans ce cas :
- seule la variable v ( "= c[-1]" ) spécifie l'adresse
- c'est bien l'opérateur + d'addition et non l'opérateur "&" de concaténation (sinon, la formule n'aurait aucun sens)
- le résultat retourné par vlookup (entier ou décimal) serait toujours bon (si numérique)

Mais l'incompatibilité de type dénoncée a en effet probablement pour cause le fait que vlookup tente d'utiliser une cellule ne contenant pas un numérique
08/05/2018, 07h23
Pierre Fauconnier

Citation:

Envoyé par unparia

[...]
- c'est bien l'opérateur + d'addition et non l'opérateur "&" de concaténation (sinon, la formule n'aurait aucun sens)[...]

Non, pas dans le code suivant en tout cas

Code:

ActiveCell.FormulaR1C1 = v +Application.WorksheetFunction.VLookup(i, myrange, 5, 0) / 60

L'opérateur + est erroné, puisque v est du texte.

L'adresse spécifiée dans v est assez étrangement exprimée puisqu'elle exprimer une colonne entière. Ca veut dire que l'on prend la valeur qui se trouve dans la cellule de gauche.

Bref, sans explications plus détaillées du demandeur sur ce qu'il cherche à réaliser, je ne perds pas mon temps en vaines palabres et supputations ;)
08/05/2018, 07h31
unparia

Cet opérateur + (car je pense qu'une opération est bel et bien demandée) devrait être présent dans une sous-chaîne encadrée de guillemets, dans la chaîne de caractères qu'est une formule
08/05/2018, 07h47
Pierre Fauconnier

Vu comme cela, je suis d'accord avec toi ;), et je comprendrais alors mieux la formule qui est recréée. Resterait alors le problème du VLookup car il me semblerait plus intéressant de l'inclure dans la formule et d'éviter la boucle

Code:

.formular1c1 = "=c[-1]+vlookup(" & i & ",Feuil1!c2:c10,5,0)/60)"

Mais avec ces adaptations, le code n'est pas nickel. Il faudrait éviter les activecell, les smallscroll en casdade...

Bref, j'en reviens à ce que je disais: je préfère attendre le complément d'info du demandeur ;)
08/05/2018, 08h51
unparia
Ceci marche (attention : tant la cellule active que celle de destination doivent être en format numérique).
Code:

1 2 3 4 Dim toto As Integer toto = 10 ActiveCell.FormulaR1C1 = "= c[-1] + " & toto
Le + doit se trouver dans la chaîne, pas la variable.
08/05/2018, 10h12
aresassociated

erreur vba 13

dans mon code vlookup et v sont des nombres et donc je ne comprends pas la raison de l'erreur. S'il vous plait est ce que quelqu'un pourrait maider
08/05/2018, 10h16
Pierre Fauconnier

Dans ton code, v n'est pas un nombre, mais une chaîne (censée représenter une formule).

Dis-nous ce que tu souhaites réaliser en français, pas en donnant du code qui ne fonctionne pas.

Que cherches-tu à réaliser avec ton code?
08/05/2018, 13h55
unparia
Pardonnez moi d'être encore présent, mais cette discussion présente plusieurs aspects :
1) l'incompatibilité de type dénoncée :
Elle est probablement due (comme le signale à juste titre Pierre Fauconnier, à la présence d'une valeur non numérique en colonne de gauche)
2) La construction de la formule.
Une formule n'est jamais qu'une chaîne de caractères et DOIT n'être traitée QUE comme telle :
En respectant ce principe fondamental :
- l'opérateur "+" (s'il s'agit d'une addition) DOIT être dans une chaîne de caractères
- le résultat de WorksheetFunction.Vlookup est par contre un numérique et non une chaîne de caractères. Si, dans sa (trop) grande tolérance, CVA/Excel transforme spontanément en chaîne de caractères un numérique entier, il n'en va pas de même en ce qui concerne un décimal. Il convient donc de rester RIGOUREUX et de transposer systématiquement ce résultat en chaîne de caractères (puisqu'il sera une partie d'une chaîne de caractères). Et ceci (ce dernier aspect) : quelle que soit la finalité de la formule.

Ainsi (exemple où il s'agirait bien d'une opération à effectuer) :
Code:

1 2 3 4 5 6 Dim myrange As Range Set myrange = Range("Feuil1!B:J") Dim i As Integer, j As Integer Dim v As String Set myrange = Range("Feuil1!B:J") i = 5
et : soit (si l'on veut utiliser la variable tremplin v :
Code:

1 2 v = "= c[-1]" ......FormulaR1C1 = v & " + " & Str(Application.WorksheetFunction.VLookup(i, myrange, 5, 0) / 60)
Soit, si l'on veut écrire directement :

Code:

......FormulaR1C1 = "= c[-1] + " & Str(Application.WorksheetFunction.VLookup(i, myrange, 5, 0) / 60)

3) L'étrangeté du choix ainsi fait :
Une telle formule n'en est pas une à part entière, dans la mesure où l'une de ses deux parties n'est pas elle-même une expression Excel, mais le résultat d'une fonction.
Pour être plus clair : une fois appliquée, son résultat ne varierait pas si l'on modifiait les valeurs utilisées..
Sur ce -->> A la pêche (c'est l'heure).