supprimer lles lignes hors contextes sous vba

Question

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

m@rina · Answer

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

Supprimer lles lignes hors contextes sous vba

1 réponse

Discussions similaires

Newsletters