Image dans un menu déroulant

Hello a tous,

Voici mon problème et voici le fichier: https://www.excel-pratique.com/~files/doc/Gepetto3_liste_debi.zip

C'est un gabarit pour faire des liste de coupe pour des barres acier.

Cliquer sur le menu déroulant, colone "I" choisir un numeros, et une image apparait proche de la cellule "F" Ca marche bien.

Cette marco provient de ce super forum et remercie au passage Anthony Charrieau Merci a toi.

Voila j'aurai besoin d'améliorer quelque petite chose:

1)-Que l'image soie par rapport a la ligne "F" ca m'arrive d'agrandir les cellules -> y a tout qui bouge ensuite. Comment faire?

2)-Que l'image s'efface quand je séléctionne une autre. Y a t'il un moyen?

3)- Quand j'efface un numeros y me crée une erreur VBA, mais si je clic sur fin, ca fonctionne normalement, quel pourait être le medicament?

Je vous remercie d'avance pour votre aide.

Amicalement

Didier

Bonsoir à tous,

Remplace ton code par celui-ci

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 9 Then
        '-- suppression
        For Each s In ActiveSheet.Shapes
            If s.Type = 13 Then
              If s.TopLeftCell.Address = Target.Offset(0, -3).Address Then s.Delete
            End If
        Next s
  If ActiveCell = "" Then Exit Sub
    '--
    Sheets("status").Shapes(Application.Substitute(Target, " ", "")).Copy
    Target.Offset(0, 1).Select
    ActiveSheet.Paste
    Selection.ShapeRange.Left = ActiveCell.Left - 275 'emplacement gauche droite
    Selection.ShapeRange.Top = ActiveCell.Top + 2.5   'emplacement haut bas
    Target.Select
  End If
End Sub

Claude.

Hello,

Mais c'est parfait c'est exactement ce que je voulais,

En fait si j'ai bien compris y avais un retours a la ligne de trop?

Merci beaucoup

Didier

Salut Didier et à tous,

c'est cette ligne qui n'allait pas, elle était à Offset(0, -1).

If s.TopLeftCell.Address = Target.Offset(0, -3).Address Then s.Delete 

Jeudi dernier mon PC m'a laché, alors que j'étais prêt à t'envoyer la nouvelle version de

"Visserie", j'ai donc tout perdu depuis la version 6.

Heureusement tout est dans la tête et je suis en train de refaire.

Je suis maintenant sur Vista avec Excel 2007

Je mouline un peu avec les nouvelles config. ce qui va reculer le projet.

Amicalement

Claude.

Ok pas de soucis et merci de la correction de cette macro.

Au plaisir de te relire.

Je met le pose sur résolu.

Didier