changer le code vba

[djuju]

bonjour
je voudrais change le code vba pour que les 5 cellules(a1;a2;a3;a4;a5) qui sont des listes deroulante grossisse quand on se met dessus
voci le code qui est que pour la cellule a1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ActiveWindow.Zoom = IIf(Target.Address = "$A$1", 150, 50)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" Then ActiveWindow.Zoom = 50
[A2].Select
End Sub

merci de votre aide

 

[gilbert_RGI]

Re : changer le code vba

bonjour

ceci correspond peut-être à la demande

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 On Error Resume Next
If Target.Column > 1 Then ActiveWindow.Zoom = 50: Exit Sub
 ActiveWindow.Zoom = IIf(Target.Row < 6, 150, 50)
 End Sub
 Private Sub Worksheet_Change(ByVal Target As Range)
 On Error Resume Next
If Target.Column > 1 Then Exit Sub
 If Target.Row > 6 Then ActiveWindow.Zoom = 50
 [A6].Select
 End Sub

 

[djuju]

Re : changer le code vba

merci
pourrais tu m'expliquer le changement au cas ou je change de place les cellules
merci

 

[gilbert_RGI]

Re : changer le code vba

en fait il faut faire le traitement sur les lignes et colonnes indiquées et non sur l'adresse