Modification de macro pour inserer images

[piga25]

Bonjour,

J'ai un souci pour afficher correctement des pictogrammes sur une feuille. Lorsque je le fais manuellement cela fonctionne parfaitement, par contre lorsque je passe par un USERFORM de recherche pour imprimer la FICHE cela ne fonctionne pas.
FEUILLE 2010 - Bouton recherche ajouter - Recherche par n° - valider sur la liste - puis Bouton Imprimer.
Je me suis inspiré d'une MFC IMAGE proposé pas BOISGONTIER.
J'ai une erreur sur cette ligne (Macro située sur feuille FICHE):

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row = 4 Then 'If Target.Column = 8 Then
    '-- suppression
    For Each s In ActiveSheet.Shapes
      If s.Type = 13 Then
        If s.TopLeftCell.Address = Target.Offset(2, 0).Address Then
          s.Delete
        End If
      End If
    Next s
    '--
    Sheets("Pictogrammes").Shapes(Application.Substitute(Target, " ", "")).Copy
    Calculate
   [COLOR=red]Target.Offset(2, 0).Select[/COLOR]
    ActiveSheet.Paste
    Selection.ShapeRange.Left = ActiveCell.Left + 45
    Selection.ShapeRange.Top = ActiveCell.Top + 5
    Target.Select
  End If
End Sub

Je vous joint le fichier ici :
MODIF nouveau lien :

Second problème, mais qui concerne les checkbox1 à 7 de l'onglet Danger dans l'USERFORM, lorsque je fais une recherche, elles ne reprennent pas les infos, c'est à dire "cochées" alors que sur la BD de la feuille 2001 elles y sont bien.
De même y a t'il une solution plus facile pour mettre ces images à la suite sans laisser d'espace entre (question d'esthétique).

Merci

 

[piga25]

Re : Problème d'affichage d'image avec VBA et MFC

Bonjour,

Suite une petite erreur dans le fichier voici le nouveau :

la modif porte sur la liste de choix des combobox :
Primaire
Secondaire
Tertiaire

Avec mes excuses ne ne pas avoir vu cela avant mon premier post.
Merci

 

[piga25]

Re : Problème d'affichage d'image avec VBA et MFC

Bonsoir,

J'ai trouvé la solution à ma seconde question, il faut changer le 12 en 25 pour que la recherche se fasse dans la bonne colonne (j'ai cherché trop compliqué alors que cela était tout simple.
Dans la macro Inictl(........)

For i = 1 To 7
        If .Cells(nLign, i + [B][COLOR=red]25[/COLOR][/B]) = 1 Then Controls("CheckBox" & i) = True Else: Controls("CheckBox" & i) = False
    Next

Par contre je n'arrive pas à modifier le code pour les pictogrammes s'affichent en fonction des résultats des combobox

Merci

 

[piga25]

Re : Problème d'affichage d'image avec VBA et MFC

Bonjour,
petit up

Je n'arrive pas a modifier cette macro pour que les images choisies en C4 - D4 - E4 (résultat de combobox) soient visible deux lignes en dessous soit en C6 - D6 - E6.
Les images sont dans le même fichier sur la feuille "Pictogrammes" en B1:B11

Après de très nombreuses modifications et de recherches j'ai toujours un bug sur cette ligne :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row = 4 Then 'If Target.Column = 8 Then
    '-- suppression
    For Each s In ActiveSheet.Shapes
      If s.Type = 13 Then
        If s.TopLeftCell.Address = Target.Offset(2, 0).Address Then
          s.Delete
        End If
      End If
    Next s
    '--
    Sheets("Pictogrammes").Shapes(Application.Substitute(Target, " ", "")).Copy
    [COLOR=red]Target.Offset(2, 0).Select[/COLOR]
    ActiveSheet.Paste
    Selection.ShapeRange.Left = ActiveCell.Left + 45
    Selection.ShapeRange.Top = ActiveCell.Top + 5
    Target.Select
  End If
End Sub

De ce que je ne comprends pas, c'est que lorsque je clique manuellement sur les cellules C4 à E4 (liste de choix) j'obtiens le bon résultat, mais lorsque je passe par la commande imprimer de l'Userform cela bug à cette ligne.

Merci