Discussion :

[grisan29]

bonjour a vous tous

ce code ne va pas dans le sens qu'il ne me recopie pas le bas de page qui fini mes factures /devis et n'efface pas les feuilles qui ont été crées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub nouvellefeuille_Click()
Dim chemin As String, vname As String
Dim plage As Range
Dim dlig As Byte
Dim code As Integer
' nouvellefacturedevis Macro
code = WorksheetFunction.Match(ActiveSheet.Range("c6"), _
    Sheets("facturation").Range("c2:c" & Sheets("facturation").Range("c65536").End(xlUp).Row), 0) + 3
Sheets("facturation").Copy
ActiveSheet.Shapes("commandbutton1").Select
    Selection.Delete
With Cells
    .Copy
    .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
End With
Range("A1").Select
Application.CutCopyMode = False
Select Case UCase(Range("D2"))
Case Is = "FACTURE", "FACTURE SAV", "FACTURE D'ACOMPTE": chemin = "C:\facture\facture\"
Case Else: chemin = "C:\facture\devis\"
End Select
vname = Range("c17") & "" & Range("I5") & ".xls"
With ActiveWorkbook
    .SaveAs Filename:=chemin & vname
    .Close
End With
With Sheets("facturation")
    dlig = .Range("C19").End(xlDown)(1).Row
    If dlig > 20 Then
        Set plage = .Range("C20:B" & .Range("C20").End(xlDown)(1).Row - 1)
        plage.EntireRow.Delete
    End If
 
    .Range("c19:p20").ClearContents
    .Range("I5:I8").ClearContents
    'incrémentation
    Select Case UCase(Range("D2"))
        Case Is = "FACTURE"
        Range("B9") = Range("B9") + 1
        Case Is = "DEVIS"
        Range("B8") = Range("B8") + 1
        Case Is = "FACTURE D'ACOMPTE"
        Range("B10") = Range("B10") + 1
        Case Is = "FACTURE SAV"
        Range("B11") = Range("B11") + 1
    End Select
End With
 
End Sub

cordialement

Pascal

[PPz78]

Bonsoir,

Lors d'une exécution pas à pas à partir de quelle instruction cela ne fonctionne pas comme tu le souhaites.

PPz

[grisan29]

bonjour PPz78

comment lance t'on une exécution pas a pas? je ne comprends pas

quand le devis ou facture est fini et enregistrer je clic sur le bouton nouvelle feuille et il me crée une nouvelle feuille en ramenant la 1ere feuile comme feuille de départ soit avec les lignes19 et 20 seules et vides
mais devrai aussi prévoir la copie du bas de page afin de l'amener sur la 1ère feuille
merci PPz78 de tes efforts etsi tu ne comprends pas n'hesite pas

cordialement

Pascal

[PPz78]

Bonsoir,

- es tu l'auteur de cette macro?
- normalement quand on clique sur nouvelle feuille on obtient un classeur vide, comment se fait-il qu'il ne le soit pas ?
- quel est ta version d'Excel ?
- est-il possible d'avoir un exemplaire de ce fichier ?
- pour lancer en pas à pas :
Alt + F8
Sélectionner la macro
Clic sur pas à pas

PPz

[grisan29]

bonjour PPz78

es tu l'auteur de cette macro?

pas entièrement car il a déjà été modifié sur le forum d'admexcel qui est maintenant fermé

normalement quand on clique sur nouvelle feuille on obtient un classeur vide, comment se fait-il qu'il ne le soit pas ?

il n'y a pas de souci comme je l'ai dit dans mon post précédent sans préciser que le classeur est bien vide

quel est ta version d'Excel ?

ofice2007 windows xp

est-il possible d'avoir un exemplaire de ce fichier ?

pas aujourd'hui car je ne suis pas chez moi mais je t'en prépare 1

Alt + F8
Sélectionner la macro
Clic sur pas à pas

un grand merci je vais essayer ce soir
cordialement
Pascal

[grisan29]

bonjour PPz78

voici le lien concernant le fichier
cordialement

Pascal