Effacer une zone de texte

Le
JBF
Bonjour,

Corto m'a déjà aidé à ce sujet mais sans succès malheureusement. Je
retentent ma chance auprès de vous.

J'ai un "bouton" qui s'affiche lorsque j'ai une donnée en colonne F. Je
clique sur le bouton pour générer une facture.

Une fois que c'est fait, j'aimerais savoir quoi ajouter à ma macro pour que
le bouton qui vient de s'afficher disparaisse après que j'ai cliqué dessus.

Attention, le bouton devra réapparaître si une nouvelle cellule de la
colonne F venait à être renseignée.
C'est donc une suppression momentanée qu'il me faut et non pas définitive.


Si ça peut vous être utile, je mets les deux macros concernées par ma
demande. La première déclenche la création de la zone de texte quand on
ajoute une donnée dans la colonne F. La deuxième transpose les données
lorsque l'on clique sur la zone de texte.

Merci


première macro :

Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque changement de
valeur
'condition : si le changement se fait ailleurs que dans la colonne F de
Previsionnel alors la macro sort de la procédure
If Intersect(Target, Range("F2:F65000")) Is Nothing Then Exit Sub
'si colonne F<>"rien" alors ça lance la macro du Module4 :
bouton_transformation_du_devis_en_facture
If Intersect(Target, Range("F2:F65000")) <> "" Then
Rows(Target.Row).Select
'ajoute un bouton dans l'onglet Previsionnel lorsqu'un numéro de facture est
inséré pour transformer le devis en facture
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 411#,
167.25, _
183.75, 53.25).Select
Selection.Characters.Text = "Cliquer ici pour transformer le devis en
facture"
With Selection.Characters(Start:=1, Length:1).Font
.Name = "arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.OnAction = "renseigner_facture"
With Selection.Font
.Name = "arial"
.FontStyle = "Gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
End With
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 = msoFalse
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 31
Selection.ShapeRange.Fill.OneColorGradient msoGradientDiagonalUp, 1,
0.45
Selection.ShapeRange.ThreeD.SetExtrusionDirection
msoExtrusionBottomRight
Selection.ShapeRange.ThreeD.Depth = 5#
Rows(Target.Row).Select

End If

End Sub

La deuxieme macro :

Sub renseigner_facture()
Sheets("Previsionnel").Select
Selection.Cut
Sheets("Attente de reglement").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
Sheets("Previsionnel").Select
Selection.Delete Shift:=xlUp
Range("F2").Select
Sheets("Facture").Select
Range("M4").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("M6").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP('Attente de reglement'!R[-4]C[-12],'Ne pas
Ouvrir'!R[-5]:R[65530],1,FALSE)"
Range("M5").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[1]C,'Ne pas
Ouvrir'!R[-4]:R[65531],13)"
Range("M7").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-1]C,'Ne pas Ouvrir'!R[-6]:R[65529],11,FALSE)"
Range("M8:M9").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-2]C,'Ne pas Ouvrir'!R[-7]:R[65528],3,FALSE)"
Range("A11").Select
ActiveCell.FormulaR1C1 = _
"=""Mairie de ""&VLOOKUP(R[-5]C[12],'Ne pas
Ouvrir'!R[-10]:R[65525],4,FALSE)"
Range("A12").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-6]C[12],'Ne pas Ouvrir'!R[-11]:R[65524],5,FALSE)"
Range("A13").Select
ActiveWindow.SmallScroll Down:=6
Range("A17").Select
ActiveCell.FormulaR1C1 = _
"=""Le Diagnostic environnemental de votre parc de
""&VLOOKUP(R[-11]C[12],'Ne pas Ouvrir'!R[-16]:R[65519],7,FALSE)&"" véhicules
comprend :"""
Range("A18").Select
ActiveWindow.SmallScroll Down:=7
Range("M17").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-11]C,'Ne pas Ouvrir'!R[-16]:R[65519],8,FALSE)"
Range("M18").Select
ActiveWindow.SmallScroll Down:=7
Range("A24").Select
ActiveCell.FormulaR1C1 = _
"=""Etude remise à ""&VLOOKUP(R[-18]C[12],'Ne pas
Ouvrir'!R[-23]:R[65512],3,FALSE)&"" le ""&R[-20]C[12]"
Range("A25").Select
ActiveWindow.SmallScroll Down:=5
Range("A24").Select
ActiveCell.FormulaR1C1 = _
"=""Etude remise à ""&VLOOKUP(R[-18]C[12],'Ne pas
Ouvrir'!R[-23]:R[65512],3,FALSE)&"" ce jour """
Range("A25").Select
ActiveWindow.SmallScroll Down:=-5
'Imprimer le devis en PDF
Sheets("Facture").PrintOut
'supprimer le bouton dans le Previsionnel

