Erreur de cellule dans ma formule

Bjr tout le monde, je cré un bon de cmde et lorsque je tape cette formule ci dessous pas moyen de la valider en faisant Ctrl + Shift +entrée. ca me met en erreur la cellule PO!&C&11???

tout est ok dans cette cellule elle est en format standard, je ne comprends pas pourriez-vous m'aider svp? merci

SIERREUR(INDEX(Tableau4[Nr Article];PETITE.VALEUR(SI(Tableau4[Nr Commande]=PO!&C&11;LIGNE(Tableau4[Nr Article])-5);LIGNE()-22));"")

Bonjour,

Remplace PO!&C&11 par PO!$C$11

super merci patrice, tu es génnnnial, l'erreur était tellement grosse que je ne la voyais même pas ... faut dire que je m'initie pas à pas !! mais quand même. encopre mille merci.

re bjr j'ai une nouvelle erreur stp si tu peux m'aider merci.

Sheets(4).ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\Users\CPERARD\Desktop\sauvegarde cmde\" & Me.cbx_fournisseur & "-" & Me.Label_info.Caption, _
openafterpublish:=True

Bonjour,

Je ne vois pas d'erreur sinon que cette méthode s'applique à une feuille de calcul (Worksheet), l'objet "Sheet" n'existe pas.

Bjr patrice désolé de t'embêter à nouveau!!! voici le contexte dans lequel j'utilise cette formule sheets est le 4ème onglet de mon classeur merci de me dire si tu vois quelque chose stp.

End Sub

Private Sub CommandButton2_Click()
Dim nombre_ligne As Integer
Dim ligne As Integer
Dim dl As Integer

If Me.List_order.ListCount > 0 And Me.cbx_fournisseur.ListIndex >= 0 Then

'Demander une confirmation de la commande.
If MsgBox("Voulez-vous passer la commande?", vbYesNo) = vbYes Then

nombre_ligne = Me.List_order.ListCount - 1

For ligne = 0 To nombre_ligne
Sheets(3).ListObjects(1).ListRows.Add
dl = Sheets(3).Range("b9999").End(xlUp).Row

'Afficher nos informations dans la base de donnée Order.
Sheets(3).Range("b" & dl) = Me.Label_info.Caption
Sheets(3).Range("c" & dl) = CDate(Now())
Sheets(3).Range("d" & dl) = Me.List_order.List(ligne, 0)
Sheets(3).Range("e" & dl) = Me.List_order.List(ligne, 1)
Sheets(3).Range("g" & dl) = CCur(Me.List_order.List(ligne, 2))
Sheets(3).Range("f" & dl) = CInt(Me.List_order.List(ligne, 3))
Sheets(3).Range("i" & dl) = Me.cbx_fournisseur


Next ligne

'sauvegarder le fichier PDF

Sheets(4).Range("c11") = Me.Label_info.Caption

Sheets(4).ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\Users\CPERARD\Desktop\sauvegarde cmde\" & Me.cbx_fournisseur & "-" & Me.Label_info.Caption, _
openafterpublish:=True


Sheets(8).Range("d20") = Sheets(8).Range("d20") + 1

Unload Add_order

End If

Re,

