Discussion :

[camille75015]

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 :

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
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

[BENNASR]

bonjour
tester

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
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

[mfoxy]

Re,

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

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
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

[camille75015]

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

[BENNASR]

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