End Sub


Merci à vous

JBF
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LE TROLL
Le #17771611
Bonjour,

Sur la disparition :

Command1.Visible = False

------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------



"JBF" %23h$$
| Bonjour,
|
| Corto m'a déjà aidé à ce sujet mais sans succès malheureusement. Je
| retentent ma chance auprès de vous.
|
| J'ai un "bouton" qui s'affiche lorsque j'ai une donnée en colonne F. Je
| clique sur le bouton pour générer une facture.
|
| Une fois que c'est fait, j'aimerais savoir quoi ajouter à ma macro pour
que
| le bouton qui vient de s'afficher disparaisse après que j'ai cliqué
dessus.
|
| Attention, le bouton devra réapparaître si une nouvelle cellule de la
| colonne F venait à être renseignée.
| C'est donc une suppression momentanée qu'il me faut et non pas définitive.
|
|
| Si ça peut vous être utile, je mets les deux macros concernées par ma
| demande. La première déclenche la création de la zone de texte quand on
| ajoute une donnée dans la colonne F. La deuxième transpose les données
| lorsque l'on clique sur la zone de texte.
|
| Merci
|
|
| première macro :
|
| Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque changement
de
| valeur
| 'condition : si le changement se fait ailleurs que dans la colonne F de
| Previsionnel alors la macro sort de la procédure
| If Intersect(Target, Range("F2:F65000")) Is Nothing Then Exit Sub
| 'si colonne F<>"rien" alors ça lance la macro du Module4 :
| bouton_transformation_du_devis_en_facture
| If Intersect(Target, Range("F2:F65000")) <> "" Then
| Rows(Target.Row).Select
| 'ajoute un bouton dans l'onglet Previsionnel lorsqu'un numéro de facture
est
| inséré pour transformer le devis en facture
| ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 411#,
| 167.25, _
| 183.75, 53.25).Select
| Selection.Characters.Text = "Cliquer ici pour transformer le devis en
| facture"
| With Selection.Characters(Start:=1, Length:1).Font
| .Name = "arial"
| .FontStyle = "Normal"
| .Size = 10
| .Strikethrough = False
| .Superscript = False
| .Subscript = False
| .OutlineFont = False
| .Shadow = False
| .Underline = xlUnderlineStyleNone
| .ColorIndex = xlAutomatic
| End With
| Selection.OnAction = "renseigner_facture"
| With Selection.Font
| .Name = "arial"
| .FontStyle = "Gras"
| .Size = 10
| .Strikethrough = False
| .Superscript = False
| .Subscript = False
| .OutlineFont = False
| .Shadow = False
| .Underline = xlUnderlineStyleNone
| .ColorIndex = 1
| End With
| With Selection
| .HorizontalAlignment = xlCenter
| .VerticalAlignment = xlCenter
| .ReadingOrder = xlContext
| .Orientation = xlHorizontal
| .AutoSize = False
| End With
| 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 = msoFalse
| Selection.ShapeRange.Fill.Visible = msoTrue
| Selection.ShapeRange.Fill.ForeColor.SchemeColor = 31
| Selection.ShapeRange.Fill.OneColorGradient msoGradientDiagonalUp, 1,
| 0.45
| Selection.ShapeRange.ThreeD.SetExtrusionDirection
| msoExtrusionBottomRight
| Selection.ShapeRange.ThreeD.Depth = 5#
| Rows(Target.Row).Select
|
| End If
|
| End Sub
|
| La deuxieme macro :
|
| Sub renseigner_facture()
| Sheets("Previsionnel").Select
| Selection.Cut
| Sheets("Attente de reglement").Select
| Rows("2:2").Select
| Selection.Insert Shift:=xlDown
| Range("A1").Select
| Sheets("Previsionnel").Select
| Selection.Delete Shift:=xlUp
| Range("F2").Select
| Sheets("Facture").Select
| Range("M4").Select
| ActiveCell.FormulaR1C1 = "=TODAY()"
| Range("M6").Select
| ActiveCell.FormulaR1C1 = _
| "=VLOOKUP('Attente de reglement'!R[-4]C[-12],'Ne pas
| Ouvrir'!R[-5]:R[65530],1,FALSE)"
| Range("M5").Select
| ActiveCell.FormulaR1C1 = "=VLOOKUP(R[1]C,'Ne pas
| Ouvrir'!R[-4]:R[65531],13)"
| Range("M7").Select
| ActiveCell.FormulaR1C1 = _
| "=VLOOKUP(R[-1]C,'Ne pas Ouvrir'!R[-6]:R[65529],11,FALSE)"
| Range("M8:M9").Select
| ActiveCell.FormulaR1C1 = _
| "=VLOOKUP(R[-2]C,'Ne pas Ouvrir'!R[-7]:R[65528],3,FALSE)"
| Range("A11").Select
| ActiveCell.FormulaR1C1 = _
| "=""Mairie de ""&VLOOKUP(R[-5]C[12],'Ne pas
| Ouvrir'!R[-10]:R[65525],4,FALSE)"
| Range("A12").Select
| ActiveCell.FormulaR1C1 = _
| "=VLOOKUP(R[-6]C[12],'Ne pas Ouvrir'!R[-11]:R[65524],5,FALSE)"
| Range("A13").Select
| ActiveWindow.SmallScroll Down:=6
| Range("A17").Select
| ActiveCell.FormulaR1C1 = _
| "=""Le Diagnostic environnemental de votre parc de
| ""&VLOOKUP(R[-11]C[12],'Ne pas Ouvrir'!R[-16]:R[65519],7,FALSE)&""
véhicules
| comprend :"""
| Range("A18").Select
| ActiveWindow.SmallScroll Down:=7
| Range("M17").Select
| ActiveCell.FormulaR1C1 = _
| "=VLOOKUP(R[-11]C,'Ne pas Ouvrir'!R[-16]:R[65519],8,FALSE)"
| Range("M18").Select
| ActiveWindow.SmallScroll Down:=7
| Range("A24").Select
| ActiveCell.FormulaR1C1 = _
| "=""Etude remise à ""&VLOOKUP(R[-18]C[12],'Ne pas
| Ouvrir'!R[-23]:R[65512],3,FALSE)&"" le ""&R[-20]C[12]"
| Range("A25").Select
| ActiveWindow.SmallScroll Down:=5
| Range("A24").Select
| ActiveCell.FormulaR1C1 = _
| "=""Etude remise à ""&VLOOKUP(R[-18]C[12],'Ne pas
| Ouvrir'!R[-23]:R[65512],3,FALSE)&"" ce jour """
| Range("A25").Select
| ActiveWindow.SmallScroll Down:=-5
| 'Imprimer le devis en PDF
| Sheets("Facture").PrintOut
| 'supprimer le bouton dans le Previsionnel
|
| End Sub
|
|
| Merci à vous
|
| JBF
|
|
JBF
Le #17771731
bonjour,

