EXCEL ET VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

Citation:

Envoyé par patricktoulon

re
et bien soit!

Code:

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
Sub Archivage_Devis()
    Dim chemin As String, nom As String, appsep
    appsep = Application.PathSeparator
    [E3] = Date
    chemin = ThisWorkbook.Path & appsep & "Archives Devis" & appsep
    nom = [E8].Value & "-" & Format(CDate([E3]), "mmmm") & "-" & Format([K5], "0000") & ".xlsx"
    'Debug.Print chemin & nom
    '---------------------Création du fichier temporaire
    If [K5] = "" Then MsgBox "Veuillez saisir en cellule K5 le numéro du devis", , "Création abandonnée !": Exit Sub
    If MsgBox(" Si le devis est entièrement édité, veuillez confirmer" & vbCrLf & vbCrLf & _
            " l'archivage du devis n° " & nom, vbYesNo, " Veuillez confirmer pour poursuivre,") = vbYes Then
        With Application: .EnableEvents = False: .DisplayAlerts = False: End With    '-------Annulation des alertes
        [E3] = [E3].Text    ' remplace la cellule par sa valeur
        ' ActiveSheet.PrintOut copies:=1
        Sheets("Devis").Copy
        ActiveSheet.Shapes("Bouton1").Delete    ' on supprime le bouton dans le devis ".xlx"
        ActiveWorkbook.SaveAs Filename:=chemin & nom, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        ActiveWindow.Close
        '---------------------Après l'archivage le fichier se réinitialise
        Sheets("Devis").Range("E3,E4,A13:G17,A19:F22,G27").ClearContents
        Sheets("Devis").Range("K5").Value = Sheets("Devis").Range("K5").Value + 1
        ThisWorkbook.Save    'il est revenu a l'initial on le sauve comme ca on garde la numerotation a jouret quand on fermera on sera pas obligé d'enregistrer
        Application.DisplayAlerts = True   '-------rétablissement des alertes
        Application.EnableEvents = True
    End If
End Sub

ça change rien même erreur et même ligne qui apparaît au déboguage :-)

08/05/2018, 16h01
RyuAutodidacte

ok je vais te faire un code pour remplacer la ligne que tu indiques :

Code:

ActiveSheet.Shapes.Range(Array("Bouton2")).Delete

Wait je reviens …
08/05/2018, 16h08
julie13300

Citation:

Envoyé par RyuAutodidacte

ok je vais te faire un code pour remplacer la ligne que tu indiques :

Code:

ActiveSheet.Shapes.Range(Array("Bouton2")).Delete

Wait je reviens …

ok merci

et j'ai mis la dernière version, j'espère que ça ne m'a pas mis le bordel dans mes autres dossiers, j'ose même pas regarder :)

Dans les déclaration de variables, j'ai rajouté B :

Code:

Dim chemin$, Sep$, nom$, chm$, Lks, B

Dans la ligne qui pose problème :
Code:

1 2 3 4 5 'ActiveSheet.Shapes.Range(Array("Bouton2")).Delete ' Remplacer la ligne du dessus dans les 2 codes par ce qui suit : For Each B In ActiveSheet.Buttons B.Delete Next

Citation:
Envoyé par RyuAutodidacte
Dans les déclaration de variables, j'ai rajouté B :

Code:

Dim chemin$, Sep$, nom$, chm$, Lks, B

Dans la ligne qui pose problème :
Code:

1 2 3 4 5 'ActiveSheet.Shapes.Range(Array("Bouton2")).Delete ' Remplacer la ligne du dessus dans les 2 codes par ce qui suit : For Each B In ActiveSheet.Buttons B.Delete Next
VICTOIREEEEEE ;)

bon je vais modifier les cellules de ma nouvelle moulure vu que j'avais tout refait, j'espère que ça ira sinon je resterai sur l'ancienne

un grand merci à vous tous

le code dans son intégralité :

Code:

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Sub Archivage_Devis()
Dim chemin$, Sep$, nom$, chm$, Lks, B
    chemin = ThisWorkbook.Path
    PathSep = Application.PathSeparator
    nom = [D8] & "-" & Year([E3]) & "-" & Format([E3], "mmm") & "-" & Format([K5], "0000") & ".xlsx"
