Faire un calcul en vba

[Ibrahimi]

Bonjour,

j'aimerai faire une calcul en VBA ce que je veux c'est faire un *10 a une colonne c'est à dire que la colonne "D" de 1 à 1000 faire *10 mettre cette valeur dans la colonne "F"

D1*10 la réponse dans la colonne F1
D2*10 la réponse dans la colonne F1
etc

PS : je n'est jamais code c'est pour ça que je demande conseil

Merci

 

[fanfan38]

Bonjour
Ci joint ma solution avec et sans macro...
A+ François

 

[Ibrahimi]

Merci pour ta réponse aussi rapide

 

[Staple1600]

Bonsoir


Une possibilité sans formules et sans macro.
1) Sélectionner la colonne D et la copier en colonne F
Saisir 10 dans une cellule vide, la sélectionner puis faire Copier
2) Sélectionner la colonne F puis clic-droit Collage Spécial
3) Cocher Multiplication


Et voilou ;)

 

[mapomme]

Bonjour @Ibrahimi,

Pour le fun, par VBA. Le code est dans module1:

Sub fois10()
Dim t, i&
  With Sheets("Feuil1")
    .Columns("f").ClearContents
    t = .Range("d1").Resize(Cells(Rows.Count, "d").End(xlUp).Row)
    For i = 1 To UBound(t): t(i, 1) = 10 * t(i, 1): Next i
    .Range("f1").Resize(UBound(t)) = t
  End With
End Sub

 

[Staple1600]

Bonjour,

Sub PourleFunEtpourCroiserMaPomme()
Dim l&, multiplicateur
multiplicateur = InputBox("...Croissez,multipliez...", "GEN1:28", 10)
l = Cells(Rows.Count, "d").End(3).Row
Range("d1:d" & l).Cut Destination:=Range("F1")
[S1600] = multiplicateur: [S1600].Copy
Range("F1:F" & l).PasteSpecial -4104, 4
Application.CutCopyMode = False
End Sub

Edition: Bonjour job75

 

[job75]

Bonjour Ibrahimi, fanfan38, JM, mapomme,

Sub Test()
With [F1:F1000]
    .Formula = "=IF(ISNUMBER(D1),D1*10,"""")"
    .Value = .Value
End With
End Sub

A+