Discussion :

[kstorfou]

J'ai ces lignes de codes qui me posent problème et je ne comprends pas pourquoi, quelqu'un pourrait-il m'éclairer ?

Code :

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

1
2
3
4
5
6
7
8
9
Dim poids As Long
Dim nbcom,a As Integer
With Sheets("Feuil1")
a = .Range("A23").End(xlToRight).Column '=4
nbcom = .Range("A3").End(xlDown).Row - 2 ' =6
poids = .Cells(j, c.Column).Value ' =0,3577
.Cells(24, a + nbcom + 1).Formula = "=RC[-" & nbcom + 1 & "] *" & poids 'nbcom = 6 ; poids = 0,3577 : a = 4
 
End With

Le problème intervient quand j'ajoute à la formule & poids
l'expression

Code :

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

.Cells(24, a + nbcom + 1).Formula = "=RC[-" & nbcom + 1 & "]"

seule ne pose pas de problème
J'obtiens le message d'erreur "Erreur définie par l'application ou par l'objet"

Je ne comprends pas pourquoi, ce n'est pas la première fois que j'utilise ce genre de syntaxe et d'habitude pas de problème.

J'ai essayé de remplacé poids par Replace(Cstr(poids),",",".") mais ca ne marche pas non plus

Quelqu'un a une idée ?

Merci bien !

[kstorfou]

Bon ben je viens de trouver une 'parade':

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
 
Dim poids As Long
Dim nbcom,a As Integer
Dim formule As String
 
With Sheets("Feuil1")
 
a = .Range("A23").End(xlToRight).Column '=4
nbcom = .Range("A3").End(xlDown).Row - 2 ' =6
poids = .Cells(j, c.Column).Value ' =0,3577
poids_str = Replace(CStr(poids), ",", ".")
formule = "=RC[-" & nbcom + 1 & "]*" & poids_str
 
.Cells(24, a + nbcom + 1).FormulaR1C1 = formule
 
End With

Je ne comprends pas pourquoi cela marche mieux que précédemment, donc si quelqu'un peut m'expliquer ca me soulagerait de l'heure que je viens de passer à chercher une solution.

Merci bien

[LeForestier]

Bonjour,
Ta formule doit être du genre...

Code :

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

.Cells(24, a + nbcom + 1).FormulaR1C1 = "=R[0]C[-" & nbcom + 1 & "]"

Dans ta solution tu oublie de déterminer l'offset de la ligne (rows)
A+

[kstorfou]

Merci de ta réponse mais cela ne marche pas mieux

De plus j'ai eu un problème par la suite, si je ne selectionne pas la cellule avant de lui rentrer la formule, et bien il fait l'offset à partir de la dernière colonne (n°256) de la feuille...

Bref maintenant mon code fonctionne même si le .select fait un peu tache et que je ne comprends pas pourquoi il marche mieux que ce que j'avais mis avant.

Allé je v mettre un ch'ti 'résolu'