XL 2021 boucle: cellules et shapes

chindou · Jeudi à 17:51

Bonsoir le forum
J'utilise le code ci-dessous pour afficher ou masquer une forme selon la valeur de la cellule correspondante (Les cellules sont dans la même colonne mais pas contiguës). Le code fonctionne bien seulement je souhaite éviter ce code répétitif et faire une boucle. Est ce possible?
Merci d'avance pour votre aides
Cordialement

VB:

If UCase(Range("M10").Value) = "" Then
        Shapes.Range(Array("__4")).Visible = msoFalse
    Else
        Shapes.Range(Array("__4")).Visible = msoTrue
    End If
    
    If UCase(Range("M12").Value) = "" Then
        Shapes.Range(Array("__5")).Visible = msoFalse
    Else
        Shapes.Range(Array("__5")).Visible = msoTrue
    End If
    
    If UCase(Range("M14").Value) = "" Then
        Shapes.Range(Array("__6")).Visible = msoFalse
    Else
        Shapes.Range(Array("__6")).Visible = msoTrue
    End If
    
        
    If UCase(Range("M16").Value) = "" Then
        Shapes.Range(Array("__7")).Visible = msoFalse
    Else
        Shapes.Range(Array("__7")).Visible = msoTrue
    End If
    
    If UCase(Range("M18").Value) = "" Then
        Shapes.Range(Array("__8")).Visible = msoFalse
    Else
        Shapes.Range(Array("__8")).Visible = msoTrue
    End If
    
    If UCase(Range("M20").Value) = "" Then
        Shapes.Range(Array("__9")).Visible = msoFalse
    Else
        Shapes.Range(Array("__9")).Visible = msoTrue
    End If

vgendron · Jeudi à 18:23

ensuite pour la boucle
en supposant que les cellules sont bien toutes les deux lignes M10-12-14-16-18...
et que les shapes sont numérotées __4 5 6 7 8 9..

Code:

for i=4 to 9
 Shapes.Range(Array("__"&i)).Visible = not(UCase(Range("M" &i*2+2).Value) = "")
next i

vgendron · Jeudi à 18:18

bonjour

déjà tu peux remplacer

VB:

If UCase(Range("M10").Value) = "" Then
        Shapes.Range(Array("__4")).Visible = msoFalse
    Else
        Shapes.Range(Array("__4")).Visible = msoTrue
    End If

par

Code:

Shapes.Range(Array("__4")).Visible = not(UCase(Range("M10").Value) = "")

vgendron · Jeudi à 18:23

ensuite pour la boucle
en supposant que les cellules sont bien toutes les deux lignes M10-12-14-16-18...
et que les shapes sont numérotées __4 5 6 7 8 9..

Code:

for i=4 to 9
 Shapes.Range(Array("__"&i)).Visible = not(UCase(Range("M" &i*2+2).Value) = "")
next i

chindou · Jeudi à 18:51

Bonsoir vgendron
Merci bien pour cette rapide réponse, ça marche impeccable.
Bonne soirée

XL 2021 boucle: cellules et shapes

chindou

XLDnaute Occasionnel

vgendron

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

chindou

XLDnaute Occasionnel

Discussions similaires