XL 2013 Ne sélection pas le bon onglet (résolu)

Cougar

XLDnaute Occasionnel
Bonjour le forum,

Voici mon problème. Dans l'onglet Vac 2019-2020, lorsque je change le contenu du cellule (k6:BK300), un code roule et il doit mettre les cellules de l'onglet Résumé_vacances en rouge si le contenu des cellules est plus grand que 2. Le problème qu'il ne change pas d'onglet.

Comment corriger le problème ?

Voir fichier joint.

Merci
 

Fichiers joints

CHALET53

XLDnaute Barbatruc
Bonjour,

Essaie de remplacer le code de la macro2 par celui-ci :

Private Sub Macro2()
Dim cell As Range
Dim plage As Range

'Application.ScreenUpdating = False
Worksheets("Vac 2019_2020").Activate
Range("k6:BK300").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

With Sheets("Résumé_vacances")
Set plage = .Range("c4:Bc300")
For Each cell In plage 'Range("c4:Bc300")
If cell.Value >= 2 Then

cell.Interior.Color = rgbRed
cell.Font.Bold = True
Else
cell.Interior.ColorIndex = 0
cell.Font.Bold = False
End If
Next cell
End With
Worksheets("Vac 2019_2020").Activate
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub


a+
 

Haut Bas