J'insère : "Command1.Visible = False" à la fin de ma macro et ça ne marche
pas. Dois-je modifier le nom "command1"?

Merci pour ta contribution

JBF


"LE TROLL"
Bonjour,

Sur la disparition :

Command1.Visible = False

------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------



"JBF" %23h$$
| Bonjour,
|
| Corto m'a déjà aidé à ce sujet mais sans succès malheureusement. Je
| retentent ma chance auprès de vous.
|
| J'ai un "bouton" qui s'affiche lorsque j'ai une donnée en colonne F. Je
| clique sur le bouton pour générer une facture.
|
| Une fois que c'est fait, j'aimerais savoir quoi ajouter à ma macro pour
que
| le bouton qui vient de s'afficher disparaisse après que j'ai cliqué
dessus.
|
| Attention, le bouton devra réapparaître si une nouvelle cellule de la
| colonne F venait à être renseignée.
| C'est donc une suppression momentanée qu'il me faut et non pas
définitive.
|
|
| Si ça peut vous être utile, je mets les deux macros concernées par ma
| demande. La première déclenche la création de la zone de texte quand on
| ajoute une donnée dans la colonne F. La deuxième transpose les données
| lorsque l'on clique sur la zone de texte.
|
| Merci
|
|
| première macro :
|
| Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque changement
de
| valeur
| 'condition : si le changement se fait ailleurs que dans la colonne F de
| Previsionnel alors la macro sort de la procédure
| If Intersect(Target, Range("F2:F65000")) Is Nothing Then Exit Sub
| 'si colonne F<>"rien" alors ça lance la macro du Module4 :
| bouton_transformation_du_devis_en_facture
| If Intersect(Target, Range("F2:F65000")) <> "" Then
| Rows(Target.Row).Select
| 'ajoute un bouton dans l'onglet Previsionnel lorsqu'un numéro de facture
est
| inséré pour transformer le devis en facture
| ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 411#,
| 167.25, _
| 183.75, 53.25).Select
| Selection.Characters.Text = "Cliquer ici pour transformer le devis en
| facture"
| With Selection.Characters(Start:=1, Length:1).Font
| .Name = "arial"
| .FontStyle = "Normal"
| .Size = 10
| .Strikethrough = False
| .Superscript = False
| .Subscript = False
| .OutlineFont = False
| .Shadow = False
| .Underline = xlUnderlineStyleNone
| .ColorIndex = xlAutomatic
| End With
| Selection.OnAction = "renseigner_facture"
| With Selection.Font
| .Name = "arial"
| .FontStyle = "Gras"
| .Size = 10
| .Strikethrough = False
| .Superscript = False
| .Subscript = False
| .OutlineFont = False
| .Shadow = False
| .Underline = xlUnderlineStyleNone
| .ColorIndex = 1
| End With
| With Selection
| .HorizontalAlignment = xlCenter
| .VerticalAlignment = xlCenter
| .ReadingOrder = xlContext
| .Orientation = xlHorizontal
| .AutoSize = False
| End With
| 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 = msoFalse
| Selection.ShapeRange.Fill.Visible = msoTrue
| Selection.ShapeRange.Fill.ForeColor.SchemeColor = 31
| Selection.ShapeRange.Fill.OneColorGradient msoGradientDiagonalUp, 1,
| 0.45
| Selection.ShapeRange.ThreeD.SetExtrusionDirection
| msoExtrusionBottomRight
| Selection.ShapeRange.ThreeD.Depth = 5#
| Rows(Target.Row).Select
|
| End If
|
| End Sub
|
| La deuxieme macro :
|
| Sub renseigner_facture()
| Sheets("Previsionnel").Select
| Selection.Cut
| Sheets("Attente de reglement").Select
| Rows("2:2").Select
| Selection.Insert Shift:=xlDown
| Range("A1").Select
| Sheets("Previsionnel").Select
| Selection.Delete Shift:=xlUp
| Range("F2").Select
| Sheets("Facture").Select
| Range("M4").Select
| ActiveCell.FormulaR1C1 = "=TODAY()"
| Range("M6").Select
| ActiveCell.FormulaR1C1 = _
| "=VLOOKUP('Attente de reglement'!R[-4]C[-12],'Ne pas
| Ouvrir'!R[-5]:R[65530],1,FALSE)"
| Range("M5").Select
| ActiveCell.FormulaR1C1 = "=VLOOKUP(R[1]C,'Ne pas
| Ouvrir'!R[-4]:R[65531],13)"
| Range("M7").Select
| ActiveCell.FormulaR1C1 = _
| "=VLOOKUP(R[-1]C,'Ne pas Ouvrir'!R[-6]:R[65529],11,FALSE)"
| Range("M8:M9").Select
| ActiveCell.FormulaR1C1 = _
| "=VLOOKUP(R[-2]C,'Ne pas Ouvrir'!R[-7]:R[65528],3,FALSE)"
| Range("A11").Select
| ActiveCell.FormulaR1C1 = _
| "=""Mairie de ""&VLOOKUP(R[-5]C[12],'Ne pas
| Ouvrir'!R[-10]:R[65525],4,FALSE)"
| Range("A12").Select
| ActiveCell.FormulaR1C1 = _
| "=VLOOKUP(R[-6]C[12],'Ne pas Ouvrir'!R[-11]:R[65524],5,FALSE)"
| Range("A13").Select
| ActiveWindow.SmallScroll Down:=6
| Range("A17").Select
| ActiveCell.FormulaR1C1 = _
| "=""Le Diagnostic environnemental de votre parc de
| ""&VLOOKUP(R[-11]C[12],'Ne pas Ouvrir'!R[-16]:R[65519],7,FALSE)&""
véhicules
| comprend :"""
| Range("A18").Select
| ActiveWindow.SmallScroll Down:=7
| Range("M17").Select
| ActiveCell.FormulaR1C1 = _
| "=VLOOKUP(R[-11]C,'Ne pas Ouvrir'!R[-16]:R[65519],8,FALSE)"
| Range("M18").Select
| ActiveWindow.SmallScroll Down:=7
| Range("A24").Select
| ActiveCell.FormulaR1C1 = _
| "=""Etude remise à ""&VLOOKUP(R[-18]C[12],'Ne pas
| Ouvrir'!R[-23]:R[65512],3,FALSE)&"" le ""&R[-20]C[12]"
| Range("A25").Select
| ActiveWindow.SmallScroll Down:=5
| Range("A24").Select
| ActiveCell.FormulaR1C1 = _
| "=""Etude remise à ""&VLOOKUP(R[-18]C[12],'Ne pas
| Ouvrir'!R[-23]:R[65512],3,FALSE)&"" ce jour """
| Range("A25").Select
| ActiveWindow.SmallScroll Down:=-5
| 'Imprimer le devis en PDF
| Sheets("Facture").PrintOut
| 'supprimer le bouton dans le Previsionnel
|
| End Sub
|
|
| Merci à vous
|
| JBF
|
|




