plumpony531
XLDnaute Nouveau
Hello tout le monde, je progresse dans mon appli mais decidemment
c'est assez fastidueux alors je vous soumet mon pb
Tout d'abord je vous soumets mon code (un extrait)
En fait il s'agit de 2 colonnes que je compare. Pour chaque valeur de l'une je recherche son équivalent dans l'autre (feuille). Si je Trouve alors j'affiche dans la meme ligne que la valeur de reference les valeurs touvées dans la meme ligne que la valeur de comparaison sinon je met la valeurs de comparaison a la fin de la colonne de reference
Mon pb se situe lorsqu'une valeur de reference se trouve en mileu de colonnes et n'est pas trouvé dans la colonne de comparaison puisque je n'arrive pas a decaler cette ligne.
Une code valant mieux qu'une longue et peut etre douloureuse explication je joins mon code entier qui permettra peut etre aux bonnes ames souhaitant me repondre une meilleure comprehension.(l'integrale)
[file name=exemple2_20050519130618.zip size=22754]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple2_20050519130618.zip[/file]
c'est assez fastidueux alors je vous soumet mon pb
Tout d'abord je vous soumets mon code (un extrait)
Code:
If flag = 2 Then
With Sheets('TEMP')
For Each c In .Range('A2:a' & .Range('A2').End(xlDown).Row)
If Application.WorksheetFunction.CountIf(Sheets('GGM').Range('A2:a' & Sheets('GGM').Range('A2').End(xlDown).Row), c) > 0 Then
Feuil1.Cells(1, y).Value = MonthName(Month(Now), True)
Feuil1.Cells(x, y).Value = Feuil2.Cells(xtemp, ytemp + 1)
Feuil1.Cells(1, y + 1).Value = 'Delta Previous Month'
Feuil1.Cells(x, y + 1).Value = (Feuil2.Cells(xtemp, ytemp + 1).Value - Feuil1.Cells(x, y - 3).Value)
Feuil1.Cells(1, y + 2).Value = 'cumulated delta'
Feuil1.Cells(x, y + 2).Value = (Feuil1.Cells(x, y + 1).Value + Feuil1.Cells(x, y - 1).Value)
Else
Feuil1.Range('A2').End(xlDown).Offset(1, 0).Value = c
Feuil1.Range('A2').End(xlDown).Offset(1, 0).Select
Feuil1.Range('A2').End(xlDown).Offset(0, y - 1).Value = Feuil2.Cells(xtemp, ytemp + 1)
End If
Next c
End With
End If
x = x + 1
xtemp = xtemp + 1
En fait il s'agit de 2 colonnes que je compare. Pour chaque valeur de l'une je recherche son équivalent dans l'autre (feuille). Si je Trouve alors j'affiche dans la meme ligne que la valeur de reference les valeurs touvées dans la meme ligne que la valeur de comparaison sinon je met la valeurs de comparaison a la fin de la colonne de reference
Mon pb se situe lorsqu'une valeur de reference se trouve en mileu de colonnes et n'est pas trouvé dans la colonne de comparaison puisque je n'arrive pas a decaler cette ligne.
Une code valant mieux qu'une longue et peut etre douloureuse explication je joins mon code entier qui permettra peut etre aux bonnes ames souhaitant me repondre une meilleure comprehension.(l'integrale)
[file name=exemple2_20050519130618.zip size=22754]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple2_20050519130618.zip[/file]