Discussion :

[chouchouboy]

Bonjour,
Voici mon code :

Code :

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

1
2
3
4
5
6
7
Sub changement_formule_honoraires()
If ActiveCell.Offset(0, -1) = 4 Then
        ActiveCell.FormulaR1C1 = "=RC[-6]*(1+RC[+3])"
ElseIf ActiveCell.Offset(0, -1) > 4 Then
        ActiveCell.Offset(0, 4).Copy ActiveCell.Offset(0, 0)
End If
End Sub

Comment avec cette structure de copier/coller, on peut ne coller que les valeurs et non la formule complète ?

Merci

[rvtoulon]

Salut,
a la place de :

Code :

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

ActiveCell.Offset(0, 4).Copy ActiveCell.Offset(0, 0)

essaye :

Code :

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

ActiveCell.Offset(0, 0).value = ActiveCell.Offset(0, 4).Value

ici tu donnes à la cellule de destination la valeur de la cellule source.

[chouchouboy]

merci pour votre réponse, mais ça ne fonctionne pas...!

[rvtoulon]

Slt,
si j'ai compris tu veux copier le résultat d'une formule dans une autre cellule et pas la formule complète. Le code que je t'ai donné fait cela.

Peux-tu dire ce qui ne fonctionne Pas ? Est-ce qu'il ne copie rien? si oui t'a condition est-elle remplie? comme tu utilise les Offset, les données à copier sont-elles dans la bonne cellule.
d'ailleurs au lieu de :

Code :

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

ActiveCell.Offset(0, 0).value = ActiveCell.Offset(0, 4).Value

tu peux directement mettre :

Code :

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

ActiveCell.value = ActiveCell.Offset(0, 4).Value