JBF
Le #17772331
re-bonjour,

J'ai finalement trouvé ma réponse sur Excel downloads avec ce morceau de
macro que j'ai ajouté à la mienne et ça fonctionne bien:

With ActiveSheet
For Each txt In .Shapes
If Left(txt.Name, 4) = "Text" Then
If txt.TextFrame.Characters.Text = "Cliquer ici pour transformer
le devis en facture" Then
txt.Delete
End If
End If
Next txt
End With

Merci
JBF
"JBF" %23h$$
Bonjour,

Corto m'a déjà aidé à ce sujet mais sans succès malheureusement. Je
retentent ma chance auprès de vous.

J'ai un "bouton" qui s'affiche lorsque j'ai une donnée en colonne F. Je
clique sur le bouton pour générer une facture.

Une fois que c'est fait, j'aimerais savoir quoi ajouter à ma macro pour
que le bouton qui vient de s'afficher disparaisse après que j'ai cliqué
dessus.

Attention, le bouton devra réapparaître si une nouvelle cellule de la
colonne F venait à être renseignée.
C'est donc une suppression momentanée qu'il me faut et non pas définitive.


Si ça peut vous être utile, je mets les deux macros concernées par ma
demande. La première déclenche la création de la zone de texte quand on
ajoute une donnée dans la colonne F. La deuxième transpose les données
lorsque l'on clique sur la zone de texte.

