Discussion :

[Fackem]

Bonjour,

Apres moultes recheres, je refais appelle à vous

Mon pb :
Je veux affecter à une cellule, une formule qui a pour entrée la case d'à coté... pour chaque ligne l... c'est sur ce dernier point que cela bug...

Le code reprenant juste l'interessant (Tout est declaré (Sh2, Sh1...) :

Code :

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

1
2
3
4
5
6
For j = 7 To LetzteLinie
With Sh1
.Range(.Cells(j, 4), .Cells(j, 4)).Copy Sh2.Range(Sh2.Cells(l, 3), Sh2.Cells(l, 3))
Sh2.Cells(l, 2).FormulaR1C1 = "=TEXT("Cells(l, 3)",""ttt"")"
End With
Next

j'ai aussi testé, sans resultat....

Code :

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

Sh2.Cells(l, 2).FormulaR1C1 = "=TEXT(C"l"),""ttt"")"

Thks

[Paenitentia]

Est-ce que tu peux essayer ce code ?

Code :

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

1
2
 
Sh2.Cells(l, 2).FormulaR1C1 = "=TEXT(" & Cells(l, 3).Value & ",""ttt"")"

Tu vas bien récupérer la valeur de ta cellule.

[Fackem]

Je reviens sur ce que j'ai dit, ca ne marche po ./
J'obiens dans mes cellules du
=TEXT(;"ttt")

Je regarde aussi ca. ca doit etre avec le with qu'il n'aime pas

Code :

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

1
2
3
4
5
6
7
8
 
For j = 7 To LetzteLinie
    With Sh1                    
                    .Range(.Cells(j, 4), .Cells(j, 4)).Copy Sh2.Range(Sh2.Cells(l, 3), Sh2.Cells(l, 3))
                    Sh2.Cells(l, 2).FormulaR1C1 = "=TEXT(" & Cells(l, 3).Value & ",""ttt"")"
                    .Range(.Cells(j, 15), .Cells(j, 15)).Copy Sh2.Range(Sh2.Cells(l, 4), Sh2.Cells(l, 4))
    End With
Next

J'ai essayé de lui donner un adressage plus complet de mon entrée variable mais sans succes

Code :

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

Sh2.Cells(l, 2).FormulaR1C1 = "=TEXT(" & Sh2.Cells(l, 3).Value & ",""ttt"")"

[Philippe Tulliez]

Bonjour,

Mon pb :
Je veux affecter à une cellule, une formule qui a pour entrée la case d'à coté... pour chaque ligne l... c'est sur ce dernier point que cela bug...

Tu écris que cela bug mais encore ?
N'ayant pas de boule de cristal, nous indiquer le N° et message d'erreur et à quelle ligne cela se passe ne serait pas du luxe.

[Fackem]

1004

erreur de definition d'objet ou d'application

[mercatog]

Code :

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

Sh2.Cells(l, 2).FormulaR1C1 = "=TEXT(RC[1],""mmm"")"

[Fackem]

Merci, ca marche.
Cependant, puis je avoir une explication, comprendre m'interesse plus ^^

[mercatog]

Tu utilises FormulaR1C1 qui prend en compte les adresses relatives

RC[1] veut dire la cellule sur la même ligne R et une colonne à droite par rapport à la cellule de référence (pour ton cas Sh2.Cells(l,2))

plus généralement R[x]C[y] correspond à la cellule décalée de x lignes et de y colonnes relativement à une cellule de référence.

x et y appartiennent à Z

Quand ils sont >0 décalage en bas et vers la droite
sinon décalage vers le haut et vers la gauche

[Fackem]

thks tout devient clqir !