bonjur,
je voudrais modifier le code suivant :
je voudrais rajouter :
- l' éffacement de la colonne AA9 à AA48
-copier les valeurs de la colonne AC9:AC48 vers AB9:AB48 (en gardant la FORMULE en AC du type (AA9 + AB9)
- effacer les valeurs de la colonne AF9 à AF48
Merci pour votre aide
Cordialement
je voudrais modifier le code suivant :
Code:
Sub Saisie()
Dim r As Byte
Dim NomFichier$
Const NomChemin$ = "\\Serveur\Partages\Gestion\
r = MsgBox("Voulez vous lancer l'effacement ?", vbYesNo, "Effacement ?")
If r = 6 Then
Sheets("commande").Unprotect Password:="LN"
Union(Cells(2, 2), Range("H9:U48")).ClearContents
Sheets("commande").Protect Password:="LN"
NomFichier = "HC" & " " & Cells(1, 2).Value & ".xls"
r = MsgBox("Voulez vous enregister le classeur sous le nom : " & NomFichier, vbYesNo, "Enregistrement ?")
If r = 6 Then ActiveWorkbook.SaveAs (NomChemin & NomFichier)
End If
End Subje voudrais rajouter :
- l' éffacement de la colonne AA9 à AA48
-copier les valeurs de la colonne AC9:AC48 vers AB9:AB48 (en gardant la FORMULE en AC du type (AA9 + AB9)
- effacer les valeurs de la colonne AF9 à AF48
Merci pour votre aide
Cordialement