XL 2010 Macro multiple

[OISEAU1]

Bonjour le forum,

J'ai créé un petit fichier pour encaisser, facturer et suivre les entrées/sorties de trésorerie.
Je souhaite appliquer une macro pour effectuer une opération multiple en une seule fois mais n'ai pas la capacité de l'écrire ...
J'aurai besoin de votre aide pour mettre en œuvre ceci :

Lorsque je clique sur le bouton GENERER de l'onglet CAISSE, je souhaite en une seule opération:
- Sélectionner A1:G52 de l'onglet FACTURE
- Enregistrer la sélection sous PDF nommée comme cellule F48 (onglet FACTURE) et archiver dans mon répertoire FACTURES (Documents - ZEST -FACTURES)
- Sélectionner B52:E52 (onglet FACTURE) et coller les valeurs dans la première ligne vide du tableau de l'onglet JOURNAL de la colonne B à E
- Effacer les valeurs C2:C10;C13;D22;F13;F22 de l'onglet CAISSE

J'espère avoir été clair au niveau de ma demande
Merci pour votre aide et vos propositions

 

[sylvanu]

Bonjour Oiseau,
Un essai en PJ avec :

Private Sub CommandButton1_Click()
Dim Nom$, DL%, F, J, C
Set F = Sheets("FACTURE"): Set J = Sheets("JOURNAL"): Set C = Sheets("CAISSE")
Nom = F.[F48]
F.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nom, Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
DL = 1 + J.Cells(Rows.Count, "B").End(xlUp).Row
J.Range("B" & DL & ":F" & DL) = F.[B52:E52].Value
C.Range("C2:C10, C13:D22, F13, F22").ClearContents
End Sub

Le PDF est enregistré dans le même dossier que le fichier.
A tester.

 

[OISEAU1]

Bonjour Sylvanu,

Merci pour ton retour rapide
A l'épreuve je note 2 choses
Je ne trouve pas le PDF enregistré et nommé dans mon dossier
Un #N/A s'insère dans ma conne F de mon onglet JOURNAL

 

[OISEAU1]

J'ai fait un petit essai pour le #NA
J'ai changé le ":F" par ":E"

 

[sylvanu]

Un #N/A s'insère dans ma conne F de mon onglet JOURNAL

Petit bug. 😢 Rectifié en PJ

J'ai changé le ":F" par ":E"

Exact.

Je ne trouve pas le PDF enregistré et nommé dans mon dossier

Il faut que le fichier soit enregistré dans le même dossier.
J'ai fait des tests, évidemment, le pdf est bien généré dans le même dossier que le fichier.

 

[OISEAU1]

Merci beaucoup, c'est exactement ce que je voulais

Je peux te demander de jeter un œil à mes 2 macros (Private Sub Worksheet_Change)pour n'en faire qu'une seule ?

 

[sylvanu]

Re,
D'après ce que j'ai compris, vous voulez le nom en majuscules et le prénom avec la 1ere lettre en majuscule.
Si c'est ça, pourquoi pas simplement :

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Sortie
    If Not Intersect(Target, Range("C2:C3")) Is Nothing Then
        Application.EnableEvents = False
        [C2] = UCase([C2])
        [C3] = Application.Proper([C3])
    End If
Sortie:
Application.EnableEvents = True
End Sub

 

[OISEAU1]

C'est encore mieux ☺️
Le petit fichier est presque prêt à fonctionner
Un très grand merci à toi pour tes solutions

 

[sylvanu]

Tant qu'à faire, mettez aussi la ville en majuscules :

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Sortie
    If Not Intersect(Target, Range("C2:C3,C6")) Is Nothing Then
        Application.EnableEvents = False
        [C2] = UCase([C2])
        [C3] = Application.Proper([C3])
        [C6] = UCase([C6])
    End If
Sortie:
Application.EnableEvents = True
End Sub

 

[OISEAU1]

Merci mais la ville va être piochée dans une validation de données d'après le CP
Il me reste a faire quelques réglages

 

[Phil69970]

Bonjour à tous

A la bourre mais j'ai eu du monde cet après midi

Je te propose ma version

Merci de ton retour

 

[OISEAU1]

Bonjour Phil69970,

Merci pour ta version qui fonctionne très bien aussi 😊

Merci beaucoup pour vos solutions