Image qui change en fonction du contenu de la cellule active
Résolu/Fermé
Woochi
Messages postés
19
Date d'inscription
mardi 13 juin 2017
Statut
Membre
Dernière intervention
28 septembre 2023
-
5 mars 2019 à 12:19
Woochi Messages postés 19 Date d'inscription mardi 13 juin 2017 Statut Membre Dernière intervention 28 septembre 2023 - 6 mars 2019 à 10:26
Woochi Messages postés 19 Date d'inscription mardi 13 juin 2017 Statut Membre Dernière intervention 28 septembre 2023 - 6 mars 2019 à 10:26
A voir également:
- Image qui change en fonction du contenu de la cellule active
- Fonction si et - Guide
- Changer de dns - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Image iso - Guide
1 réponse
Zoul67
Messages postés
1959
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
30 janvier 2023
149
Modifié le 5 mars 2019 à 13:16
Modifié le 5 mars 2019 à 13:16
Bonjour,
1/ C'est l'instruction Select qui sélectionne ta forme. Je pense que tu peux raccourcir ainsi :
2/ ça sert à ne pas mettre à jour l'affichage. En pratique, ça sert à éviter les clignotements quand il y a beaucoup d'opérations qui sont effectuées.
3/ voir 1
A+
1/ C'est l'instruction Select qui sélectionne ta forme. Je pense que tu peux raccourcir ainsi :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Déclaration de la variable qui contient le chemin des images Dim PathDossierImage As String PathDossierImage = "C:\images\" If Target.Cells.Count > 1 Then Exit Sub ' Condition de la ellule active If ActiveCell.Value Like "*texte1*" Then ActiveSheet.Shapes.Range(Array("Rounded Rectangle 3")).Fill.UserPicture PathDossierImage & "2.png" If ActiveCell.Value Like "*texte2*" Then ActiveSheet.Shapes.Range(Array("Rounded Rectangle 3")).Fill.UserPicture PathDossierImage & "2.png" End Sub
2/ ça sert à ne pas mettre à jour l'affichage. En pratique, ça sert à éviter les clignotements quand il y a beaucoup d'opérations qui sont effectuées.
3/ voir 1
A+
5 mars 2019 à 17:10
Ton code fonctionne très bien sauf si la cellule active renvoie une erreur.
J'ai écrit "=nb" par erreur dans une cellule et là j'ai eu un msg d'erreur sur le code... je pense qu'il faudrait rajouté une condition si la cellule ne contient pas d'erreur... mais je ne sait pas faire.
Est-ce que tu peux qqch pour moi ?
5 mars 2019 à 17:57
6 mars 2019 à 10:26