XL 2016 Génerer rapport (macro)

[chermiti]

Bonsoir à tous,

je possède une base d'ordre de fabrication par semaine qui s'affiche automatiquement lors de la modification de la semaine, mon souhait est de générer un rapport après validation qui s'affiche sous la format se trouvant dans la feuille "Rapport" lors que j'appuie sur le bouton Valider

Merci d'avance

 

[sylvanu]

Bonsoir Chermiti,
Un essai en PJ.

 

[chermiti]

Bonjour Sylvanu ça Bug

 

[sylvanu]

Bonsoir Chermiti,
Désolé c'est n'importe quoi ! Ca veut dire quoi "ça Bug" ? Quel contexte, quelle erreur, ....
Evidemment je l'ai testé avant de le livrer, et ça marchait mais avec mon contexte et ma compréhension.

Pourriez vous, si c'est possible, être quelque plus disserte ?

 

[sylvanu]

Avant Valider

Après Valider

Donc conforme aux specs.

 

[chermiti]

oui merci ça marche , j'ai confondu votre fichier avec le mien merci encore une fois

 

[sylvanu]

Impeccable.
Mais rappeler vous quand même ce que j'ai dit. Il faut être près précis dans ses réponses car il y a des milliard de raisons pour que ça bug, dans le code, dans votre contexte, dans votre version d'XL... ou dans l'imcompréhension de votre requête.
Bonne journée.

 

[chermiti]

Rebonjour Sylvanu,

l'application marche à merveille, mais mon souhait est de la commencer à 0 cad effacer tout l'historique du rapport et valider, dans ce cas la , l'erreur s'affiche

 

[Staple1600]

Bonjour le fil, chermiti, sylvanu

C'est un bug bien connu 😉

Sub Avec_Bug_ICC()
Dim Ligne As Long
[A1] = "Test"
Ligne = Range("A:A").End(xlDown).Row + 1
MsgBox Ligne '-< puce à l'oreille ;-)
MsgBox Cells(Ligne, "A").Address
End Sub
Sub Sans_Bug_ICC()
Dim Ligne As Long
[A1] = "Test"
Ligne = Range("A:A").End(xlUp).Row + 1
MsgBox Cells(Ligne, "A").Address
End Sub

 

[chermiti]

Bonjour Staple , je suis novive en macro, SVP d 'attacher la macro sur l'exemple

 

[Staple1600]

Re

Pas besoin d'attacher quoi que ce soit
Testes juste les deux macros de mon précédent message sur une feuille vierge
et observe ce qui se passe
L'indice du pourquoi (potentiel) du problème est dans le commentaire en vert.

 

[chermiti]

merci infiniment ça marche 🙂

 

[Staple1600]

Re

chermiti
Qu'est ce qui marche?
Car mes deux macros n'étaient qu'illustratives
Tu as corrigé comment ton code initial qui produisait un "bug" ?

 

[chermiti]

oui t'a raison , j'ai effacé l'ancien rapport ça a bugé de nouveau , Help Please 😕

 

[Staple1600]

Re

Essaies ainsi
(puis essaies de comprendre le pourquoi du bug (toujours grâce à ma puce à l'oreille 😉)

Sub MAJ_rapport()
'PremiereLigneRapport = Sheets("Rapport").Range("A:A").End(xlDown).Row + 1

PremiereLigneRapport = Sheets("Rapport").Cells(Rows.Count, 1).End(xlUp)(2).Row
NbligneaCopier = Sheets("Feuil1").Range("A6:A1000").End(xlDown).Row - 5

For i = 6 To 5 + NbligneaCopier

    [Rapport].Cells(PremiereLigneRapport, 1) = [DateEnCours]                    'Date
    [Rapport].Cells(PremiereLigneRapport, 2) = [OF]                             'OF
    [Rapport].Cells(PremiereLigneRapport, 3) = [NoSemaine]                      'Semaine
    [Rapport].Cells(PremiereLigneRapport, 4) = [Quantite]                       'Qté

    [Rapport].Cells(PremiereLigneRapport, 5) = Sheets("Feuil1").Range("A" & i)  'Code
    [Rapport].Cells(PremiereLigneRapport, 6) = Sheets("Feuil1").Range("B" & i)  'Désignation
    [Rapport].Cells(PremiereLigneRapport, 7) = Sheets("Feuil1").Range("F" & i)  'Poids
    [Rapport].Cells(PremiereLigneRapport, 8) = Sheets("Feuil1").Range("G" & i)  'Qté UVC

    PremiereLigneRapport = PremiereLigneRapport + 1
Next i
End Sub