Ajouter 00 à des valeurs de cellules
Bonjour à tous,
J'aimerais, lorsque je double clique sur une cellule de mon tableur excel, que la valeur soit remplacée par la valeur actuelle + 00
Ex: si dans ma case il y a 5896547 je veux la remplacer par 589654700
Il y a beaucoup de cases à modifier
J'ai essayé d'écrire la macro suivante mais ça ne marche pas (je suis novice, je le précise) :
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
ActiveCell.Value = Value & "00"
End Sub
Merci d'avance à tous
J'ai finalement trouvé toute seule, j'aurais du persévérer avant d'écrire ce message
Mais si qqn cherche à fair ela même chose que moi voilà comment j'ai réussi :
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
x = ActiveCell.Value
ActiveCell.Value = x & "00"
End Sub
Bonjour,
une autre approche peut être comme ceci :
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If IsNumeric(Target) Then Target = Target * 100
End Subbonne journée
@+
Bonjour,
ou bien écrire 100 dans une cellule et la copier.
Sélectionner la plage à modifier et 'collage spécial multiplication'.
eric