Merci


première macro :

Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque changement
de
valeur
'condition : si le changement se fait ailleurs que dans la colonne F de
Previsionnel alors la macro sort de la procédure
If Intersect(Target, Range("F2:F65000")) Is Nothing Then Exit Sub
'si colonne F<>"rien" alors ça lance la macro du Module4 :
bouton_transformation_du_devis_en_facture
If Intersect(Target, Range("F2:F65000")) <> "" Then
Rows(Target.Row).Select
'ajoute un bouton dans l'onglet Previsionnel lorsqu'un numéro de facture
est
inséré pour transformer le devis en facture
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 411#,
167.25, _
183.75, 53.25).Select
Selection.Characters.Text = "Cliquer ici pour transformer le devis en
facture"
With Selection.Characters(Start:=1, Length:1).Font
.Name = "arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.OnAction = "renseigner_facture"
With Selection.Font
.Name = "arial"
.FontStyle = "Gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
End With
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 = msoFalse
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 31
Selection.ShapeRange.Fill.OneColorGradient msoGradientDiagonalUp, 1,
0.45
Selection.ShapeRange.ThreeD.SetExtrusionDirection
msoExtrusionBottomRight
Selection.ShapeRange.ThreeD.Depth = 5#
Rows(Target.Row).Select

End If

