XL 2019 Excel et VBA

Alkp · 22 Juin 2022

Bonjour à tous, je suis entrain de traiter sur une application de gestion d'une pharmacie mais je suis buté à beaucoup de difficultés.
1. Sur ma feuille 'SORTIE' je n'arrive pas à récupérer le prix unitaire et le prix total qui doit trouvé automatiquement après la validation de la sortie
2. J'aimerais que la sortie d'un produit me crée aussi automatiquement une facture Imprimable sur la feuille 'FAC'. Svp je suis bloqué depuis quelques jours. Merci d'avance à vous tous!

sylvanu · 22 Juin 2022

Bonjour Alkp,
Vos feuilles sont protégées.

youky(BJ) · 22 Juin 2022

Bonjour Alkp, bonjour Sylvanu,
J'ai fait ce fichier que voici à la demande d'un dispensaire de Madagascar.
La demande proviens de ce forum il y a quelque années.
Il régit les données d'une pharmacie aussi de soins et autres.
Comme facture c'est un ticket de caisse.
A voir si il vous intéresse.
Bruno

Alkp · 22 Juin 2022

sylvanu à dit:
Bonjour Alkp,
Vos feuilles sont protégées.

SDIS est le mot de passe

sylvanu à dit:
Bonjour Alkp,
Vos feuilles sont protégées.

Bonjour Sylvain, le mot de passe c'est 'SDIS', merci

Alkp · 22 Juin 2022

youky(BJ) à dit:
Bonjour Alkp, bonjour Sylvanu,
J'ai fait ce fichier que voici à la demande d'un dispensaire de Madagascar.
La demande proviens de ce forum il y a quelque années.
Il régit les données d'une pharmacie aussi de soins et autres.
Comme facture c'est un ticket de caisse.
A voir si il vous intéresse.
Bruno

Bonjour youky(BJ), je vais y jeter un coup d'œil, merci beaucoup

sylvanu · 22 Juin 2022

Bonsoir,
Un essai en PJ pour le premier point avec :

VB:

Prix unitaire :
=RECHERCHEV(A16;'Pharmacie centrale'!$B$4:$E$1000;4;FAUX)
Alerte sur stock :
=SI(RECHERCHEV(A16;'Pharmacie centrale'!$B$4:$E$1000;3;FAUX)<B16;"Quantité demandée supérieure au stock";"")

Pour le second point, pas compris.
Dans FAC il s'agit d'une recopie de Sortie ?

Alkp · 23 Juin 2022

Bonjour, exactement, c'est une recopie, merci beaucoup

sylvanu · 23 Juin 2022

Re,
Un essai en PJ avec cette macro :

VB:

Sub Worksheet_Activate()
    Dim DL%, i%, Lecr%
    ActiveSheet.Unprotect ("SDIS")                      ' Déprotection
    Application.ScreenUpdating = False
    Range("A9:D" & Range("A65500").End(xlUp).Row - 1).ClearContents
    Lecr = 9                                            ' Init pointeur écriture
    With Sheets("SORTIE")
        For i = 3 To .Range("A65500").End(xlUp).Row
            If .Cells(i, "B") <> 0 Then                 ' Si quantité non nulle
                Cells(Lecr, "A") = .Cells(i, "B")       ' Qté
                Cells(Lecr, "B") = .Cells(i, "A")       ' Description
                Cells(Lecr, "C") = .Cells(i, "D")       ' PU
                Cells(Lecr, "D") = .Cells(i, "E")       ' PT
                Lecr = Lecr + 1
                Rows(Lecr).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' Insère ligne
            End If
        Next i
    End With
    DL = Range("A65500").End(xlUp).Row
    Rows(Lecr + 1 & ":" & DL - 1).Delete Shift:=xlUp    ' Supprime lignes inutiles
    ActiveSheet.Protect "SDIS", True, True, , True      ' Protection
End Sub

La macro s'exécute automatiquement lorsqu'on sélectionne la feuille FAC.

Alkp · 23 Juin 2022

youky(BJ) à dit:
Bonjour Alkp, bonjour Sylvanu,
J'ai fait ce fichier que voici à la demande d'un dispensaire de Madagascar.
La demande proviens de ce forum il y a quelque années.
Il régit les données d'une pharmacie aussi de soins et autres.
Comme facture c'est un ticket de caisse.
A voir si il vous inté

Alkp à dit:
Bonjour youky(BJ), je vais y jeter un coup d'œil, merci beaucoup

Bonjour youky, oui c'est presque la même vision que j'avais juste le numéro de ticket ne bouge pas il est toujours à 48, revoyez aussi svp la feuille d'inventaire, les données sont superposées. Merci pour votre réponse.

Alkp · 23 Juin 2022

youky(BJ) à dit:
Bonjour Alkp, bonjour Sylvanu,
J'ai fait ce fichier que voici à la demande d'un dispensaire de Madagascar.
La demande proviens de ce forum il y a quelque années.
Il régit les données d'une pharmacie aussi de soins et autres.
Comme facture c'est un ticket de caisse.
A voir si il vous intéeaucoup youky

youky(BJ) · 23 Juin 2022

Bonjour tous,
revoici le fichier modifié j'ai corrigé les bugs.
La dernière version de ce fichier ayant encore bien évolué avec des représentants et crédits possible.
J'ai mis sur le forum un fichier intermédiaire.
Voici corrigé
Bruno

PS j'ai aussi ajouté un feuille AIDE

Danywarano · 22 Novembre 2023

youky(BJ) à dit:
Bonjour tous,
revoici le fichier modifié j'ai corrigé les bugs.
La dernière version de ce fichier ayant encore bien évolué avec des représentants et crédits possible.
J'ai mis sur le forum un fichier intermédiaire.
Voici corrigé
Bruno

PS j'ai aussi ajouté un feuille AIDE

youky(BJ) à dit:

Bonjour tous,
revoici le fichier modifié j'ai corrigé les bugs.
La dernière version de ce fichier ayant encore bien évolué avec des représentants et crédits possible.
J'ai mis sur le forum un fichier intermédiaire.
Voici corrigé
Bruno

PS j'ai aussi ajouté un feuille AIDE

Cliquez pour agrandir...

Bonjour Youky(BJ), l’impression se fait automatiquement après validation de la commande?

Et aussi, peut-on réinitialiser la BD sans que ça n’impacte le fichier XL?

XL 2019 Excel et VBA

Alkp

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

Alkp

XLDnaute Nouveau

Alkp

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Alkp

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Alkp

XLDnaute Nouveau

Alkp

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

Danywarano

XLDnaute Nouveau

Discussions similaires