'---------------------Création du fichier temporaire
    If [K5] = "" Then MsgBox "Veuillez saisir en cellule K5 le numéro du devis", , "Création abandonnée !": Exit Sub
 
    If MsgBox(" Si le devis est entièrement édité, veuillez confirmer" & vbCrLf & vbCrLf & _
        " l'archivage du devis n° " & nom, vbYesNo, " Veuillez confirmer pour poursuivre,") = vbYes Then
        Application.EnableEvents = False
        Application.DisplayAlerts = False   '-------Annulation des alertes
'---------------------Nom du fichier à créer extension xlsx
        Sheets("Devis").Copy
        For Each B In ActiveSheet.Buttons
            B.Delete
        Next
 
        ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
        Lks = ActiveWorkbook.LinkSources()
        If Not IsEmpty(Lks) Then
            For i = 1 To UBound(Lks): ActiveWorkbook.BreakLink Name:=Lks(i), Type:=xlExcelLinks: Next i
        End If
 
        chm = chemin & PathSep & "Archives Devis" & PathSep & nom
 
        ActiveWorkbook.SaveAs chm, FileFormat:=xlOpenXMLWorkbook
        ActiveWindow.Close
'---------------------Après l'archivage le fichier se réinitialise
        Sheets("Devis").Range("E3,E4,A13:G17,A19:F22,G27").ClearContents
        Sheets("Devis").Range("K5").Value = Sheets("Devis").Range("K5").Value + 1
        Application.DisplayAlerts = True   '-------rétablissement des alertes
        Application.EnableEvents = True
    End If
    Application.Goto [K5]
    ActiveWorkbook.Save
End Sub
 
Sub Archivage_Factures()
Dim chemin$, Sep$, nom$, chm$, Lks, B
    chemin = ThisWorkbook.Path
    PathSep = Application.PathSeparator
    nom = [D8] & "-" & Year([E3]) & "-" & Format([E3], "mmm") & "-" & Format([K5], "0000") & ".xlsx"
'---------------------Création du fichier temporaire
    If [K5] = "" Then MsgBox "Veuillez saisir en cellule K5 le numéro de la facture", , "Création abandonnée !": Exit Sub
 
    If MsgBox(" Si la facture est entièrement éditée, veuillez confirmer" & vbCrLf & vbCrLf & _
                " l'archivage de la facture n° " & nom, vbYesNo, " Veuillez confirmer pour poursuivre,") = vbYes Then
       Application.EnableEvents = False
       Application.DisplayAlerts = False   '-------Annulation des alertes
'---------------------Nom du fichier à créer extension xls
       Sheets("Facture").Copy
        For Each B In ActiveSheet.Buttons
            B.Delete
        Next
 
        ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
        Lks = ActiveWorkbook.LinkSources()
        If Not IsEmpty(Lks) Then
            For i = 1 To UBound(Lks): ActiveWorkbook.BreakLink Name:=Lks(i), Type:=xlExcelLinks: Next i
        End If
 
        chm = chemin & PathSep & "Archives Factures" & PathSep & nom
 
        ActiveWorkbook.SaveAs chm, FileFormat:=xlOpenXMLWorkbook
        ActiveWindow.Close
'---------------------Après l'archivage le fichier se réinitialise
        Sheets("Facture").Range("E3,E4,A14:G21,F24:G24").ClearContents
        Sheets("Facture").Range("K5").Value = Sheets("Facture").Range("K5").Value + 1
        Application.DisplayAlerts = True   '-------rétablissement des alertes
        Application.EnableEvents = True
    End If
    Application.Goto [K5]
    ActiveWorkbook.Save
End Sub

Edit : Concernant cette partie là :

Citation:

J'ai eu un message de OS X (pour la SandBox) me demandant d'autoriser l'accès au dossier où l'on enregistré le fichier (je crois qu'il faut le faire au moins 1 fois).
Souci c'est que dans la boîte de dialogue impossible de sélectionner le dossier concerné normalement, j'ai dû ruser …
Pour cela j'ai fait un clic droit sur ledit dossier pour le renommer (mais on ne le renomme pas bien sur) puis j'ai sélectionner directement l'icône du dossier,
j'ai pu alors cliquer sur le bouton "Accorder l'accès" puis l'enregistrement c'est fait => macro réussi

En redémarrant le Mac aujourd'hui je n'ai plus eu le problème et j'ai pu autoriser l'accès au dossier directement avec le bouton accessible pour valider

voilà

08/05/2018, 19h00
julie13300

1 pièce(s) jointe(s)
re :)