End Sub

La deuxieme macro :

Sub renseigner_facture()
Sheets("Previsionnel").Select
Selection.Cut
Sheets("Attente de reglement").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
Sheets("Previsionnel").Select
Selection.Delete Shift:=xlUp
Range("F2").Select
Sheets("Facture").Select
Range("M4").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("M6").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP('Attente de reglement'!R[-4]C[-12],'Ne pas
Ouvrir'!R[-5]:R[65530],1,FALSE)"
Range("M5").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[1]C,'Ne pas
Ouvrir'!R[-4]:R[65531],13)"
Range("M7").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-1]C,'Ne pas Ouvrir'!R[-6]:R[65529],11,FALSE)"
Range("M8:M9").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-2]C,'Ne pas Ouvrir'!R[-7]:R[65528],3,FALSE)"
Range("A11").Select
ActiveCell.FormulaR1C1 = _
"=""Mairie de ""&VLOOKUP(R[-5]C[12],'Ne pas
Ouvrir'!R[-10]:R[65525],4,FALSE)"
Range("A12").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-6]C[12],'Ne pas Ouvrir'!R[-11]:R[65524],5,FALSE)"
Range("A13").Select
ActiveWindow.SmallScroll Down:=6
Range("A17").Select
ActiveCell.FormulaR1C1 = _
"=""Le Diagnostic environnemental de votre parc de
""&VLOOKUP(R[-11]C[12],'Ne pas Ouvrir'!R[-16]:R[65519],7,FALSE)&""
véhicules
comprend :"""
Range("A18").Select
ActiveWindow.SmallScroll Down:=7
Range("M17").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-11]C,'Ne pas Ouvrir'!R[-16]:R[65519],8,FALSE)"
Range("M18").Select
ActiveWindow.SmallScroll Down:=7
Range("A24").Select
ActiveCell.FormulaR1C1 = _
"=""Etude remise à ""&VLOOKUP(R[-18]C[12],'Ne pas
Ouvrir'!R[-23]:R[65512],3,FALSE)&"" le ""&R[-20]C[12]"
Range("A25").Select
ActiveWindow.SmallScroll Down:=5
Range("A24").Select
ActiveCell.FormulaR1C1 = _
"=""Etude remise à ""&VLOOKUP(R[-18]C[12],'Ne pas
Ouvrir'!R[-23]:R[65512],3,FALSE)&"" ce jour """
Range("A25").Select
ActiveWindow.SmallScroll Down:=-5
'Imprimer le devis en PDF
Sheets("Facture").PrintOut
'supprimer le bouton dans le Previsionnel

End Sub


Merci à vous

JBF




LE TROLL
Le #17774611
Oui, il faut mettre le nom du bouton à la place et s'il ne s'appelle pas
"Command1"

