Suppression de ligne KO

  • Initiateur de la discussion Initiateur de la discussion 0nicey0
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

0nicey0

XLDnaute Nouveau
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
290
Réponses
8
Affichages
480
Réponses
2
Affichages
159
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
508
Réponses
40
Affichages
3 K
Réponses
7
Affichages
254
Retour