Bonjour,
Je suis un peu désemparée..
Je suis déjà venue poser une question sur ce forum et un membre de ce forum m'a gentiment dépanné. Je reviens donc.
Cela fait une semaine que je suis sur ce fichier tout fonctionne sauf cette macro qui me donne un résultat qui me semble assez aléatoire... j'ai tout relu, fait fonctionner pas à pas, essayé de modifier des détails de ma formule mais sans succès
Le but est :
Quand une personne insère une commande dans la feuille "Tableau Ca" automatiquement la feuille planning affiche toutes ces lignes et recopie les formules de la dernières lignes non vide afin de reconnaitre la dernière commande insérer. (si la commande n'a pas de "oui" dans la case étude c'est un 0 qui s'affichera et la case sera verte dû à la MFC que j'ai mise)
A savoir que je suis obligée de défiltrer car je souhaiterais qu'en temps normal ma feuille "planning" filtrent et n'affichent que les commandes qui ont un "oui" dans la case étude de la feuille du "Tableau CA".
Je vous joint mon code avec les explications et mon fichier excel sachant qu'aujourd'hui je n'arrive pas à comprendre pourquoi mon code marche une fois puis il s'arrête. Il me semble que c'est lié au fait que la commande ne soit pas en étude. Ce que je ne comprends pas car en défiltrant sur la feuille "planning" il devrait bien m'afficher toutes les commandes même celles qui affichent et un zéro et recopier la dernière ligne.
Si une âme charitable pouvait m'aider ce fichier devant être opérationnelle demain soir... Et j'ai environ 300 commandes à insérer.
Je vous remercie
Je suis un peu désemparée..
Je suis déjà venue poser une question sur ce forum et un membre de ce forum m'a gentiment dépanné. Je reviens donc.
Cela fait une semaine que je suis sur ce fichier tout fonctionne sauf cette macro qui me donne un résultat qui me semble assez aléatoire... j'ai tout relu, fait fonctionner pas à pas, essayé de modifier des détails de ma formule mais sans succès
Le but est :
Quand une personne insère une commande dans la feuille "Tableau Ca" automatiquement la feuille planning affiche toutes ces lignes et recopie les formules de la dernières lignes non vide afin de reconnaitre la dernière commande insérer. (si la commande n'a pas de "oui" dans la case étude c'est un 0 qui s'affichera et la case sera verte dû à la MFC que j'ai mise)
A savoir que je suis obligée de défiltrer car je souhaiterais qu'en temps normal ma feuille "planning" filtrent et n'affichent que les commandes qui ont un "oui" dans la case étude de la feuille du "Tableau CA".
Je vous joint mon code avec les explications et mon fichier excel sachant qu'aujourd'hui je n'arrive pas à comprendre pourquoi mon code marche une fois puis il s'arrête. Il me semble que c'est lié au fait que la commande ne soit pas en étude. Ce que je ne comprends pas car en défiltrant sur la feuille "planning" il devrait bien m'afficher toutes les commandes même celles qui affichent et un zéro et recopier la dernière ligne.
VB:
Sub inse()
Dim dlign_tableau_ca As Long 'dernière ligne non vide du tablleau de la feuille CA prévisionnel
Dim dlign_planning As Long 'dernière ligne non vide du tablleau de la feuille planning
dlign_tableau_ca = Sheets("Tableau CA Prévisionnel").Range("A7").End(xlDown).Row
dlign_planning = Sheets("Planning").Range("A9").End(xlDown).Row
Sheets("Tableau CA Prévisionnel").Rows(dlign_tableau_ca & ":" & dlign_tableau_ca).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("a" & dlign_tableau_ca).Value = "xxx"
Sheets("Planning").Select
Range("B9").Select
ActiveSheet.Range("$A$1:$CFT$14").AutoFilter Field:=2, Operator:= _
xlFilterNoFill 'je préfiltre juste le début afin de pouvoir tout défiltrer par la suite
Selection.AutoFilter ' je défiltre afin que tous les données soient affichées avant j'utilisais ActiveSheet.ShowAllData
Application.EnableEvents = False 'j'empeche qu'il aille me chercher la sub de planning
Range("A" & dlign_planning & ":H" & dlign_planning).Select ' je selectionne la dernière ligne non vide
Selection.AutoFill Destination:=Range("A" & dlign_planning & ":H" & dlign_planning + 1), Type:=xlFillDefault
Range("A" & dlign_planning & ":H" & dlign_planning + 1).Select 'je la recopie une ligne en dessous
' ca c'est la macro que j'ai enregistré pour m'en servir de model
'Rows("11:11").Select
'Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'Sheets("Planning").Select
'Selection.AutoFilter
'Range("A14:C14").Select
'Selection.AutoFill Destination:=Range("A14:C15"), Type:=xlFillDefault
'Range("A14:C15").Select
Call COCO 'sub pour refiltrer les commandes de la fuille planning'
Application.EnableEvents = True
Sheets("Tableau CA Prévisionnel").Select
End SubJe vous remercie
