2 macros qui s enchainent

ninanani · 16 Février 2009

Bonjour

J ai deux macros qui fonctionne bien separement, j aimerais les faire s enchainer.
C est a dire lorsque j appuis sur un bouton, la premiere macro se met en marche, puis ensuite la seconde.

Voila les macros :

La premiere

Code:

Sub save()

Sheets("paiement").Unprotect ("nina")

Dim der_lig%
der_lig = Sheets("paiement").Range("B65536").End(xlUp).Row + 1
With Sheets("Simple Invoice")
    Sheets("paiement").Range("A" & der_lig).Value = .Range("B11").Value
    Sheets("paiement").Range("B" & der_lig).Value = .Range("G5").Value
    Sheets("paiement").Range("C" & der_lig).Value = .Range("G6").Value
    Sheets("paiement").Range("D" & der_lig).Value = .Range("A19").Value
    Sheets("paiement").Range("E" & der_lig).Value = .Range("A20").Value
    Sheets("paiement").Range("F" & der_lig).Value = .Range("A21").Value
    Sheets("paiement").Range("G" & der_lig).Value = .Range("A22").Value
    Sheets("paiement").Range("H" & der_lig).Value = .Range("A23").Value
    Sheets("paiement").Range("I" & der_lig).Value = .Range("A24").Value
    Sheets("paiement").Range("J" & der_lig).Value = .Range("A25").Value
    Sheets("paiement").Range("K" & der_lig).Value = .Range("A26").Value
    Sheets("paiement").Range("L" & der_lig).Value = .Range("A27").Value
    Sheets("paiement").Range("M" & der_lig).Value = .Range("A28").Value
    Sheets("paiement").Range("N" & der_lig).Value = .Range("A29").Value
    Sheets("paiement").Range("O" & der_lig).Value = .Range("A30").Value
    Sheets("paiement").Range("P" & der_lig).Value = .Range("A31").Value
    Sheets("paiement").Range("Q" & der_lig).Value = .Range("A32").Value
    Sheets("paiement").Range("R" & der_lig).Value = .Range("A33").Value
    Sheets("paiement").Range("S" & der_lig).Value = .Range("A34").Value
    Sheets("paiement").Range("T" & der_lig).Value = .Range("A35").Value
    Sheets("paiement").Range("U" & der_lig).Value = .Range("C19").Value
    Sheets("paiement").Range("V" & der_lig).Value = .Range("C20").Value
    Sheets("paiement").Range("W" & der_lig).Value = .Range("C21").Value
    Sheets("paiement").Range("X" & der_lig).Value = .Range("C22").Value
    Sheets("paiement").Range("Y" & der_lig).Value = .Range("C23").Value
    Sheets("paiement").Range("Z" & der_lig).Value = .Range("C24").Value
    Sheets("paiement").Range("AA" & der_lig).Value = .Range("C25").Value
    Sheets("paiement").Range("AB" & der_lig).Value = .Range("C26").Value
    Sheets("paiement").Range("AC" & der_lig).Value = .Range("C27").Value
    Sheets("paiement").Range("AD" & der_lig).Value = .Range("C28").Value
    Sheets("paiement").Range("AE" & der_lig).Value = .Range("C29").Value
    Sheets("paiement").Range("AF" & der_lig).Value = .Range("C30").Value
    Sheets("paiement").Range("AG" & der_lig).Value = .Range("C31").Value
    Sheets("paiement").Range("AH" & der_lig).Value = .Range("C32").Value
    Sheets("paiement").Range("AI" & der_lig).Value = .Range("C33").Value
    Sheets("paiement").Range("AJ" & der_lig).Value = .Range("C34").Value
    Sheets("paiement").Range("AK" & der_lig).Value = .Range("C35").Value
    
    Sheets("paiement").Range("AL" & der_lig).Value = .Range("F19").Value
    Sheets("paiement").Range("AM" & der_lig).Value = .Range("F20").Value
    Sheets("paiement").Range("AN" & der_lig).Value = .Range("F21").Value
    Sheets("paiement").Range("AO" & der_lig).Value = .Range("F22").Value
    Sheets("paiement").Range("AP" & der_lig).Value = .Range("F23").Value
    Sheets("paiement").Range("AQ" & der_lig).Value = .Range("F24").Value
    Sheets("paiement").Range("AR" & der_lig).Value = .Range("F25").Value
    Sheets("paiement").Range("AS" & der_lig).Value = .Range("F26").Value
    Sheets("paiement").Range("AT" & der_lig).Value = .Range("F27").Value
    Sheets("paiement").Range("AU" & der_lig).Value = .Range("F28").Value
    Sheets("paiement").Range("AV" & der_lig).Value = .Range("F29").Value
    Sheets("paiement").Range("AW" & der_lig).Value = .Range("F30").Value
    Sheets("paiement").Range("AX" & der_lig).Value = .Range("F31").Value
    Sheets("paiement").Range("AY" & der_lig).Value = .Range("F32").Value
    Sheets("paiement").Range("AZ" & der_lig).Value = .Range("F33").Value
    Sheets("paiement").Range("BA" & der_lig).Value = .Range("F34").Value
    Sheets("paiement").Range("BB" & der_lig).Value = .Range("F35").Value
    
    Sheets("paiement").Range("BC" & der_lig).Value = .Range("G36").Value
    Sheets("paiement").Range("BD" & der_lig).Value = .Range("H36").Value
    Sheets("paiement").Range("BM" & der_lig).Value = .Range("B4").Value
    
    Sheets("paiement").Range("BG" & der_lig).Value = .Range("G37").Value
    Sheets("paiement").Range("BH" & der_lig).Value = .Range("H37").Value
    Sheets("paiement").Range("BI" & der_lig).Value = .Range("G38").Value
    Sheets("paiement").Range("BJ" & der_lig).Value = .Range("H38").Value
    
