Entrez des valeurs VBA
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
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
5 réponses
-
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 -
Merci pour cette réponse, mais je n'arrive toujours pas à voir mes valeurs sous Excel.
-
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 -
Re,
Avec ou sans ventes(i), cela doit marcher.
A quel endroit avez-vous mis cette macro???? -
Ah non excusez moi, ce n'était pas la bonne feuille qui s'affichait. J'ai bien retrouvé mes valeurs. Merci.
