Sujet Précédent Sujet Suivant

Supprimer lles lignes hors contextes sous vba

Fermé
riad4595 - 30 mai 2009 à 15:43
m@rina Messages postés 21289 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 23 janvier 2025 - 31 mai 2009 à 11:46
Bonjour,

Est ce qu'il est possible de supprimer une ligne si elle vérifie la condition suivante:

if(year(wsECF.Cells(i + 1, 11).Value)> k sachant que wsECF est le nom du fichier et k l'année en cours

Si oui pourriez vous m'aidez sur le code à mettre en place?

Cordialement
A voir également:

1 réponse

Réponse 1 / 1
m@rina Messages postés 21289 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 23 janvier 2025 11 382
31 mai 2009 à 11:46
Bonjour,

Voici un exemple. Ne sachant pas ce que représente ton i+1 pour la cellule, j'ai mis la référence de la cellule en dur avec un Range. A toi de modifier. Idem pour le nom de la feuille, car une cellule est une propriété de feuille (Sheets) et non pas de classeur (Workbook). 


Sub compare_date()
Dim annee, madate
annee = Year(Now)
madate = Workbooks("wsECF.xls").Sheets("Feuil1").Range("A1")

If IsDate(madate) = True Then
monannee = Year(madate)
Else
MsgBox "le contenu de cette cellule n'est pas une année"
Exit Sub
End If

If monannee > annee Then
MsgBox "après"  'tu mets le code qui supprime la ligne
End If
End Sub


m@rina
0