J'ai une erreur 438 quand j'interromps une procédure d'insertion d'image,
c'est normal, mais cette erreur 438 renvoie l'utilsateur vers l'éditeur VB,
et je voudrais éviter cela.
Finalement je voudrais gérer l'erreur 438 avec un message "...." mais en
restant sur la feuille excel.
Enfin je ne voudrais pas que l'utilisateur se retrouve sur l'éditeur, je ne
tiens pas a ce qu'il bricole.
Est ce que c'est possible et comment le faire ?
Merci pour le coup de main
ci après la procédure
'insertion de photos
Option Explicit
----------------------
'insertion photo 1 janvier 2009
Private Sub CommandButton1_Click()
Dim ShapeObj As Object
'On Error GoTo fin
Range("I4").Select
Dim RemovePicture As Integer
For Each ShapeObj In ActiveSheet.DrawingObjects ' boucle pour supprimer
ancienne image
If ShapeObj.Name = "cible1" Then
RemovePicture = MsgBox("cette action supprimera la photo existante." &
Chr(13) & "voulez vous continuer ?", vbYesNo, "Delete before Inserting")
'
If RemovePicture = vbYes Then
ActiveSheet.Shapes("cible1").Delete
Exit For
Else
Exit Sub
End If
End If
Next
'position photo 1
Range("I4").Select
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Name = "cible1"
If Selection.ShapeRange.Height > Selection.ShapeRange.Width Then
Selection.ShapeRange.Height = 190
Else
Selection.ShapeRange.Width = 210
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Un exemple de gestion d'erreur :
Si tu veux passer par dessus l'erreur sans message tu écris simplement en début de procédure : On error resume next '---------------------------------- Sub test1()
Dim GestionErreur As String
On Error GoTo GestionErreur Set Sh = Worksheets("ExitePas") MsgBox "Ok ? " Exit Sub GestionErreur: MsgBox "Une erreur " & Err.Number & " a été déclenché" 'Et pour revenir à la ligne suivante du code 'si tu le désires et que ça fait du sens ! Resume Next
End Sub '---------------------------------
"plex" a écrit dans le message de groupe de discussion :
J'ai une erreur 438 quand j'interromps une procédure d'insertion d'image, c'est normal, mais cette erreur 438 renvoie l'utilsateur vers l'éditeur VB, et je voudrais éviter cela. Finalement je voudrais gérer l'erreur 438 avec un message "...." mais en restant sur la feuille excel. Enfin je ne voudrais pas que l'utilisateur se retrouve sur l'éditeur, je ne tiens pas a ce qu'il bricole.
Est ce que c'est possible et comment le faire ?
Merci pour le coup de main
ci après la procédure
'insertion de photos Option Explicit ---------------------- 'insertion photo 1 janvier 2009 Private Sub CommandButton1_Click() Dim ShapeObj As Object
'On Error GoTo fin Range("I4").Select Dim RemovePicture As Integer For Each ShapeObj In ActiveSheet.DrawingObjects ' boucle pour supprimer ancienne image If ShapeObj.Name = "cible1" Then RemovePicture = MsgBox("cette action supprimera la photo existante." & Chr(13) & "voulez vous continuer ?", vbYesNo, "Delete before Inserting") ' If RemovePicture = vbYes Then ActiveSheet.Shapes("cible1").Delete Exit For Else Exit Sub End If
End If Next 'position photo 1 Range("I4").Select
Application.Dialogs(xlDialogInsertPicture).Show Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Name = "cible1" If Selection.ShapeRange.Height > Selection.ShapeRange.Width Then Selection.ShapeRange.Height = 190 Else Selection.ShapeRange.Width = 210 End If
--
Un exemple de gestion d'erreur :
Si tu veux passer par dessus l'erreur sans message
tu écris simplement en début de procédure :
On error resume next
'----------------------------------
Sub test1()
Dim GestionErreur As String
On Error GoTo GestionErreur
Set Sh = Worksheets("ExitePas")
MsgBox "Ok ? "
Exit Sub
GestionErreur:
MsgBox "Une erreur " & Err.Number & " a été déclenché"
'Et pour revenir à la ligne suivante du code
'si tu le désires et que ça fait du sens !
Resume Next
End Sub
'---------------------------------
"plex" <nospam@cegetel.net> a écrit dans le message de groupe de discussion :
uvZDXpYeJHA.1532@TK2MSFTNGP03.phx.gbl...
J'ai une erreur 438 quand j'interromps une procédure d'insertion d'image,
c'est normal, mais cette erreur 438 renvoie l'utilsateur vers l'éditeur VB,
et je voudrais éviter cela.
Finalement je voudrais gérer l'erreur 438 avec un message "...." mais en
restant sur la feuille excel.
Enfin je ne voudrais pas que l'utilisateur se retrouve sur l'éditeur, je ne
tiens pas a ce qu'il bricole.
Est ce que c'est possible et comment le faire ?
Merci pour le coup de main
ci après la procédure
'insertion de photos
Option Explicit
----------------------
'insertion photo 1 janvier 2009
Private Sub CommandButton1_Click()
Dim ShapeObj As Object
'On Error GoTo fin
Range("I4").Select
Dim RemovePicture As Integer
For Each ShapeObj In ActiveSheet.DrawingObjects ' boucle pour supprimer
ancienne image
If ShapeObj.Name = "cible1" Then
RemovePicture = MsgBox("cette action supprimera la photo existante." &
Chr(13) & "voulez vous continuer ?", vbYesNo, "Delete before Inserting")
'
If RemovePicture = vbYes Then
ActiveSheet.Shapes("cible1").Delete
Exit For
Else
Exit Sub
End If
End If
Next
'position photo 1
Range("I4").Select
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Name = "cible1"
If Selection.ShapeRange.Height > Selection.ShapeRange.Width Then
Selection.ShapeRange.Height = 190
Else
Selection.ShapeRange.Width = 210
End If
Si tu veux passer par dessus l'erreur sans message tu écris simplement en début de procédure : On error resume next '---------------------------------- Sub test1()
Dim GestionErreur As String
On Error GoTo GestionErreur Set Sh = Worksheets("ExitePas") MsgBox "Ok ? " Exit Sub GestionErreur: MsgBox "Une erreur " & Err.Number & " a été déclenché" 'Et pour revenir à la ligne suivante du code 'si tu le désires et que ça fait du sens ! Resume Next
End Sub '---------------------------------
"plex" a écrit dans le message de groupe de discussion :
J'ai une erreur 438 quand j'interromps une procédure d'insertion d'image, c'est normal, mais cette erreur 438 renvoie l'utilsateur vers l'éditeur VB, et je voudrais éviter cela. Finalement je voudrais gérer l'erreur 438 avec un message "...." mais en restant sur la feuille excel. Enfin je ne voudrais pas que l'utilisateur se retrouve sur l'éditeur, je ne tiens pas a ce qu'il bricole.
Est ce que c'est possible et comment le faire ?
Merci pour le coup de main
ci après la procédure
'insertion de photos Option Explicit ---------------------- 'insertion photo 1 janvier 2009 Private Sub CommandButton1_Click() Dim ShapeObj As Object
'On Error GoTo fin Range("I4").Select Dim RemovePicture As Integer For Each ShapeObj In ActiveSheet.DrawingObjects ' boucle pour supprimer ancienne image If ShapeObj.Name = "cible1" Then RemovePicture = MsgBox("cette action supprimera la photo existante." & Chr(13) & "voulez vous continuer ?", vbYesNo, "Delete before Inserting") ' If RemovePicture = vbYes Then ActiveSheet.Shapes("cible1").Delete Exit For Else Exit Sub End If
End If Next 'position photo 1 Range("I4").Select
Application.Dialogs(xlDialogInsertPicture).Show Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Name = "cible1" If Selection.ShapeRange.Height > Selection.ShapeRange.Width Then Selection.ShapeRange.Height = 190 Else Selection.ShapeRange.Width = 210 End If
--
plex
OK, c'est tout bon
Merci pour le coup de main
"michdenis" a écrit dans le message de news:
Un exemple de gestion d'erreur :
Si tu veux passer par dessus l'erreur sans message tu écris simplement en début de procédure : On error resume next '---------------------------------- Sub test1()
Dim GestionErreur As String
On Error GoTo GestionErreur Set Sh = Worksheets("ExitePas") MsgBox "Ok ? " Exit Sub GestionErreur: MsgBox "Une erreur " & Err.Number & " a été déclenché" 'Et pour revenir à la ligne suivante du code 'si tu le désires et que ça fait du sens ! Resume Next
End Sub '---------------------------------
"plex" a écrit dans le message de groupe de discussion :
J'ai une erreur 438 quand j'interromps une procédure d'insertion d'image, c'est normal, mais cette erreur 438 renvoie l'utilsateur vers l'éditeur VB, et je voudrais éviter cela. Finalement je voudrais gérer l'erreur 438 avec un message "...." mais en restant sur la feuille excel. Enfin je ne voudrais pas que l'utilisateur se retrouve sur l'éditeur, je ne tiens pas a ce qu'il bricole.
Est ce que c'est possible et comment le faire ?
Merci pour le coup de main
ci après la procédure
'insertion de photos Option Explicit ---------------------- 'insertion photo 1 janvier 2009 Private Sub CommandButton1_Click() Dim ShapeObj As Object
'On Error GoTo fin Range("I4").Select Dim RemovePicture As Integer For Each ShapeObj In ActiveSheet.DrawingObjects ' boucle pour supprimer ancienne image If ShapeObj.Name = "cible1" Then RemovePicture = MsgBox("cette action supprimera la photo existante." & Chr(13) & "voulez vous continuer ?", vbYesNo, "Delete before Inserting") ' If RemovePicture = vbYes Then ActiveSheet.Shapes("cible1").Delete Exit For Else Exit Sub End If
End If Next 'position photo 1 Range("I4").Select
Application.Dialogs(xlDialogInsertPicture).Show Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Name = "cible1" If Selection.ShapeRange.Height > Selection.ShapeRange.Width Then Selection.ShapeRange.Height = 190 Else Selection.ShapeRange.Width = 210 End If
--
OK, c'est tout bon
Merci pour le coup de main
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
5E248D75-7AA5-4E78-B1B1-9B8626F5C845@microsoft.com...
Un exemple de gestion d'erreur :
Si tu veux passer par dessus l'erreur sans message
tu écris simplement en début de procédure :
On error resume next
'----------------------------------
Sub test1()
Dim GestionErreur As String
On Error GoTo GestionErreur
Set Sh = Worksheets("ExitePas")
MsgBox "Ok ? "
Exit Sub
GestionErreur:
MsgBox "Une erreur " & Err.Number & " a été déclenché"
'Et pour revenir à la ligne suivante du code
'si tu le désires et que ça fait du sens !
Resume Next
End Sub
'---------------------------------
"plex" <nospam@cegetel.net> a écrit dans le message de groupe de
discussion :
uvZDXpYeJHA.1532@TK2MSFTNGP03.phx.gbl...
J'ai une erreur 438 quand j'interromps une procédure d'insertion d'image,
c'est normal, mais cette erreur 438 renvoie l'utilsateur vers l'éditeur
VB,
et je voudrais éviter cela.
Finalement je voudrais gérer l'erreur 438 avec un message "...." mais en
restant sur la feuille excel.
Enfin je ne voudrais pas que l'utilisateur se retrouve sur l'éditeur, je
ne
tiens pas a ce qu'il bricole.
Est ce que c'est possible et comment le faire ?
Merci pour le coup de main
ci après la procédure
'insertion de photos
Option Explicit
----------------------
'insertion photo 1 janvier 2009
Private Sub CommandButton1_Click()
Dim ShapeObj As Object
'On Error GoTo fin
Range("I4").Select
Dim RemovePicture As Integer
For Each ShapeObj In ActiveSheet.DrawingObjects ' boucle pour supprimer
ancienne image
If ShapeObj.Name = "cible1" Then
RemovePicture = MsgBox("cette action supprimera la photo existante." &
Chr(13) & "voulez vous continuer ?", vbYesNo, "Delete before Inserting")
'
If RemovePicture = vbYes Then
ActiveSheet.Shapes("cible1").Delete
Exit For
Else
Exit Sub
End If
End If
Next
'position photo 1
Range("I4").Select
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Name = "cible1"
If Selection.ShapeRange.Height > Selection.ShapeRange.Width Then
Selection.ShapeRange.Height = 190
Else
Selection.ShapeRange.Width = 210
End If
Si tu veux passer par dessus l'erreur sans message tu écris simplement en début de procédure : On error resume next '---------------------------------- Sub test1()
Dim GestionErreur As String
On Error GoTo GestionErreur Set Sh = Worksheets("ExitePas") MsgBox "Ok ? " Exit Sub GestionErreur: MsgBox "Une erreur " & Err.Number & " a été déclenché" 'Et pour revenir à la ligne suivante du code 'si tu le désires et que ça fait du sens ! Resume Next
End Sub '---------------------------------
"plex" a écrit dans le message de groupe de discussion :
J'ai une erreur 438 quand j'interromps une procédure d'insertion d'image, c'est normal, mais cette erreur 438 renvoie l'utilsateur vers l'éditeur VB, et je voudrais éviter cela. Finalement je voudrais gérer l'erreur 438 avec un message "...." mais en restant sur la feuille excel. Enfin je ne voudrais pas que l'utilisateur se retrouve sur l'éditeur, je ne tiens pas a ce qu'il bricole.
Est ce que c'est possible et comment le faire ?
Merci pour le coup de main
ci après la procédure
'insertion de photos Option Explicit ---------------------- 'insertion photo 1 janvier 2009 Private Sub CommandButton1_Click() Dim ShapeObj As Object
'On Error GoTo fin Range("I4").Select Dim RemovePicture As Integer For Each ShapeObj In ActiveSheet.DrawingObjects ' boucle pour supprimer ancienne image If ShapeObj.Name = "cible1" Then RemovePicture = MsgBox("cette action supprimera la photo existante." & Chr(13) & "voulez vous continuer ?", vbYesNo, "Delete before Inserting") ' If RemovePicture = vbYes Then ActiveSheet.Shapes("cible1").Delete Exit For Else Exit Sub End If
End If Next 'position photo 1 Range("I4").Select
Application.Dialogs(xlDialogInsertPicture).Show Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Name = "cible1" If Selection.ShapeRange.Height > Selection.ShapeRange.Width Then Selection.ShapeRange.Height = 190 Else Selection.ShapeRange.Width = 210 End If