XL 2016 Génerer rapport (macro)

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Décembre 2019

• #2

Bonsoir Chermiti,
Un essai en PJ.

 

Pièces jointes

• OF (1)-2-1(V2).xlsm

  87 KB · Affichages: 13

Vote positif 0 Vote négatif

C

chermiti

XLDnaute Occasionnel

• 7 Décembre 2019

• #3

Bonjour Sylvanu ça Bug

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Décembre 2019

• #4

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 ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Décembre 2019

• #5

Avant Valider

Après Valider

Donc conforme aux specs.

 

Vote positif 0 Vote négatif

C

chermiti

XLDnaute Occasionnel

• 7 Décembre 2019

• #6

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Décembre 2019

• #7

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.

 

Vote positif 0 Vote négatif

C

chermiti

XLDnaute Occasionnel

• 7 Décembre 2019

• #8

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2019

• #9

Bonjour le fil, chermiti, sylvanu

C'est un bug bien connu

VB:

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

 

Vote positif 0 Vote négatif

C

chermiti

XLDnaute Occasionnel

• 7 Décembre 2019

• #10

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2019

• #11

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.

 

Vote positif 0 Vote négatif

C

chermiti

XLDnaute Occasionnel

• 7 Décembre 2019

• #12

merci infiniment ça marche

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2019

• #13

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" ?

 

Vote positif 0 Vote négatif

C

chermiti

XLDnaute Occasionnel

• 7 Décembre 2019

• #14

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2019

• #15

Re

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

VB:

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

 

Vote positif 0 Vote négatif