End With

UserForm7.Show

Sheets("paiement").Protect ("nina")
End Sub

Et puis la deuxieme

Code:

Sub IncrementationFactureNumero()

Sheets("Simple Invoice").Unprotect ("nina")

Dim NumberInvoiceNumber As Integer
Dim RangeInvoiceNumber As Range
Dim StringInvoiceNumber As String

Set RangeInvoiceNumber = Sheets("Simple Invoice").Range("G6")
StringInvoiceNumber = ""
With RangeInvoiceNumber
If .Value = "" Then
.Value = StringInvoiceNumber & " " & Format(0, "0")
End If
End With
NumberInvoiceNumber = Val(Mid(RangeInvoiceNumber, Len(StringInvoiceNumber) + 1))
NumberInvoiceNumber = NumberInvoiceNumber + 1
RangeInvoiceNumber = StringInvoiceNumber & " " & Format(NumberInvoiceNumber, "0000")

Range("B11,C19,C20,C21,C22,C23,C24,C25,C26,C27,C28,C29,C30,C31,C32,C33,C34,C35,F19,F20,F21,F22,F23,F24,F25,F26,F27,F28,F29,F30,F31,F32,F33,F34,F35,G37,G38,G39,H37,H38,H39,B4,A19:B19,A20:B20,A21:B21,A22:B22,A23:B23,A24:B24,A25:B25,A26:B26,A27:B27,A28:B28,A29:B29").ClearContents
Range("A30:B30,A31:B31,A32:B32,A33:B33,A34:B34,A35:B35,G37,H37,G38,H38,G39,H39").ClearContents

Sheets("Simple Invoice").Protect ("nina")

End Sub

Desole pour cette question qui doit vous paraitre forte evidente, mais je ne sais vraiment pas comment faire.

Merci de votre aide.

WILFRIED · 16 Février 2009

Re : 2 macros qui s enchainent

Salut,

Code:

sub enchainement

call macro1
call macro2

end sub

puis tu applique la macro enchainement à ton bouton. Les call ne sont pas obligatoire mais je trouve qu'il facilite la lecture.

A+

ninanani · 16 Février 2009

Re : 2 macros qui s enchainent

Re WILFRIED

OUHA, merci ca marche, geniall..

2 macros qui s enchainent

ninanani

XLDnaute Occasionnel

WILFRIED

XLDnaute Impliqué

ninanani

XLDnaute Occasionnel

Discussions similaires