Positionner une forme d'après la valeur d'une cellule

Bonjour à tous,

Mes connaissances en VBA sont assez limitées, j'ai besoin d'aide.

Je cherche à positionner automatiquement une forme, non pas avec une cellule définie, mais avec la valeur d'une cellule.

Explication :

Si j'utilise le code suivant, ma forme se positionne bien en D15.

Sub VIGNETTE()
ActiveSheet.Shapes("Rectangle1").Top = [D15].Top
ActiveSheet.Shapes("Rectangle1").Left = [D15].Left
End Sub

Mais je voudrais que cette forme se positionne d'après une cellule qui affiche une position, exemple en D43.

Donc je voudrais que ma forme se positionne en E8.

Dernière question : est-il possible de prendre comme référence non pas la E8 mais la colonne d'avant (D8) et automatiquement ? Pour obtenir les résultats de la colonne D, j'utilise la formule suivante :

=CELL("address";INDEX($E$7:$E$37;MATCH(C43;$E$7:$E$37;0)))

Merci de votre aide

Flo

Bonjour Flo42220 et bienvenue,

Chez moi, ceci semble fonctionner (si j'ai compris !?) :

Sub VIGNETTE()
Me.Shapes("maForme").Top = Range([D43]).Top
Me.Shapes("maForme").Left = Range([D43]).Left
End Sub

La 2^e question semble encore plus tarabiscotée ... essaie :

=CELLULE("adresse";INDEX($D$7:$D$37;EQUIV(D43;$E$7:$E$37;0)))

ou

=ADRESSE(EQUIV(D43;$E$7:$E$37;0)+6;4;1)

... mais sans fichier pour comprendre un peu "l'affaire" ... c'est un peu comme tirer des plans sur la comète

Merci U. Milité,

Parfait, le positionnement fonctionne, c'est TOP !

Oui tarabiscotée sans aucun doute (rires). Mais comme je suis autodidacte en la matière, je prends souvent des chemins de traverse pour arriver à mes objectifs et ce n'est certainement pas très orthodoxe comme méthode LOL.

Dans un premier temps, sans rentrer plus dans le détail pour ne pas te faire perdre ton temps, je vais reformuler ma question :

Est-il possible d'obtenir simplement la colonne I d'après la colonne D ? Dis autrement, je veux que la colonne I prenne la valeur de D -1 colonne.

Re-bonjour,

Tes chemins de traverse passent ... par le Cap Horn (en tout cas ça décoiffe !)

En I43, essaie :

=ADRESSE(LIGNE(INDIRECT(D43));COLONNE(INDIRECT(D43))-1;1)

il me semble que ça devrait donner ce que tu veux (si j'ai compris ??)

Bonjour Le fil,

@U. Milite

Je ne savais qu'au Cap Horn, il y avait des boutiques de baguettes magiques

Re²,

@Green SoftS : sûrement parce que tu n'as as pris le temps de t'y arrêter

MDR, votre ironie n'a d'égal que votre efficacité, facile ! Merci beaucoup.

Ne dit-on pas souvent, l'important est le résultat . Si je veux passer par le Cap Horn pour aller à Beijing, je peux .

Bonne soirée braves gens !

Merci pour ce retour dans la bonne humeur
À un de ces jours !