Erreur de compilation
g
Bonjour à tous,
Voilà je me retrouve avec cette erreur (voir capture PJ) depuis aujourd'hui, je suis passé de excel 2010 (32bit) à office 365 pro plus avec excel 2016 (32bit)
Quand je regarde dans la macro voici ce qu'elle génère comme erreur voir PJ (autre capture d'écran)
Voici la totalité du code utilisé. J'ai cherché quelques solutions sur internet mais je n'ai encore rien trouvé qui pourrait ressembler à mon problème.
Je vous remercie de l'attention que vous porterez à mon problème.
Option Explicit
Sub AddLigne()
Dim lig&: Worksheets("Accueil").Select
Application.ScreenUpdating = False
Sheets("Demandes").Select
ActiveSheet.Unprotect "Confections"
Sheets("Bordereau").Select
ActiveSheet.Unprotect "Confections"
Sheets("Accueil").Select
ActiveSheet.Unprotect "Confections"
With Worksheets("demandes")
If IsEmpty([B2]) Or IsEmpty([E2]) Or IsEmpty([B4]) _
Or IsEmpty([B8]) Or IsEmpty([B12]) Then Exit Sub
lig = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lig, 1) = [B2] ' N° demande
.Cells(lig, 3) = [E2] ' Date
.Cells(lig, 4) = [B4] ' Emetteur
.Cells(lig, 5) = [B6] ' Zone de production
.Cells(lig, 6) = [B8] ' Opération
.Cells(lig, 7) = [B12] ' Type de travaux
.Cells(lig, 8) = [B14] ' N° dessin
.Cells(lig, 9) = [B16] ' Quantité
.Cells(lig, 10) = [B18] ' Symbole
.Cells(lig, 11) = [B10] ' Compte
.Cells(lig, 12) = [B20] ' Délai demandé
.Cells(lig, 13) = [B22] ' Commentaires
End With
Dim lig1&: Worksheets("Accueil").Select
Application.ScreenUpdating = False
With Worksheets("Bordereau")
If IsEmpty([B2]) Or IsEmpty([E2]) Or IsEmpty([B4]) _
Or IsEmpty([B8]) Or IsEmpty([B12]) Then Exit Sub
.[C2] = [B2] ' N° demande
.[F2] = [E2] ' Date
.[C5] = [B4] ' Emetteur
.[F5] = [B6] ' Zone de prod
.[C9] = [B8] ' Type de travaux
.[C11] = [B12] ' Désignation pdt
.[C14] = [B14] ' Dessin / Doc
.[F14] = [B18] ' Symbole
.[C16] = [B16] ' Quantité
.[F16] = [B10] ' Compte / N° OF
.[C18] = [B22] ' Observations
.[D20] = [B20] ' Délai
' effacement des données de Feuil1 =>
' c'est prêt pour une nouvelle saisie
For lig1 = 4 To 20 Step 2
Cells(lig1, 2).ClearContents
Next lig1
[B22:E25].ClearContents: [B2].Select
End With
[B2] = "2019-" & Format(Val(Right$([B2], 4)) + 1, "0000")
Range("B20").Select
ActiveCell.FormulaR1C1 = "=TODAY()+60"
Sheets("Demandes").Select
ActiveSheet.Protect "Confections"
Sheets("Bordereau").Select
ActiveSheet.Protect "Confections"
Sheets("Accueil").Select
ActiveSheet.Protect "Confections"
ActiveWorkbook.Save
Sheets("Bordereau").Select
End Sub
Bonjour,
Aller dans le ruban VBA > Outils > Références... et décocher la(les) références déclarées manquantes.
A+
g
Bonjour Galopin,
Merci pour ton aide précieuse, c'est pas grand chose mais il faut le savoir.