insérer une image en fonction d'un caractère Résolu/Fermé

Question

Bonjour, 

Suivant la pièce jointe, serait-il possible d’inséré l'image qui se trouve dans la cellule W4 de la mettre dans la cellule C4 quand le chiffre 1 apparaît dans la cellule N4, puis W5 dans C5 quand le chiffre 2 s'affiche dans la cellule N4 ainsi de suite jusqu’à la cellule AF12  dans L12 quand s'affiche 90
Merci beaucoup 

https://cjoint.com/c/JCAg6sYZXJ8

Mike-31 · Answer

Bonjour,

commence par t'inspirer de ces deux façons de faire, télécharge le fichier exemple, regarde et reviens si tu n'y arrives pas

https://forums.commentcamarche.net/forum/affich-37642405-excel-faire-apparaitre-une-image-sur-une-feuille-de-calcul 

tu peux également suivre cette discussion
https://forums.commentcamarche.net/forum/affich-36523706-insertion-des-photos-sur-les-cartes#p36529695

Mike-31 · Answer

Re,

Michel_m que je salue, a créé il y a quelques temps un programme de tirage des numéros de loto, je lui envoie un message privé pour qu'il se joigne à la discussion

Mike-31 · Answer

Re,

après réflexion et étude de ton fichier, pourquoi veux tu afficher une image, le tirage aléatoire fonctionne parfaitement comme le report sur la grille.
au départ tu souhaitais mettre une couronne sur la cellule es ce toujours ce que tu souhaites

Mike-31 · Answer

Re,

regarde si c'est ce que tu cherches faire, avant de procéder a un tirage initialise le fichier en cliquant sur nouvelle partie

 https://cjoint.com/c/JCDuGWWJeFc

Mike-31 · Answer

Re,

tout est possible mais tu compliques le code, enfin j'ai déjà revu le code existant et regarde dans la journée cet histoire de disque de couleur

Mike-31 · Answer

Re,

Voilà

 https://cjoint.com/c/JCEiwukdlOc

Mike-31 · Answer

Re,

pour ma part dans le bouton NOUVELLE PARTIE j'ajouterai une inputbox pour saisir un mot de passe autorisant l'initialisation d'une nouvelle partie afin d'éviter un effacement accidentel  
si tu veux essayer remplace ce 

Private Sub btNouvellePartie_Click()
    Call Reset
End Sub

par et le mot de passe est OPEN en majuscule et peut être changé bien sur

Private Sub btNouvellePartie_Click()Dim resultat As String    resultat = InputBox("Veuillez saisir votre mot de passe pour continuer.", "Initialisation d'une nouvelle partie,", "mot de passe")        If resultat <> "OPEN" Then 'Si la valeur est différente de "" on affiche le résultat            MsgBox "Initialisation abandonné !", , "Mot de passe incorrect."            Exit Sub        End If    Call ResetEnd Sub

Mike-31 · Answer

Ok  bonne route et peut être à une prochaine fois sur ce forum

Insérer une image en fonction d'un caractère

8 réponses

Discussions similaires

Newsletters