Bonjour à tous,
Je suis quelque peu gêné de soumettre un poste avec cet intitulé, car c'est un problème qui a été rencontré par des milliers de personnes avant moi. Seulement, chaque réponse à ce problème est très spécifique, et malgré une recherche approfondie, je n'ai pas trouvé de quoi me débloquer.
Mon problème :
J'ai un module qui appelle un UserForm (nommé "Selection"). En fonction du résultat de ce USF, je rentre (ou non) dans un If, qui a pour but de copier 2 parties du classeur, et de les coller en tant qu'image sur une autre feuille en les redimensionnant légèrement.
Ce code fonctionnait a merveille (il fonctionne d'ailleurs toujours sur une ancienne version de mon doc, mais j'ai beaucoup avancé depuis). Seulement, j'ai eu à renommer mes modules et mes USF's. Une fois renommés, sans aucune autre modification, Excel m'affiche un message d'erreur lors de l’exécution de ce module.
Message : Membre de méthode ou de données introuvable
Élément surligné : Selection.ShapeRange.ScaleWidth 0.9613633076, msoFalse, msoScaleFromTopLeft
Note : si je mets en commentaire cette ligne, la macro s’exécute très bien (sans redimensionnement de l'image bien entendu).
Voici le code:
En espérant n'exaspérer personne avec une question qu'il aurait déjà vu 1000 fois.
Je remercie par avance, quiconque essaiera de m'aider sur ce problème.
Ruket.
Je suis quelque peu gêné de soumettre un poste avec cet intitulé, car c'est un problème qui a été rencontré par des milliers de personnes avant moi. Seulement, chaque réponse à ce problème est très spécifique, et malgré une recherche approfondie, je n'ai pas trouvé de quoi me débloquer.
Mon problème :
J'ai un module qui appelle un UserForm (nommé "Selection"). En fonction du résultat de ce USF, je rentre (ou non) dans un If, qui a pour but de copier 2 parties du classeur, et de les coller en tant qu'image sur une autre feuille en les redimensionnant légèrement.
Ce code fonctionnait a merveille (il fonctionne d'ailleurs toujours sur une ancienne version de mon doc, mais j'ai beaucoup avancé depuis). Seulement, j'ai eu à renommer mes modules et mes USF's. Une fois renommés, sans aucune autre modification, Excel m'affiche un message d'erreur lors de l’exécution de ce module.
Message : Membre de méthode ou de données introuvable
Élément surligné : Selection.ShapeRange.ScaleWidth 0.9613633076, msoFalse, msoScaleFromTopLeft
Note : si je mets en commentaire cette ligne, la macro s’exécute très bien (sans redimensionnement de l'image bien entendu).
Voici le code:
Code:
Sub Calculs()
Sheets("xxxxxxx").Activate
Application.ScreenUpdating = False
Selection.Show
If Sheets("DataUF2lots").Range("Z2") = "NC" Then
Sheets("Resultats").Range("A161:I179").Select
Selection.Copy
Sheets("Rapport NC").Select
Range("C7").Select
ActiveSheet.Pictures.Paste.Select
ActiveSheet.Shapes.Range(Array("Picture 2")).Select
Selection.ShapeRange.ScaleWidth 0.9613633076, msoFalse, msoScaleFromTopLeft
Sheets("Gamme SEM46 SYBR").Activate
Sheets("Gamme SEM46 SYBR").Range("A1:Q33").Select
Selection.Copy
Sheets("Rapport NC").Select
Range("C28").Select
ActiveSheet.Pictures.Paste.Select
ActiveSheet.Shapes.Range(Array("Picture 3")).Select
Selection.ShapeRange.ScaleHeight 0.7581287252, msoFalse, msoScaleFromTopLeft
Else
NCvisuelles.Show
MenuResultats.Show
End If
Application.ScreenUpdating = True
End Sub
En espérant n'exaspérer personne avec une question qu'il aurait déjà vu 1000 fois.
Je remercie par avance, quiconque essaiera de m'aider sur ce problème.
Ruket.