XL 2019 Excel et VBA

[Alkp]

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]

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

 

[youky(BJ)]

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]

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

SDIS est le mot de passe

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

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

 

[Alkp]

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]

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

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]

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

 

[sylvanu]

Re,
Un essai en PJ avec cette macro :

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]

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é

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]

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)]

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]

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

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

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?