J'ai encore besoin d'un peu d'aide svp

tout fonctionne sauf ma liste client

voici le code que j'ai mis pour aller chercher le nom et l'adresse de mes clients :
Code:

1 2 3 =SIERREUR(RECHERCHEV(F5;Clients;2;0);"Nom du client") =SIERREUR(RECHERCHEV(F5;Clients;3;0);"Adresse") =SIERREUR(RECHERCHEV(F5;Clients;4;0);"CP-VILLE")
lorsque je vais chercher dans ma liste déroulante qui se trouve en F5 une réf. client (en l'occurence je sélectionne 1) le chiffre 1 s'affiche bien dans la cellule mais je n'ai rien dans mes cellules D8, D9, D10

Je ne pense pas que là ça provienne du code VBA puisque ma formule est dans chaque cellule

merci d'avance
08/05/2018, 20h48
RyuAutodidacte
si tu regardes dans ton fichier que tu as envoyé, tu verras :
Code:

1 2 3 =SIERREUR(RECHERCHEV(E4;BaseClients;2;0);"Nom du client ") =SIERREUR(RECHERCHEV(E4;BaseClients;3;0);"Adresse ") =SIERREUR(RECHERCHEV(E4;BaseClients;4;0);"CP _ VILLE ")
Vérifies ton ancien fichier, champs nommés et les formules dans les cellules, tu devrais y voir plus claire
09/05/2018, 09h07
julie13300

1 pièce(s) jointe(s)
Citation:
Envoyé par RyuAutodidacte

si tu regardes dans ton fichier que tu as envoyé, tu verras :

Code:

1 2 3 =SIERREUR(RECHERCHEV(E4;BaseClients;2;0);"Nom du client ") =SIERREUR(RECHERCHEV(E4;BaseClients;3;0);"Adresse ") =SIERREUR(RECHERCHEV(E4;BaseClients;4;0);"CP _ VILLE ")

Vérifies ton ancien fichier, champs nommés et les formules dans les cellules, tu devrais y voir plus claire
Bonjour

J'ai vérifié ou alors il y a quelque chose que je vois pas à force de regarder trop de code :-)

mais j'ai la même formule, j'ai juste modifié E4 par F5 puisque mes codes clients seront dans F5

dans le code précédent il y avait BaseClients (je sais pas d'où il est sorti celui-là) car ma feuille de base de données est Clients, j'ai quand même testé en mettant BaseClients au lieu de Clients mais ça ne fonctionne pas plus.

Je t'envoie mon nouveau nouveau classeur, il y a peut être un truc que je vois pas, quatre yeux valent mieux que deux

Le code VBA n'a rien a y voir ?
10/05/2018, 10h42
RyuAutodidacte

Bonjour,

Est ce toi qui a fait les formules ?

=RECHERCHEV(valeur recherchée; plage contenant la valeur recherchée; numéro de colonne dans la plage contenant la valeur de retour; (facultatif) VRAI pour une correspondance approximative ou FAUX pour une correspondance exacte)

Ta formule:
=SIERREUR(RECHERCHEV(F5;Clients;2;0);"Nom du client")

=> RECHERCHEV(F5;Clients;2;0) => d'où vient Clients => censé être : plage contenant la valeur recherchée

Ce que je t'ai répondu :

Citation:

Vérifies ton ancien fichier, champs nommés et les formules dans les cellules, tu devrais y voir plus claire

je ne pense pas que tu as vérifié les champs nommés …

Donc pour Clients soit tu lui mets la plage correspondante ou tu lui mets un champ nommé avec une formule qui permettra de prendre la plage automatiquement qq soit le nb de clients (plus simple pour écrire et lire une formule par la suite)

Voilà, à toi de jouer ;)
10/05/2018, 12h44
julie13300

1 pièce(s) jointe(s)

Citation:

Envoyé par RyuAutodidacte

Bonjour,

Est ce toi qui a fait les formules ?

=RECHERCHEV(valeur recherchée; plage contenant la valeur recherchée; numéro de colonne dans la plage contenant la valeur de retour; (facultatif) VRAI pour une correspondance approximative ou FAUX pour une correspondance exacte)

Ta formule:
=SIERREUR(RECHERCHEV(F5;Clients;2;0);"Nom du client")

=> RECHERCHEV(F5;Clients;2;0) => d'où vient Clients => censé être : plage contenant la valeur recherchée

Ce que je t'ai répondu :

je ne pense pas que tu as vérifié les champs nommés …

Donc pour Clients soit tu lui mets la plage correspondante ou tu lui mets un champ nommé avec une formule qui permettra de prendre la plage automatiquement qq soit le nb de clients (plus simple pour écrire et lire une formule par la suite)

Voilà, à toi de jouer ;)

