Bonjour,

J'ai un soucis concernant une macro qui marchait sur excel 2010 mais ne marche plus sous 2013. Je l'utilise pour afficher ou non des colonnes parmi 30 en fonction de la valeur que prend la quatrième cellule de la colonne. La macro est la suivante :

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
Sub ModifmoyensdemaitriseASS()

Set mycell = ActiveCell

ActiveCell.Select
Selection.Copy
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues


For col = 6 To 36
If Cells(4, col) <> "Autres (Modifier BDD)" Then Columns(col).Hidden = False
Next

For col = 6 To 36
If Cells(4, col) = "Autres (Modifier BDD)" Then Columns(col).Hidden = True
Next


End Sub

La première partie fonctionne sans souci, c'est la partie en jaune qui est remise en cause par le débogage. Ainsi que l'équivalent dans la dernière partie.

Je ne m'explique pas le dysfonctionnement, si vous pouvez éclairer ma lanterne

Merci d'avance !