Entrez des valeurs VBA Fermé

Question

Bonjour, 

Je débute en VBA, mais j'ai quelques soucis. J'aimerais pouvoir entrer 12 valeurs sous Excel faisant référence à 12 trimestres de vente. Mais quand j'entre les valeurs dans la box, elles n'apparaissent pas sous Excel, comment faire ?

Merci.

Sub Previsiondesventes()

Dim ventes(12) As Double 'vecteur de ventes en trimestre, pour trois ans
Dim i As Integer

For i = 1 To 12
ventes(i) = Cells(i + 1, 3).Value
ventes(i) = InputBox("Entrez les ventes du " & i & "ème trimestre")

Next

End Sub

f894009 · Answer

Bonjour,

Sub Previsiondesventes()

Dim ventes(12) As Double 'vecteur de ventes en trimestre, pour trois ans
Dim i As Integer

For i = 1 To 2
ventes(i) = Cells(i + 1, 3).Value
'cellule a changer
Cells(i + 1, 4).Value = InputBox("Entrez les ventes du " & i & "ème trimestre")

Next
End Sub

Bonne suite

fd21 · Answer

Merci pour cette réponse, mais je n'arrive toujours pas à voir mes valeurs sous Excel.

Yoda · Answer

Bonjour,

Le tableau ventes() n'est pas utile ici.

Sub Previsiondesventes() 
Dim i As Integer
Application.ScreenUpdating = False 'annule la mise à jour de l'écran
For i = 1 To 12
Cells(i + 1, 3).Value = InputBox("Entrez les ventes du " & i & "ème trimestre")
Next
Application.ScreenUpdating = True 'rafraichit l'affichage de l'écran
End Sub

f894009 · Answer

Re,
Avec ou sans ventes(i), cela doit marcher.
A quel endroit avez-vous mis cette macro????

fd21 · Answer

Ah non excusez moi, ce n'était pas la bonne feuille qui s'affichait. J'ai bien retrouvé mes valeurs. Merci.

Entrez des valeurs VBA

5 réponses

Discussions similaires