S
schmail
Guest
Salut everybody
j'aimerai "mélanger" harmonieusement ces 2 macros mais je cale...
voici la macro qui copie une feuille :
Sub archive()
Sheets("archive").Rows("5:5").Insert Shift:=xlDown
Sheets("archive").Rows("5:5").Interior.ColorIndex = xlNone
MonClient = Range("d6").Value
MonObjet = Range("b5").Value
MonNum = Range("c3").Value
MonMontant = Range("h92").Value
Madate = Range("C2").Value
Worksheets("archive").Range("a5") = MonClient
Worksheets("archive").Range("b5") = MonObjet
Worksheets("archive").Range("c5") = MonNum
Worksheets("archive").Range("d5") = MonMontant
Sheets("modele74").Copy Before:=Sheets(2)
Sheets("modele74 (2)").Name = MonNum
Worksheets(MonNum).Range("c3") = MonNum
Worksheets(MonNum).Range("c2") = Madate
Sheets(MonNum).Shapes("Button 5").Delete
Msg = MsgBox("Le devis " & MonClient & " est archivé.")
Sheets("modele74").Select
MonNumPlus = Range("a4").Value
Range("a4") = MonNumPlus + 1
Range("d6").ClearContents
Range("c5").ClearContents
Range("b5").ClearContents
Range("A9:a82").ClearContents
Range("b9:b82").ClearContents
Range("i9:i82").ClearContents
Range("b7:i7").ClearContents
Range("A4").Select
End Sub
et voici la macro que j'aimerais voir executée automatiquement au moment de la copie :
Sub ChangeCellule()
For Ligne = 9 To 82
Select Case (UCase(Range("a" & Ligne).Value))
Case ""
Range("a" & Ligne).EntireRow.Hidden = True
Case Else
End Select
Next Ligne
End Sub
D'avance merci
j'aimerai "mélanger" harmonieusement ces 2 macros mais je cale...
voici la macro qui copie une feuille :
Sub archive()
Sheets("archive").Rows("5:5").Insert Shift:=xlDown
Sheets("archive").Rows("5:5").Interior.ColorIndex = xlNone
MonClient = Range("d6").Value
MonObjet = Range("b5").Value
MonNum = Range("c3").Value
MonMontant = Range("h92").Value
Madate = Range("C2").Value
Worksheets("archive").Range("a5") = MonClient
Worksheets("archive").Range("b5") = MonObjet
Worksheets("archive").Range("c5") = MonNum
Worksheets("archive").Range("d5") = MonMontant
Sheets("modele74").Copy Before:=Sheets(2)
Sheets("modele74 (2)").Name = MonNum
Worksheets(MonNum).Range("c3") = MonNum
Worksheets(MonNum).Range("c2") = Madate
Sheets(MonNum).Shapes("Button 5").Delete
Msg = MsgBox("Le devis " & MonClient & " est archivé.")
Sheets("modele74").Select
MonNumPlus = Range("a4").Value
Range("a4") = MonNumPlus + 1
Range("d6").ClearContents
Range("c5").ClearContents
Range("b5").ClearContents
Range("A9:a82").ClearContents
Range("b9:b82").ClearContents
Range("i9:i82").ClearContents
Range("b7:i7").ClearContents
Range("A4").Select
End Sub
et voici la macro que j'aimerais voir executée automatiquement au moment de la copie :
Sub ChangeCellule()
For Ligne = 9 To 82
Select Case (UCase(Range("a" & Ligne).Value))
Case ""
Range("a" & Ligne).EntireRow.Hidden = True
Case Else
End Select
Next Ligne
End Sub
D'avance merci