Entrez des valeurs VBA
fd21
-
fd21 -
fd21 -
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
A voir également:
- Entrez des valeurs VBA
- Entrez les informations d'identification réseau - Guide
- Excel compter cellule couleur sans vba - Guide
- Excel liste de valeurs - Guide
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
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
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
Bonjour,
Le tableau ventes() n'est pas utile ici.
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question