copie d'1 feuille+execution autod'1 macro

  • Initiateur de la discussion schmail
  • Date de début
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
 
M

Mytå

Guest
Bonsoir le forum et schmail

Avant le End Sub de ta macro 1 insere

call ChangeCellule

smiley_417.gif
 

Discussions similaires

Réponses
3
Affichages
791

Statistiques des forums

Discussions
314 645
Messages
2 111 536
Membres
111 184
dernier inscrit
amiko