Erreur de cellule dans ma formule

ca y est merci

bjr à tous il est 3h30 j'ai installé office 2019, refait des essais mais rien à faire. je capitule pour ce soir merci pour vos aides à venir..

Bonjour toutes et tous

j'ai essayé de créer l'userform Add_order par Userform1 à la place dans l'onglet du classeur ' Config' j'ai mis un bouton Order apparemment cela semble fonctionner

ci-joint

Note: voir fil de discussion plus bas merci

crdlt,

André

effacer

Bjr et merci andré pour ce temps généreux. par contre ça ne marche pas deux choses:

*aprés clic sur ORDER je ne peux rentrer qu'un seul article à la fois.

et même si je passe ma cmde j'ai un débogage comme ci-dessous. oupss

Re,

réponse 1: dans l'userform1

j'ai oublié de mettre en tête

Option Explicit
Public memoire As Integer

c'est pour cela que la listbox n'affichait pas la suite quand on clic sur le btn Aouter de l'userform1

j'envoie ci-joint le classeur corrigé 4

effacer

--------

réponse 2: euh là je ne vois pas pour le débogage

merci c'est mieuxmais par contre ça ne me les ajoute pas au bon de cmde PO et du coup ca me sauvegarde uniquement le bon de cmde avec la seule et unique ligne actuelle

Re,

oupss j'avais oublié de mettre les formules dans l'onglet PO

ci-joint v5

on va y arriver doucement mais prudemment

crdlt

,

André

alors là, ça me met erreur de format PDF, ça ne me rempli tjrs pas order onglet N°3, par contre ça me sauvegarde bien un bon de cmde incrémenté mais sans aucune ligne de cmde à l'intérieur. oupsss je suis désolé d'abuser de vos services.

Re,

ah la la erreur encore de ma part

remplacer dans l'userform1

Sheets(4)

par

Worksheets(4)

ci joint normalement cela doit être ok

fait mais idem

Re

effectué

on va supprimer ces deux lignes (je l'avais mis pour moi pour le chemin en cas d'erreur)
On Error GoTo oupss
et
oupss: MsgBox "Erreur de format PDF"

----------------

la çà doit être ok v7

Re,

non il y a une grosse erreur que j'ai mal copié, encore dans l'onglet Po

=SI(C23<>"";LIGNE()-22;"")

corrigé ci-dessous :

et ben désolé mais ca ne me rempli tjrs pas le BDC

et quand j'ouvre votre fichier j'ai ceci

Que des bêtises j'fais, en effectuant le copier-coller sur l'autre classeur pour voir si le format Pdf s'exécutait bien, j'ai laissé ma liaison

bon désolé rectifié

---------------------------

après il ne restera plus qu'à rajouter d'ans l'userform1 ceci :

Private Sub List_order_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If MsgBox("Voulez-vous supprimer cette entrée ?", vbYesNo) = vbYes Then
    Me.List_order.RemoveItem Me.List_order.ListIndex
    memoire = memoire - 1
    End If
End Sub

Private Sub Txt_nombre_Change()
If Not IsNumeric(txt_nombre) And txt_nombre <> "" Then
MsgBox "Désolé! uniquement des chiffres ou virgule"
txt_nombre = ""
End If
End Sub

ci-joint:

alors là ca me crée un BDC sauvegardé mais avec seulement une ligne de cmde

Re

Il fallait juste sélectionner dans l'onglet PO de B23 à G23 de descendre la croix jusqu'en bas afin de recopier toutes les formules du tableau

rectifié

ci-joint v10

super merci à vous .

vous êtes un mec sympa, au fait pourriez vous me mettre en message uniquement les lignes de prog. que vous avez ajouté pour créer le bouton annuler sur le bouton commande et l'endroit ou il faut le placer svp merci.

Re

dans l'userform1

le bouton Annuler si j'ai bien compris

Private Sub CommandButton3_Click()
' Ajouter par Andre13 le 06102020
' btn Annuler
Unload Me
End Sub

unload me pour décharger l'userform1

-----------------------------

----------------------------

crdlt,

André