Boucle sur rectangle

Bonjour, j'essai de faire une boucle pour masquer et demasquer les rectangle allant de "12 à 24" de ma feuille "PREVISION" en cliquant sur le rectangle 1. Merci

bonjour

essayer ca :

Sub test()
Dim r As Integer, rec
For r = 12 To 24
Set rec = Worksheets("Feuil1").Shapes("Rectangle " & r)
If rec.Width = 1 And rec.Height = 1 Then '0 = 0.1249606
rec.Width = 100: rec.Height = 100
Else
rec.Width = 1: rec.Height = 1
End If
Next
End Sub
Sub test2()
Dim r As Integer, rec
For r = 12 To 24
Set rec = Worksheets("Feuil1").Shapes("Rectangle " & r)
If rec.Visible = True Then
rec.Visible = False
Else
rec.Visible = True
End If
Next
End Sub

Merci AMIR, j'ai testé ta macro "Test2" mais ça me fait le même problème qu'avec ma macro, quand le rectangle 12 se démasque les forme 13 à 24 se masquent et inversement.


J'ai réussis en modifiant legerement le code:

Sub PREVISION_Rectangle1_Cliquer()
If Worksheets("PREVISION").Shapes("Rectangle 12").Visible = True Then
Range("AH4").Value = 1
Else: Range("AH4").Value = 0
End If
Dim r As Integer, rec
For r = 12 To 23
Set rec = Worksheets("PREVISION").Shapes("Rectangle " & r)
If Range("AH4").Value = 1 Then
rec.Visible = False
Else
rec.Visible = True
End If
Next
End Sub
Rechercher des sujets similaires à "boucle rectangle"