--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"JBF"
| bonjour,
|
| J'insère : "Command1.Visible = False" à la fin de ma macro et ça ne marche
| pas. Dois-je modifier le nom "command1"?
|
| Merci pour ta contribution
|
| JBF
|
|
| "LE TROLL" |
| > Bonjour,
| >
| > Sur la disparition :
| >
| > Command1.Visible = False
| >
| > ------
| > Romans, logiciels, email, site personnel
| > http://irolog.free.fr/joe.htm
|
> ------------------------------------------------------------------------------------
| >
| >
| >
| > "JBF" | > %23h$$
| > | Bonjour,
| > |
| > | Corto m'a déjà aidé à ce sujet mais sans succès malheureusement. Je
| > | retentent ma chance auprès de vous.
| > |
| > | J'ai un "bouton" qui s'affiche lorsque j'ai une donnée en colonne F.
Je
| > | clique sur le bouton pour générer une facture.
| > |
| > | Une fois que c'est fait, j'aimerais savoir quoi ajouter à ma macro
pour
| > que
| > | le bouton qui vient de s'afficher disparaisse après que j'ai cliqué
| > dessus.
| > |
| > | Attention, le bouton devra réapparaître si une nouvelle cellule de la
| > | colonne F venait à être renseignée.
| > | C'est donc une suppression momentanée qu'il me faut et non pas
| > définitive.
| > |
| > |
| > | Si ça peut vous être utile, je mets les deux macros concernées par ma
| > | demande. La première déclenche la création de la zone de texte quand
on
| > | ajoute une donnée dans la colonne F. La deuxième transpose les données
| > | lorsque l'on clique sur la zone de texte.
| > |
| > | Merci
| > |
| > |
| > | première macro :
| > |
| > | Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque
changement
| > de
| > | valeur
| > | 'condition : si le changement se fait ailleurs que dans la colonne F
de
| > | Previsionnel alors la macro sort de la procédure
| > | If Intersect(Target, Range("F2:F65000")) Is Nothing Then Exit Sub
| > | 'si colonne F<>"rien" alors ça lance la macro du Module4 :
| > | bouton_transformation_du_devis_en_facture
| > | If Intersect(Target, Range("F2:F65000")) <> "" Then
| > | Rows(Target.Row).Select
| > | 'ajoute un bouton dans l'onglet Previsionnel lorsqu'un numéro de
facture
| > est
| > | inséré pour transformer le devis en facture
| > | ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 411#,
| > | 167.25, _
| > | 183.75, 53.25).Select
| > | Selection.Characters.Text = "Cliquer ici pour transformer le devis
en
| > | facture"
| > | With Selection.Characters(Start:=1, Length:1).Font
| > | .Name = "arial"
| > | .FontStyle = "Normal"
| > | .Size = 10
| > | .Strikethrough = False
| > | .Superscript = False
| > | .Subscript = False
| > | .OutlineFont = False
| > | .Shadow = False
| > | .Underline = xlUnderlineStyleNone
| > | .ColorIndex = xlAutomatic
| > | End With
| > | Selection.OnAction = "renseigner_facture"
| > | With Selection.Font
| > | .Name = "arial"
| > | .FontStyle = "Gras"
| > | .Size = 10
| > | .Strikethrough = False
| > | .Superscript = False
| > | .Subscript = False
| > | .OutlineFont = False
| > | .Shadow = False
| > | .Underline = xlUnderlineStyleNone
| > | .ColorIndex = 1
| > | End With
| > | With Selection
| > | .HorizontalAlignment = xlCenter
| > | .VerticalAlignment = xlCenter
| > | .ReadingOrder = xlContext
| > | .Orientation = xlHorizontal
| > | .AutoSize = False
| > | End With
| > | 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 = msoFalse
| > | Selection.ShapeRange.Fill.Visible = msoTrue
| > | Selection.ShapeRange.Fill.ForeColor.SchemeColor = 31
| > | Selection.ShapeRange.Fill.OneColorGradient msoGradientDiagonalUp,
1,
| > | 0.45
| > | Selection.ShapeRange.ThreeD.SetExtrusionDirection
| > | msoExtrusionBottomRight
| > | Selection.ShapeRange.ThreeD.Depth = 5#
| > | Rows(Target.Row).Select
| > |
| > | End If
| > |
| > | End Sub
| > |
| > | La deuxieme macro :
| > |
| > | Sub renseigner_facture()
| > | Sheets("Previsionnel").Select
| > | Selection.Cut
| > | Sheets("Attente de reglement").Select
| > | Rows("2:2").Select
| > | Selection.Insert Shift:=xlDown
| > | Range("A1").Select
| > | Sheets("Previsionnel").Select
| > | Selection.Delete Shift:=xlUp
| > | Range("F2").Select
| > | Sheets("Facture").Select
| > | Range("M4").Select
| > | ActiveCell.FormulaR1C1 = "=TODAY()"
| > | Range("M6").Select
| > | ActiveCell.FormulaR1C1 = _
| > | "=VLOOKUP('Attente de reglement'!R[-4]C[-12],'Ne pas
| > | Ouvrir'!R[-5]:R[65530],1,FALSE)"
| > | Range("M5").Select
| > | ActiveCell.FormulaR1C1 = "=VLOOKUP(R[1]C,'Ne pas
| > | Ouvrir'!R[-4]:R[65531],13)"
| > | Range("M7").Select
| > | ActiveCell.FormulaR1C1 = _
| > | "=VLOOKUP(R[-1]C,'Ne pas Ouvrir'!R[-6]:R[65529],11,FALSE)"
| > | Range("M8:M9").Select
| > | ActiveCell.FormulaR1C1 = _
| > | "=VLOOKUP(R[-2]C,'Ne pas Ouvrir'!R[-7]:R[65528],3,FALSE)"
| > | Range("A11").Select
| > | ActiveCell.FormulaR1C1 = _
| > | "=""Mairie de ""&VLOOKUP(R[-5]C[12],'Ne pas
| > | Ouvrir'!R[-10]:R[65525],4,FALSE)"
| > | Range("A12").Select
| > | ActiveCell.FormulaR1C1 = _
| > | "=VLOOKUP(R[-6]C[12],'Ne pas Ouvrir'!R[-11]:R[65524],5,FALSE)"
| > | Range("A13").Select
| > | ActiveWindow.SmallScroll Down:=6
| > | Range("A17").Select
| > | ActiveCell.FormulaR1C1 = _
| > | "=""Le Diagnostic environnemental de votre parc de
| > | ""&VLOOKUP(R[-11]C[12],'Ne pas Ouvrir'!R[-16]:R[65519],7,FALSE)&""
| > véhicules
| > | comprend :"""
| > | Range("A18").Select
| > | ActiveWindow.SmallScroll Down:=7
| > | Range("M17").Select
| > | ActiveCell.FormulaR1C1 = _
| > | "=VLOOKUP(R[-11]C,'Ne pas Ouvrir'!R[-16]:R[65519],8,FALSE)"
| > | Range("M18").Select
| > | ActiveWindow.SmallScroll Down:=7
| > | Range("A24").Select
| > | ActiveCell.FormulaR1C1 = _
| > | "=""Etude remise à ""&VLOOKUP(R[-18]C[12],'Ne pas
| > | Ouvrir'!R[-23]:R[65512],3,FALSE)&"" le ""&R[-20]C[12]"
| > | Range("A25").Select
| > | ActiveWindow.SmallScroll Down:=5
| > | Range("A24").Select
| > | ActiveCell.FormulaR1C1 = _
| > | "=""Etude remise à ""&VLOOKUP(R[-18]C[12],'Ne pas
| > | Ouvrir'!R[-23]:R[65512],3,FALSE)&"" ce jour """
| > | Range("A25").Select
| > | ActiveWindow.SmallScroll Down:=-5
| > | 'Imprimer le devis en PDF
| > | Sheets("Facture").PrintOut
| > | 'supprimer le bouton dans le Previsionnel
| > |
| > | End Sub
| > |
| > |
| > | Merci à vous
| > |
| > | JBF
| > |
| > |
| >
| >
|
|
Publicité
Poster une réponse
Anonyme