Un petit coup de pouce

bonjour

j'ai une macro qui fonctionnait bien (celle qui se trouve derriere les '). Je veux la modifier (c'est pour cela que je l'ai mise derriere les ' ). Je n' ai besoin que de une colonne et je n'arrive pas à modifier le code

Message d'erreur incompatibilité de type.

1er cela veut dire quoi et 2iement pouvez-vous modifier ma macro pour que je vois ce que cela donne

Merci :

https://www.excel-pratique.com/~files/doc2/essai_macro.xls

Bonsoir,

Voici une solution :

Sub haussedeprix()
    Dim coefprix As Single
    coefprix = Application.InputBox("quel est le coef d'augmentation souhaité", "Hausse des prix", Type:=1)

    If coefprix = False Then Exit Sub

    Application.ScreenUpdating = False

    Dim PVHT As Double
    Dim I As Integer
    For I = 1 To 10
        Range("A" & I).Value = Range("A" & I).Value * coefprix
    Next I

    Application.ScreenUpdating = True
End Sub

Bonsoir,

Sub haussedeprix()
Dim coefprix As String, Cel
coefprix = Application.InputBox("quel est le coef d'augmentation souhaité", "Hausse des prix", Type:=1)

If coefprix = False Then Exit Sub
    For Each Cel In Range("A1:A10")
        Cel.Offset(0, 1) = Cel * coefprix
    Next Cel
End Sub

J'ai mis un Offset(0,1) pour que tu puisse tester, retire-le après essai

Claude.

re,

si ta liste est + longue,

Sub haussedeprix()
Dim coefprix As String, Lg&, Cel
Lg = [A65536].End(xlUp).Row
    coefprix = Application.InputBox("quel est le coef d'augmentation souhaité", "Hausse des prix", Type:=1)
        If coefprix = False Then Exit Sub
    For Each Cel In Range("A1:A" & Lg)
        Cel.Offset(0, 1) = Cel * coefprix
    Next Cel
End Sub

salut readi,

Claude.

Encore un grand merci.

J'espere un jour reussir à faire de vrai macro

Encore merci