petit soucis a regler

  • Initiateur de la discussion Initiateur de la discussion nono
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

nono

XLDnaute Nouveau
bonjour a tous,
j ai un leger soucis dans mon classeur et je ne vois pas ou est le probleme.
j ai fais une macro pour que les ovals dans ma feuilles 3 changent de couleurs en fonction du numero de ma cellule L dans la feuille 1.

cependant je veux que :

- l oval 1 (feuille3) corresponde a ma cellule L3 (feuille1)
- l oval 2 corresponde a ma cellule L4
- l oval 3 a ma cellule L5
.................et ainsi de suite ..................................
- l oval 45 a ma cellule L 47
 

Pièces jointes

Re : petit soucis a regler

bonjour

code modifié

Code:
Sub NoNo()
    Dim i&, a%
    With ActiveSheet
        For i = 1 To 46
            Select Case Sheet1.[L1].Offset(i + 1).Value
                Case Is <= 1: a = 3
                Case 2 To 30: a = 30
                Case 31 To 60: a = 5
                Case 61 To 90: a = 53
                Case Is > 90: a = 2
            End Select
            With .Shapes(i).Fill
                .ForeColor.SchemeColor = a
                .Visible = (a <> 0)
            End With
        Next
    End With
End Sub

tu avais plusieurs fois des valeurs ambigues dans ton code, par ex pour la valeur 60, il y avait deux possibilités (la deuxième n'était jamais prise en compte puisque dans la ligne précédente tu disais de 30 à 60 et dans la ligne suivante de 60 à 90

Il faut toujours qu'il n'y ait qu'un choix possible
 
Dernière édition:
Re : petit soucis a regler

Ah d accord, du coup j ai tout refais car il y avait a mon avis d autres incoherences. et maintenant cela fonctionne.
Y a t il un moyen de faire pareil mais cette fois ci faire sensiblement la meme macro mais pour les cellule L de la feuilles 2 sur mes traits entre chaque oval ? j ai essayer mais impossible de faire une deuxieme macro pour ca ... car je veux quand meme garder ma premiere macro ....

L2 doit correspondre au trait 1
L3 au trait 2
ect....
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour