Multiplication des valeurs d'une colonne par 1000
Bonjour a tous.
Je cherche le moyen de sélectionner une colonne et multiplier les valeurs par 1000. j'aimerai utiliser une boite de dialogue pour la selection de la colonne. L'idée serait:
1_ un bouton d'appel boite de dialogue genre Apllication.InputBox "choix de la colonne"
2_ Sélectionner la colonne sur la feuille en cliquant sur la lettre
3_ récupération de la sélection dans l'inputbox et multiplication des valeurs par 1000
Ou Avec une listbox en ayant le choix pour convertir des M3/h en L/h..
Si vous avez des idées vous me sortez de la galère car ça fait 3 jours que je cherche..
Merci d'avance.
Bonjour,
à tester, ps/ j'ai ajouté la gestion d'erreur...
Sub Mutiplier_1000()
Dim temp As Worksheet, tempRange As Range, ref As Object
Set sh = ActiveSheet
On Error Resume Next
Set ref = Application.InputBox(prompt:="Sélectionner la plage de cellules à multiplier par 1000", Type:=8)
If Err.Number <> 0 Then Exit Sub
Application.ScreenUpdating = False
Set tempA1 = Sheets.Add
Set tempRange = tempA1.Cells(1, 1)
tempRange = 1000
sh.Activate
Application.ScreenUpdating = True
tempRange.Copy
Range(ref.Address).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply
Application.DisplayAlerts = False
tempA1.Delete
Set tempA1 = Nothing
End SubMerci Gmb c'est toujours aussi efficace... t'es un genie!
Merci sabv je testerai ton code aussi
je me desespere quand je lis tes codes Gmb, comment ca parait simple et comment mon petit cerveau est incapable d'imaginer ca
Encore un grand merci