piga25
XLDnaute Barbatruc
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):
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
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):
Code:
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
Dernière édition: