trier et afficher sur une feuille de reporting

[totovisite]

Bonjour
Je compte sur votre aide , je débute sur vba , je suis bloqué , je n'arrive pas à correctement trier et exporter les données extraites .
Merci d'avance

 

[Fred0o]

Re : trier et afficher sur une feuille de reporting

Bonjour totovisite et bienvenue sur le forum.

Tout d'abord, je t'invite à lire la Lien supprimé et à l'appliquer. En effet, avec une demande comme la tienne, personne ne pourra t'aider. Nous manquons d'éléments pour celà. Le mieux est de poster un fichier exemple avec ton problème et la solution que tu voudrais.

A+

 

[totovisite]

Re : trier et afficher sur une feuille de reporting

Bonjour
Voici le macro qui exporter les donnees :
Sub NewExcelDoc()
'
' NewExcelDoc Macro
Dim MonFichier As String, chemin As String
Dim wbExcel As Workbook
MonFichier = "Doc_" & Format(Now, "yyyymmdd") & ".xlsx"
chemin = "J:\VBA\"
ActiveWorkbook.SaveAs Filename:=chemin & MonFichier, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
' Set wbExcel = workbooks.Insert(chemin & MonFichier)
' Set wbExcel = workbooks.Open(chemin & MonFichier)
Dim FORMAT_EXPORT As CellFormat

FORMAT_EXPORT wbExcel

Dim ws As Worksheet


Set wbExcel = wbExcel.Worksheets("Doc_")
With ws.Cells


.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
.HorizontalAlignment = xlGeneral
.ReadingOrder = xlContext
End With

Range("B2").Select
ActiveWindow.LargeScroll ToRight:=1
Range("B2:BD2").Select
Selection.Insert Shift:=xlDown
Range("A3:V3").Select
Range("V3").Activate
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("B2").Select




Application.CutCopyMode = False
Selection.Cut
Columns("G:G").Select
Rows("1:1").RowHeight = 24
Range("B1").Select
ActiveCell.FormulaR1C1 = "ID"
Range("B1").Select
ActiveCell.FormulaR1C1 = "DIAM"
Range("M1").Select
ActiveCell.FormulaR1C1 = "ANNEE_"
Range("O1").Select
ActiveCell.FormulaR1C1 = "PAS"

Range("F1").Select
ActiveCell.FormulaR1C1 = "PRESSI"
Range("I1").Select
ActiveCell.FormulaR1C1 = "RB"
Range("K1").Select
ActiveCell.FormulaR1C1 = "REVE"
Range("U1").Select
ActiveCell.FormulaR1C1 = "NUANCE"
Range("AA1").Select
ActiveCell.FormulaR1C1 = "AU"
Range("BC1").Select
ActiveCell.FormulaR1C1 = "CO"
ActiveCell("Q1").Select

Rows("1:1").Select
Selection.AutoFilter



End Sub

Il genere le fichier mais il n'exporte rien.

Et le macro qui trie :
Sub Recherche_Statut_1()

Dim statut As String, commentaire As Integer
Dim cible As String
cible = "N,A,F"

Dim Statut_avant As String
Dim Statut_apres As String
Dim N, A, F As String


Statut_avant = ""
Statut_apres = ""


If InStr(cible, Range("AM1")) = 0 Then

Statut_avant = Statut_apres
' <= la valeur à tester (ici, le statut)
N = N ' = la valeur = 5
commentaire = "5 "
MsgBox "5"
ElseIf InStr(cible, Range("AM1")) = 0 Then

N = A ' = si la valeur = 1
commentaire = "1"
MsgBox "1"
Statut_avant = Statut_apres
' <= la valeur à tester (ici, le statut)
N = A ' = la valeur = 1
commentaire = "1 "


ElseIf InStr(cible, Range("AM1")) = 0 Then
Statut_avant = Statut_apres
' <= la valeur à tester (ici, le statut)
N = F ' = la valeur = 2
commentaire = "2 "
MsgBox "2"

ElseIf InStr(cible, Range("AM1")) = 0 Then
Statut_avant = Statut_apres
' <= la valeur à tester (ici, le statut)
A = N ' = la valeur = 4
commentaire = "4"
MsgBox "4"
ElseIf InStr(cible, Range("AM1")) = 0 Then
Statut_avant = Statut_apres
' <= la valeur à tester (ici, le statut)
A = A ' = la valeur = 5
commentaire = "l'impact nul"
MsgBox "5"
ElseIf InStr(cible, Range("AM1")) = 0 Then
Statut_avant = Statut_apres
' <= la valeur à tester (ici, le statut)
A = F ' = la valeur = 2
commentaire = "2"
MsgBox "2"
ElseIf InStr(cible, Range("AM1")) = 0 Then
Statut_avant = Statut_apres
' <= la valeur à tester (ici, le statut)
F= N ' = la valeur = 4
commentaire = "4"

MsgBox "4"
ElseIf InStr(cible, Range("AM1")) = 0 Then
Statut_avant = Statut_apres
' <= la valeur à tester (ici, le statut)
F= A ' = la valeur = 3
commentaire = "3"
MsgBox "3"

ElseIf InStr(cible, Range("AM1")) = 0 Then
Statut_avant = Statut_apres
' <= la valeur à tester (ici, le statut)
F= F ' = la valeur = 5
commentaire = "l'impact nul"
MsgBox "0"

Else

Statut_avant = Statut_apres
' <= si la valeur n'est égale à aucune des valeurs ci-dessus
commentaire = "0"
End If


'Commentaire en N1
Range("H1:H33") = commentaire
'il doit insere le resultat dans la colonne du nouveau fichier
End Sub



Il ya des soucis dans les deux macros .
Cdt

Merci d'avance









Sub Recherche()
Dim cible As String

cible = "PROJET_OPTIMISATION"

If InStr(cible, Range("AM1")) = 0 Then
MsgBox "Non"
Else
MsgBox "Oui"
End If
End Sub


Sub Recherche_Statut_1()

Dim statut As String, commentaire As Integer
Dim cible As String
cible = "NDEF,APP,FIA"

 

[Fred0o]

Re : trier et afficher sur une feuille de reporting

Re-bonjour,

Avec tes seules macros, je ne paux pas faire grand chose.

Il faudrait au moins quel est ton problème, car la seule chose que je sais c'est :

je suis bloqué , je n'arrive pas à correctement trier et exporter les données extraites

Avec ceci, impossible de t'aider. Qu'est ce qui se passe qui fait que tu n'arrives pas à obtenir ton résultat ? à quelle ligne ta macro plante ? quel résultat obtiens-tu et quel résultat souhaites tu obtenir ? comment sont tes données au départ et comment souhaites-tu les avoir à la fin ?

Bref, joins un fichier exemple avec tes données et tes macros (données anonymisées) et expliques nous un peu plus ce que tu souhaites.

Pour joindre un fichier, tu vas dans "Aller en mode avancé", puis "Gérer le spièces jointes".

A+

 

[totovisite]

Re : trier et afficher sur une feuille de reporting

Bonjour
D'abord je faire le tri par Id et chercher les valeurs de statut, recuperer le numero , ce qui est sensé le faire le macro Recherche_Satut et inséré les resultats dans un feuille à exporter (voir la feuille1 ,on doit afficher ainsi).
J'ai créée plusieurs macro pour tester chaque champ .On recupere les donnees du fueilletest.

Ce macro ne genere pas d'erreur mais il ne repond pas au besoin attendu.


Le NewExcelDoc genere le doc mais il n'envoie pas les données. J'ai cree aussi le macro1 pour le méme but dans l'espoir de faire marcher au moins un macro.

Merci d'avance

 

[totovisite]

Re : trier et afficher sur une feuille de reporting

Bonjour

Je joins ci -joint le fichier excel.

D'abord je faire le tri par Id et chercher les valeurs de statut, recuperer le numero , ce qui est sensé le faire le macro Recherche_Satut et inséré les resultats dans un feuille à exporter (voir la feuille1 ,on doit afficher ainsi).
J'ai créée plusieurs macro pour tester chaque champ .On recupere les donnees du fueilletest.

Ce macro ne genere pas d'erreur mais il ne repond pas au besoin attendu.


Le NewExcelDoc genere le doc mais il n'envoie pas les données. J'ai cree aussi le macro1 pour le méme but dans l'espoir de faire marcher au moins un macro.

Merci d'avance