Relier un bouton a une macro

[jack 64]

bonsoir le forum
Voila le probleme je n'arrive pas a relier le bouton copie facturation
a la macro.
L'autre probleme la copie de ligne sur la feuille faturation ne recopie pas
le delai.et la formule en cours et retard.

merci pour votre aide....

 

[fred65200]

Re : Relier un bouton a une macro

bonsoir

pour le code du bouton

Private Sub CommandButton3_Click()
Macro3
End Sub

pour tes formules, il faut les écrire dans le code

Sub Macro3()
    Sheets("Facture").Select
    Application.Goto Reference:="DerniereLigne"
    Selection.EntireRow.Insert
    ActiveCell.FormulaR1C1 = "=Facture!R5C6"
    ActiveCell.Offset(0, 1).Range("A1").FormulaR1C1 = "=Facture!R5C4"
    ActiveCell.Offset(0, 3).Range("A1") = Now()
    ActiveCell.Offset(0, 4).Range("A1").FormulaR1C1 = "=Facture!R11C4"
    ActiveCell.Offset(0, 5).Range("A1").FormulaR1C1 = "=Facture!R40C6"
    ActiveCell.Offset(0, 6).Range("A1").FormulaR1C1 = "=Facture!R43C6"
    ActiveCell.Offset(0, 7).Range("A1").FormulaR1C1 = "=Facture!R10C3"
    ActiveCell.Offset(0, 8).Range("A1").FormulaR1C1 = "=IF(RC[-1]=0,"""",RC[-1]-R1C1)"
     ActiveCell.Offset(0, 9).Range("A1").FormulaR1C1 = "=IF(RC[-3]="""","""",IF(RC[-2]<>"""",""réglée"",IF(AND(R1C1>RC[-2],RC[-1]<=0),""Retard"",""En Cours"")))"

je n'ai pas tout bouleversé pour que tu t'y retrouves

cordialement

 

[jack 64]

Re : Relier un bouton a une macro

merci fred 65200
ca marche
le plus gros sousi pour moi ces
le reste de la formule que g signaler
merci

 

[fred65200]

Re : Relier un bouton a une macro

😕😕

pour tes formules, il faut les écrire dans le code

Sub Macro3()
    Sheets("Facture").Select
    Application.Goto Reference:="DerniereLigne"
    Selection.EntireRow.Insert
    ActiveCell.FormulaR1C1 = "=Facture!R5C6"
    ActiveCell.Offset(0, 1).Range("A1").FormulaR1C1 = "=Facture!R5C4"
    ActiveCell.Offset(0, 3).Range("A1") = Now()
    ActiveCell.Offset(0, 4).Range("A1").FormulaR1C1 = "=Facture!R11C4"
    ActiveCell.Offset(0, 5).Range("A1").FormulaR1C1 = "=Facture!R40C6"
    ActiveCell.Offset(0, 6).Range("A1").FormulaR1C1 = "=Facture!R43C6"
    ActiveCell.Offset(0, 7).Range("A1").FormulaR1C1 = "=Facture!R10C3"
   [B] [SIZE=3][COLOR=Red]ActiveCell.Offset(0, 8).Range("A1").FormulaR1C1 = "=IF(RC[-1]=0,"""",RC[-1]-R1C1)"
     ActiveCell.Offset(0, 9).Range("A1").FormulaR1C1 = "=IF(RC[-3]="""","""",IF(RC[-2]<>"""",""réglée"",IF(AND(R1C1>RC[-2],RC[-1]<=0),""Retard"",""En Cours"")))"[/COLOR][/SIZE][/B]