adapter macro

[christine854]

bonjour a tous

j'ai une macro que je souhaite adapter pour un fichier

j'ai commencé a l'adapté mais je coince sur certains point
voici la macro
Option Explicit

Dim tablo, fb As Worksheet, ft As Worksheet, cell As Range, dte As Date, i&

Sub CONDITION ()
'on defini les variables
Dim Valeur_Test As String
Dim DerniereLigne As Integer
Dim Lig

Set ft = Sheets("TEST_VALIDATION")
Set fb = Sheets("STOCKAGE_DES_DONNEES")
'pour une lecture plus rapide des données dans le tableau résultat
tablo = ft.Range("Q2:Y" & ft.Range("Q" & Rows.Count).End(xlUp).Row)


For i = 2 To UBound(tablo, 1)
Set cell = fb.Range("A2:A" & fb.Range("A" & Rows.Count).End(xlUp).Row).Find(tablo(i, 1), LookAt:=xlWhole)
If Not cell Is Nothing Then
If IsDate(cell.Offset(0, 1)) Then
'Si le test est ok alors on test la Premières condition
If tablo(i, 25) = "L" Or "J" _
And Month(cell.Offset(0, 1)) = Month(Date) _
And Year(cell.Offset(0, 1)) = Year(Date) Then
fb.Range("C" & cell.Row & ":H" & cell.Row).Delete shift:=xlUp
cell.Offset(0, 1) = DateSerial(Year(cell.Offset(0, 1)), Month(cell.Offset(0, 1)) + 5, 1)

'puis la Deuxièmes conditions
ElseIf tablo(i, 25) = "K" And Month(cell.Offset(0, 1)) = Month(Date) _
And Year(cell.Offset(0, 1)) = Year(Date) Then
ft.Range("Q" & i & ":Y" & i).Copy ft.Range("AD" & i)
cell.Offset(0, 1) = "cumule " & cell.Offset(0, 1)

End If

'puis la Troisièmes conditions
ElseIf tablo(i, 19) > 80 And cell.Offset(0, 1) Like "cumule*" Then
fb.Range("C" & cell.Row & ":H" & cell.Row).Delete shift:=xlUp
cell.Offset(0, 1) = DateSerial(Year(Date), Month(Date) + 5, 1)



End If
'on test si l'identifiant existe Sinon, on l'ajoute à la liste avec la date de fin
Else
Cells(DerniereLigne + 1, 1).Value = Valeur_Test
End If

Next i

End Sub


je coince sur : (j'ai mis des commentaire a coté des ligne ou je coince)


For i = 2 To UBound(tablo, 1)
Set cell = fb.Range("A2:A" & fb.Range("A" & Rows.Count).End(xlUp).Row).Find(tablo(i, 1), LookAt:=xlWhole)
If Not cell Is Nothing Then
If IsDate(cell.Offset(0, 1)) Then


If tablo(i, 25) = "L" Or "J" _
And Month(cell.Offset(0, 1)) = Month(Date) _ 'doit tester dans la feuille fb
And Year(cell.Offset(0, 1)) = Year(Date) Then
fb.Range("C" & cell.Row & ":H" & cell.Row).Delete shift:=xlUp
cell.Offset(0, 1) = DateSerial(Year(cell.Offset(0, 1)), Month(cell.Offset(0, 1)) + 5, 1) 'doit saisir dans la feuille fb


ElseIf tablo(i, 25) = "K" And Month(cell.Offset(0, 1)) = Month(Date) _
And Year(cell.Offset(0, 1)) = Year(Date) Then 'la date est dans la feuille fb
ft.Range("Q" & i & ":Y" & i).Copy ft.Range("AD" & i)
cell.Offset(0, 1) = "cumule " & cell.Offset(0, 1) 'doit être saisie dans la feuille fb


ElseIf tablo(i, 19) > 80 And cell.Offset(0, 1) Like "cumule*" Then 'cumule est dans la feuille fb
fb.Range("C" & cell.Row & ":H" & cell.Row).Delete shift:=xlUp
cell.Offset(0, 1) = DateSerial(Year(Date), Month(Date) + 5, 1) 'saisie de la date dans la feuille fb

la ou j'ai mis des commentaires c'est là ou j'ai mes données mais je ne suis pas sur que dans les conditions ça correspond bien

 

[Staple1600]

Bonjour à tous

christine854 (bienvenue sur le forum)
Ne crois-tu pas qu'il serait plus simple de t'aider si tu joignais un fichier exemple pour qu'on puisse faire des tests ?

 

[Hieu]

Salut Christine,

Pourrais-tu fournir un fichier excel - sans donnees confidentielles - pour voir un peu mieux.
+ quand tu lâches un code, penses à mettre des balises.

slt staple

 

[christine854]

je vous fait un fichier exemple dans 2 min

 

[christine854]

voici le fichier

 

[Staple1600]

Re

Pourquoi il y a pas ton code VBA dans ton fichier ??

 

[christine854]

autant pour moi j'ai oublié de le mettre

 

[christine854]

trop pressée de le poster dsl

 

[Staple1600]

Re

christine854
Maintenant qu'on a le fichier,qu'on a du copier coller le VBA dedans, tu peux donner des explications plus détaillées sur ce que tu souhaites faire et quel est le résultat à obtenir ?

 

[christine854]

en gros j'ai tenté d'adapter dans ce sens là:

si L OU J dans la colonne Y de la feuille test validation et que pour l'identifiant correspondant dans la feuille stockage des donnée (en colonne A) la date de fin correspond au mois en cours -1 ; alors suppression des groupes de cellule (C a H ) de la ligne de l’identifiant (colonne C feuille stockage de données) concerné (il peut avoir plusieurs ligne avec le même identifiant)
et saisie de la date (mm/yyyy) mois en cours + 5

si K dans la colonne Y de la feuille test validation copie (voir code ) et dans la feuille stockage des données en colonne B maintenir la date mais ajouté "cumule"

si dans la feuille stockage des données en colonne B il y a "cumule" et que dans la colonne S de la feuille test validation le chiffre est supérieure a 80 alors saisie de la date (mm/yyyy) mois en cours + 5 en colonne B de la feuille stockage des donnée pour l'identifiant concerné et suppression des groupes de cellule (C a H ) de la ligne de l’identifiant (colonne C feuille stockage de données) concerné

et enfin si l'identifiant n'existe pas dans la colonne A feuille stockage des données on le rajoute avec saisie de la date (mm/yyyy) mois en cours + 5 dans la colonne B


je sais pas si ça va être compréhensible

 

[Staple1600]

Re

Une question pour finir
Le code VBA actuel est de ton cru ou écrit par un tiers?

 

[christine854]

d'un tiers légèrement modifié jamais j'aurais pu écrire ça pas le niveau

 

[christine854]

mais j’apprends au fur et a mesure

 

[christine854]

pk je me suis complétement trompé ça correspond pas a ce que je souhaite appliquer ?

 

[Staple1600]

Re

Non tout simplement pour savoir ce qu'en pense ce tiers des tes essais VBA ?
Parce que ca m'arrangerait qu'il prenne le relais au moins pour ce soir car je voudrais pouvoir aller regarder The Place Beyond the Pines sur France 4 d'ici quelques minutes.

Mais je repasserai plus tard pour voir comment évolue ta question.