Combiner 2 macros

Version imprimable

Combiner 2 macros

Bonjour
Je suis toute nouvelle sur le forum et sur vba, j'ai ces 2 macros qui fonctionnent très bien mais j'aimerais que ce soit sur le même module sans avoir 2 macros et donc à cliquer pour lancer la macro deux fois..
Comment faire svp?
Je suis hyper novice sur VBA..
Merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Bascule()
    Application.ScreenUpdating = False
    'F38=Cellule contenant la valeur à permuter lors du clic sur le bouton
    If Range("F38").Value = 3.2 Then
        Range("F38").Value = 2.5
    Else
        Range("F38").Value = 3.2
        Next
 
    End If
End Sub
 
Sub Bascule2()
    Application.ScreenUpdating = False
    'G38=Cellule contenant la valeur à permuter lors du clic sur le bouton
    If Range("G38").Value = 3.6 Then
        Range("G38").Value = 2.7
    Else
        Range("G38").Value = 3.6
    End If
End Sub

bonjour
tester

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Bascule()
Application.ScreenUpdating = False
'F38=Cellule contenant la valeur à permuter lors du clic sur le bouton
If Range("F38").Value = 3.2 Then
Range("F38").Value = 2.5
Else
Range("F38").Value = 3.2
 
End If
If Range("G38").Value = 3.6 Then
Range("G38").Value = 2.7
Else
Range("G38").Value = 3.6
End If
Application.ScreenUpdating = true
End Sub

Re,

Et en reprenant les codes couleurs comme demandé dans le post précédant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
Sub Camille()
 
Dim reponse As Variant
Dim shName As String:   shName = "Sheet1"    'A modifier par le nom de la feuille
Dim rngCible As String: rngCible = "F38"     'A modifier par la cellule de destination 1
Dim rngCible2 As String: rngCible2 = "G38"   'A modifier par la cellule de destination 2
 
 With ThisWorkbook.Worksheets(shName)
  With .Range(rngCible)
   reponse = IIf(.Value = 3.2, Array(2.5, vbRed), Array(3.2, vbBlack))
   .Value = reponse(0)
   .Font.Color = reponse(1)
  End With
 
  With .Range(rngCible2)
   reponse = IIf(.Value = 3.6, Array(2.7, vbRed), Array(3.6, vbBlack))
   .Value = reponse(0)
   .Font.Color = reponse(1)
  End With
 
 End With
 
End Sub

09/10/2020, 10h47
camille75015

Vous êtes tous incroyables!! merci infiniment! je sais pas comment vous remercier
09/10/2020, 10h49
BENNASR

Citation:

Vous êtes tous incroyables!! merci infiniment! je sais pas comment vous remercier

c'est déjà fait avec ce beau message
Merci de cliquer sur RESOLU en bas si c'est déja résolu
Bonne Continuation