Bonjour,
Je viens demander de l'aide sur une petite macro. J'ai fais un petit menu déroulant qui prend une première feuille en référence mais la macro s’arrête à la colonne 22 de ma première feuille alors que j'ai 45 noms . J'ai beau regarder, je ne comprends pas d'ou vient mon erreur. Si quelqu'un à une idée, je mets mon code :

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
Sub MacroPlann()
 
' On masque les modifications effectuées a l'utilisateur (gain de temps, moins de nuisances visuelles)
Application.ScreenUpdating = False
 
PremLigne = 1
DernLigne = 32
PremColmn = 0
DernColmn = 0
 
choix = Worksheets("PlanAg").Range("K4").Value
PremColmn = 1 + 1 * choix
DernColmn = 1 + 1 * choix
Worksheets("PlanMens").Activate
Worksheets("PlanAg").Range("C6:C37").Value = Range(Cells(PremLigne, PremColmn), Cells(DernLigne, DernColmn)).Value
Worksheets("PlanAg").Activate
 
 
 
' On affiche à nouveau les modifications effectuées a l'utilisateur
Application.ScreenUpdating = True
End Sub
Voilà