Selectionner une image selon valeur cellule et la déplacer

Bonjour,

après avoir chercher des heures sans rien trouver, je viens vers vous pour trouver une solution. j'ai besoin d'aide concernant le déplacement d'objet. J'ai dessiner plusieurs forme et j'ai intégré un paquet avec 52 cartes sur cette forme. Chaque carte à été nommé selon leur caractéristique ex: valet de carreau. La question est:

comment faire en vba pour qu'il sélectionne la bonne carte selon le résultat dans une cellule. ex: en B46 j'ai le 10 de pique. La cellule est le résultat complexe de plusieurs formule. Donc au prochain mélange des cartes la cellule B46 aura une autre valeur.

L'idée est de pouvoir sélectionner la carte correspondant à B46 et de la déplacer.

Merci beaucoup.

ci dessous le code très imparfait. Pas de jugement svp

Sub colorShape() 
Dim form As Shape, c As Range 

For Each form In ActiveSheet.Shapes 'boucle sur tous les shapes de la feuille active 
With form 
Set c = [h:h].Find(.Name, , xlValues, xlWhole) 'cherche si le nom du shape existe dans la colonne H 
If Not c Is Nothing Then 's'il existe 
If c.Offset(, 1) = 1 Then 'et si la colonne I est égal à 1 
monimages = Range("h42") 
.Visible = msoTrue 

Selection.Name = "monImages" 
Sheets("tableb5").Shapes("monimages").Left = 192.23 
Sheets("tableb5").Shapes("monimage").Top = 221.25 

End If 
End If 
End With 
Next form 
End Sub

Salut Kyldam et bienvenue sur le Forum,

Je pense que sans voir ton fichier, ce sera difficile de t'aider. Par exemple on ne sait pas ce que tu as dans ta cellule H42 ?

Cordialement.

Rechercher des sujets similaires à "selectionner image valeur deplacer"