Suppression de ligne KO

[0nicey0]

Bonsoir,

je n'y comprends rien ( je ne suis pas experte non plus) mais je demande dans mon code de regarder l'année dans une cellule et si elle difère de 2011, de supprimer la ligne sinon, mettre en préfixe la période renseignée dans un input box.

Soit par exemple: année 2012 ==> ligne supprimée
année 2011 ==> si période est T1 alors dans la cellule de la date: T1-2011

mais mon code grrrrr ne fonctionne pas:

Sub AJCK_SuppressionLignes()
Dim i As Integer
Dim IndicateurPeriode As String
IndicateurPeriode = InputBox("Préciser de quelle période il s'agit", "Indicateur de Période", "T3")

'Suppression des éléments dont la date n'est pas celle du moment de traitement 'Renommage des champs de la colonne année en faisant précéder l'année par la période quand la date correspond à la date de traitement

'Pour chaque lignes du tableau comparer le champ " Année " en colonne " C " avec l'année en cours
'Si les deux diffèrent, alors supprimer la ligne.
'Si les deux dates ( date de retraitement et date du fichier ) sont identiques, rajouter dans le champ " Année " la période (Trimestre ou Semestre) dans la colonne " Année "

FichierAJCK.Sheets("Extract_Act_Ajc_et_KEuro").Range("AC2").Select
NbreLignes = Range(Selection, Selection.End(xlDown)).Rows.Count
AnneeEnCours = Year(DateRetraitement)
For i = 1 To NbreLignes

If Cells(1 + i, 3).Value = AnneeEnCours Then Cells(1 + i, 3).Value = IndicateurPeriode & "-" & AnneeEnCours

If Cells(1 + i, 3).Value <> AnneeEnCours Then
Cells(1 + i, 3).Select
Selection.EntireRow.Delete

End If
Next i
End Sub

par ailleurs lamacro va jusqu'à la dernièreligne de la feuille et non à celle du tableau

Please help

Merci d'avance

 

[Paritec]

Re : Suppression de ligne KO

bonsoir onicey le forum
et si tu nous mettais un petit fichier ? avec tes explications dedans
a+
papou

 

[flyonets44]

Re : Suppression de ligne KO

Bonjour
Modification à apporter à ton code
Application.Goto reference:=Range("AC2"), Scroll:=True
Application .screenupdating= false ' pour accélerer le traitement
nbrelignes= Range("AC65536").End(xlUp).Row 'nbre de lignes réellement occupées
Cells(1 + i, 3).EntireRow.Delete ' pas nécessaire d'utiliser select
Cordialement
Flyonets