Discussion :

[boxtom]

Bonjour,

Me mettant peu à peu au VBA, j'ai un souci pour concevoir une macro qui me permettrait de recalculer une plage de cellules sélectionnées avec un coefficient choisi parmi plusieurs au travers d'une combo box..

Mon code commence ainsi et ne fait par pour le moment appel à une combo box. Pour le moment c'est l'utilisateur qui l'inscrit (source d'erreur).. :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub NouvellesTranches()
Dim Plage1 As Range
Dim ofstLig As Long
Dim ofstCol As Integer
On Error Resume Next
Set Plage1 = Application.InputBox("Sélectionnez la plage de cellules", "Plage1", Type:=8)
On Error GoTo 0
If Not Plage1 Is Nothing Then
    On Error Resume Next
Dim Cellule As Range
Dim Coef As Variant
Coef = Val(InputBox("Entrez le coefficient"))
For Each Cellule In Selection
With Cellule
If .Value <> "" Then Cellule.Value = Cellule.Value / Coef
End With
Next Cellule
End If
End Sub

Un grand grand merci d'avance.

[fring]

Bonjour,

Essaie comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub NouvellesTranches()
Dim Plage1 As Range
Dim ofstLig As Long
Dim ofstCol As Integer
Dim Cellule As Range
Dim Coef As Variant
 
On Error Resume Next
Set Plage1 = Application.InputBox("Sélectionnez la plage de cellules", "Plage1", Type:=8)
On Error GoTo 0
 
If Not Plage1 Is Nothing Then
    Coef = Val(InputBox("Entrez le coefficient"))
    For Each Cellule In Plage1
        If Cellule.Value <> "" Then Cellule.Value = Cellule.Value / Coef
    Next Cellule
End If
End Sub