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