Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Mais s'il n'y a pas de photos dans la feuille on obtients un messaged'erreur.
Bonsoir,Afin d'encadrer les photos contenu dans une feuille de classeur j'airéalisé une petite macroMais s'il n'y a pas de photos dans la feuille on obtients un messaged'erreur.Comment tester si il y a au moins une photos dans la feuille ?Sub ENCADRER()ActiveSheet.Pictures.SelectSelection.ShapeRange.Fill.Visible = msoFalseSelection.ShapeRange.Fill.Transparency = 0#Selection.ShapeRange.Line.Weight = 0.75Selection.ShapeRange.Line.DashStyle = msoLineSolidSelection.ShapeRange.Line.Style = msoLineSingleSelection.ShapeRange.Line.Transparency = 0#Selection.ShapeRange.Line.Visible = msoTrue' Ajout cadre noirSelection.ShapeRange.Line.ForeColor.SchemeColor = 64Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)Range("A3").SelectEnd SubIl y a peut etre plus court pour encadrer les photos. Je suis toujourspreneur :)En vous remerciant pour votre aide.
Mais s'il n'y a pas de photos dans la feuille on obtients un message d'erreur.
Bonsoir, Afin d'encadrer les photos contenu dans une feuille de classeur j'ai réalisé une petite macro Mais s'il n'y a pas de photos dans la feuille on obtients un message d'erreur. Comment tester si il y a au moins une photos dans la feuille ? Sub ENCADRER() ActiveSheet.Pictures.Select Selection.ShapeRange.Fill.Visible = msoFalse Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue ' Ajout cadre noir Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Range("A3").Select End Sub Il y a peut etre plus court pour encadrer les photos. Je suis toujours preneur :) En vous remerciant pour votre aide.
Bonsoir,Mais s'il n'y a pas de photos dans la feuille on obtients un messaged'erreur.Sub ENCADRER()on error resume next'...on error goto 0end sub'lSteph"kerr2" a écrit dans le message de news:Bonsoir,Afin d'encadrer les photos contenu dans une feuille de classeur j'airéalisé une petite macroMais s'il n'y a pas de photos dans la feuille on obtients un messaged'erreur.Comment tester si il y a au moins une photos dans la feuille ?Sub ENCADRER()ActiveSheet.Pictures.SelectSelection.ShapeRange.Fill.Visible = msoFalseSelection.ShapeRange.Fill.Transparency = 0#Selection.ShapeRange.Line.Weight = 0.75Selection.ShapeRange.Line.DashStyle = msoLineSolidSelection.ShapeRange.Line.Style = msoLineSingleSelection.ShapeRange.Line.Transparency = 0#Selection.ShapeRange.Line.Visible = msoTrue' Ajout cadre noirSelection.ShapeRange.Line.ForeColor.SchemeColor = 64Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)Range("A3").SelectEnd SubIl y a peut etre plus court pour encadrer les photos. Je suis toujourspreneur :)En vous remerciant pour votre aide.
Bonsoir, Mais s'il n'y a pas de photos dans la feuille on obtients un message d'erreur. Sub ENCADRER() on error resume next '... on error goto 0 end sub 'lSteph "kerr2" <kerr2entrop@free.onsupprimefr> a écrit dans le message de news: uZMW8XSpGHA.2400@TK2MSFTNGP03.phx.gbl... Bonsoir, Afin d'encadrer les photos contenu dans une feuille de classeur j'ai réalisé une petite macro Mais s'il n'y a pas de photos dans la feuille on obtients un message d'erreur. Comment tester si il y a au moins une photos dans la feuille ? Sub ENCADRER() ActiveSheet.Pictures.Select Selection.ShapeRange.Fill.Visible = msoFalse Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue ' Ajout cadre noir Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Range("A3").Select End Sub Il y a peut etre plus court pour encadrer les photos. Je suis toujours preneur :) En vous remerciant pour votre aide.