Collage de Valeur avec division
Bonjour,
Je souhaiterais créer une macro qui permettrait de coller, dans la cellule active, le montant préalablement copié (Avant le lancement de la macro) que l'on va diviser par - 1 000 000.
en résumé, dans la cellule je devrais avoir: =(Montant collé) / (- 1 000 000)
Si cela peut vous aider pour le faire sans macro je tape -1000000 dans une cellule et j'utilise le collage spécial avec formule et division
Merci beaucoup pour votre contribution
Rapha
Bonjour et bienvenue
Essaye :
ActiveCell = ActiveCell / -1000000Amicalement
Nad
Sil je suis ton idée, cela donne:
Sub Collage()
'
' Collage Macro
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ActiveCell"/(-1000000)"
End Sub
le problème c'est qu'il ne le prend pas en charge
En gros j'ai ca qui fonction avec A1 qui est la cellule avec la valeur -1000000
Sub Collage_Spe1()
'
' Collage_Spe1 Macro
'
'
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Range("B3").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlDivide, SkipBlanks _
:=False, Transpose:=False
End Sub
Le problème c'est que si je change de cellule, le résultat ne sera pas mis dans la cellule active du début, il ira automatiquement en B3
Re
Tu veux faire la division sur toutes les cellules de la feuille ?
Ça donne ceci :
Sub Collage()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c > 0 Then
c = c / -1000000
End If
Next c
End SubNad
Re
Je viens de lire ce que tu viens d'ajouter.
Je pense que tu devrais utiliser ce code (à mettre dans la feuille concernée)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell = ActiveCell / -1000000
ActiveCell.Offset(0, 1).Select
End SubTu fais un double-click dans la cellule ==> Elle est divisée par -1 000 000
Nad
Je viens d'essayer, c'est exactement ce que je voulais!!!!
Je te remercie!!!!
Amicalement
Rapha