Bonsoir le forum,
j'ai la formule suivante qui fonctionne avec un bouton :
Je voudrais rajouter 2 feuilles, une appelé "remise" et l'autre "escompte" a ce code. J' ai essaié
Sheets(Array("Prix", "remise", "escompte")).Select
puis sans le Array,
mais malheureusement cela ne fonctionne pas.
pouviez m'aider a modifier le code ?
Merci de votre aide
j'ai la formule suivante qui fonctionne avec un bouton :
Private Sub Command_pj_Click()
If Not Sheets("Prix").Visible = True Then
Sheets("Prix").Visible = True
MAJControle
Worksheets("Prix").Unprotect
With Sheets("Prix")
.Range("A15:A43").AutoFilter
.Range("$A$15:$A$44").AutoFilter Field:=1, Criteria1:="<>"
End With
Worksheets("Prix").Protect
Exit Sub
Else
MsgBox ("Vous devez d'abord relancer le calcul des factures ")
End If
End Sub
Je voudrais rajouter 2 feuilles, une appelé "remise" et l'autre "escompte" a ce code. J' ai essaié
Sheets(Array("Prix", "remise", "escompte")).Select
puis sans le Array,
mais malheureusement cela ne fonctionne pas.
pouviez m'aider a modifier le code ?
Merci de votre aide