Chez moi, ceci fonctionne (avec un chemin existant chez moi et si le pdf n'existe pas déjà) :

Option Explicit
Private Sub CommandButton2_Click()
Dim chemin As String
Dim nombre_ligne As Integer
Dim ligne As Integer
Dim dl As Integer
  If Me.List_order.ListCount > 0 And Me.cbx_fournisseur.ListIndex >= 0 Then
    'Demander une confirmation de la commande.
    If MsgBox("Voulez-vous passer la commande?", vbYesNo) = vbYes Then
      nombre_ligne = Me.List_order.ListCount - 1
      For ligne = 0 To nombre_ligne
        Worksheets(3).ListObjects(1).ListRows.Add
        dl = Worksheets(3).Range("B" & Rows.Count).End(xlUp).Row
        'Afficher nos informations dans la base de donnée Order.
        With Worksheets(3)
          .Range("b" & dl) = Me.Label_info.Caption
          .Range("c" & dl) = CDate(Now())
          .Range("d" & dl) = Me.List_order.List(ligne, 0)
          .Range("e" & dl) = Me.List_order.List(ligne, 1)
          .Range("g" & dl) = CCur(Me.List_order.List(ligne, 2))
          .Range("f" & dl) = CInt(Me.List_order.List(ligne, 3))
          .Range("i" & dl) = Me.cbx_fournisseur
        End With
      Next ligne
      'sauvegarder le fichier PDF
      Worksheets(4).Range("c11") = Me.Label_info.Caption
      chemin = "C:\Users\CPERARD\Desktop\sauvegarde cmde\"
      Worksheets(4).ExportAsFixedFormat _
              Type:=xlTypePDF, _
              Filename:=chemin & Me.cbx_fournisseur & "-" & Me.Label_info.Caption, _
              openafterpublish:=True
      Worksheets(8).Range("d20") = Worksheets(8).Range("d20") + 1
      Unload Add_order
    End If
  End If
End Sub

je suis pas à pas le tuto "DERIEN" video 3 Comment créer une gestion des stock sur Excel

et c'est à la 52ème minute environ de cette vidéo youtube que je bloque!

Slt Patrice, j'ai tout essayé j'ai même recopié le contenu de ton projet dans le mien et toujours la même erreur

je pige pas !!

Bonjour toutes et tous

coucou Patrice

@Perard

avez-vous l'installation d'Adobe Acrobat Reader DC sur votre poste ?

ou mettre à openafterpublish:=True à openafterpublish:=False

crdlt,

André

Andre13 a écrit :

avez-vous l'installation d'Adobe Acrobat Reader DC sur votre poste ?

Où n'importe quel autre lecteur pdf, pourvu qu'il soit associé dans windows

Re,

Exact Patrice -;)

bjr à vous deux, je viens d'installer adobe, je ne sais pas si il y a un rapport mais depuis ce temps là dés que j'ouvre mon fichier excel, je vais dans order et je clic sur le lanceur vba vert pour ouvrir mon questionnaire et entrer des articles dans mon bon de cmde. mais plus moyen j'ai un bip d'erreur à chaque fois et excel obligé de l'arretter avec fin de tache??

Re

bizarre çà!

1/@tester : en mode sans échec d'Excel voir si cela le fait encore ?

clic droit sur le bouton démarrer, puis, Exécuter tapez ceci:

excel.exe /safe

puis sur la touche Entrée du clavier et ouvrir votre classeur actuel Excel

-----

2/ Et avec un autre classeur avec des macro du vba cela fait-il toujours pareil ?

Pour tout vous dire âgé de 58 piges je suis sans emploi depuis 14 mois. Mais je suis actuellement sur une touche de responsable de chantier bâtiments avec donc gestion de stock, cmds, devis, factures etc....

c'est la raison pour laquelle j'ai trouvé ce tuto sympa de "derien" et je crée pas à pas ce fichier.

d'un autre côté j'ai les bases classiques Excel etc... mais jamais ce genre de prog. en VBA et Excel aussi pointu!!! enfin pour moi.

donc si je pouvais me sortir ce dossier au top d'ici quelques jours ca serait sympa.. afin de ne pas prendre le poste les mains vides et de réussir ma période d'essai. vous me comprenez, j'espère.

merci de tout cœur pour vos aides.

ca me dit Windows ne trouve pas.........

je n'ai aucun autre classeur en vba désolé

Re,

Pas de souci nous allons y arriver, ici dans ce forum, il y a des fortiches en la matière

petite question , sait-on jamais

a/ lorsque vous enregistrer votre classeur vous l'enregistrer bien ===> Type : Classeur Excel (prenant en charge les macros) ?

b/Une fois le classeur ouvert et lancé , lorsque le code tourne, faire la combinaison suivante : Controle+Arrêt défil (ou Scroll Lock). (pour voir ou cela bloque)

c/ si possible de mettre sur le forum le classeur en ôtant les trucs confidentiels

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

Note perso: Excel 2007 je l'ai abandonné car trop de problèmes

abdré, désolé mon ordi m'a fait une mise à jour de 3 hrs et au redemarage idem

pour le scrooll..... pas trouvé autre que sur le clavier virtuel

et pour mettre mon fichier sur le forum comment je procede svp?

Re,

pour mettre un fichier lors d'un post ou à la suite d'un fil de discussion

en image sera plus simple ci-dessous