Bonjour

Oui c'est moi qui l'avait faite certainement en cherchant à droite à gauche pour avoir la formule,(car je ne suis pas du tout une pro d'excel) même si je m'en sers de plus en plus, le soucis c'est que je ne me souviens plus où j'avais trouvé cette formule

je viens d'essayer plusieurs trucs je n'y arrive pas, je vais essayer de te décortiquer ce que j'ai fait en espérant que ce soit clair (car il y a un truc où je plante mais je sais pas où)

Pour essayer de comprendre un peu mieux j'ai repris mon ancien fichier qui lui fonctionne

par contre j'ai beau me mettre sur mon onglet client, me mettre sur ma colonne A et glisser sur chaque ligne, je ne vois nulle part la dénomination BaseClients, et je sais que c'est ça qui fonctionne pas pour mon nouveau fichier

malgré tout j'ai essayé dans mon nouveau classeur de nommer la colonne A dans mon onglet clients "RefClients"
- c'est bien ce que tu me dis de faire quand tu me dis de nommer une plage ?

Pièce jointe 379144

donc ma formule devient :

Code:

=SIERREUR(RECHERCHEV(F5;RefClients;2;0);"Nom du Client ")

et ça ne fonctionne pas non plus :-(

jusque là c'est bon ? =SIERREUR(RECHERCHEV(F5;

c'est bien à partir de là que ça ne va plus ? RefClients;2;0);"Nom du client ")

Je sais pas quoi mettre, si je nomme pas ma colonne A de mon onglet client, que je laisse A1, si je mets A1 à la place de RefClients ça fonctionne pas non plus

c'est pourtant bien de cette colonne dont j'ai besoin pour faire référence au nom adresse ville de ma base de données clients
10/05/2018, 12h59
RyuAutodidacte

Re,

Oublie, les noms que tu as trouvé et et supprimes les : RefClients , … etc …

on repart de zéro pour les formules, voit c'est 2 liens en explications et exemples :
- C'est quoi une cellule nommée ?
- Comment nommer une plage de cellules dynamiquement ?

Ensuite créer ton champ nommé avec le nom que tu souhaites et tu pourras ainsi insérer celui-ci dans ta formule

PS : si on devait définir la plage manuellement, on aurait ceci : =SIERREUR(RECHERCHEV($F$5;Clients!A2:F31;2;0);"Nom du client ") par exemple
10/05/2018, 14h08
julie13300

Citation:

Envoyé par RyuAutodidacte

Re,

Oublie, les noms que tu as trouvé et et supprimes les : RefClients , … etc …

on repart de zéro pour les formules, voit c'est 2 liens en explications et exemples :
- C'est quoi une cellule nommée ?
- Comment nommer une plage de cellules dynamiquement ?

Ensuite créer ton champ nommé avec le nom que tu souhaites et tu pourras ainsi insérer celui-ci dans ta formule

PS : si on devait définir la plage manuellement, on aurait ceci : =SIERREUR(RECHERCHEV($F$5;Clients!A2:F31;2;0);"Nom du client ") par exemple

Ok merci ;)

en fait je me plantais dans nommer la cellule dynamiquement :)

tout est bon

encore un grand merci pour ta patience

bonne journée

Voir 40 message(s) de cette discussion en une page