Effacer des cellules sous conditions + remonter des données

[Sebiwan67]

Bonjour,

Je suis novice en la matière c'est donc pour cela que je passe par ce forum car j'ai besoin d'aide.

Je réalise actuellement un fichier assez complexe pour calculer des indicateurs Sécurité Santé Environnement et j'aurais besoin pour un tableau spécifique de réaliser les actions suivantes quand on appui sur un bouton :
(Voir fichier joint, ce fichier est un exemple)


1- Effacer les celulles des colonnes Nom, Date de début et Date de fin (la colonne soit est une formule, donc pas besoin de l'effacer) si l'année de la date de fin est égale à l'année en cours sélectionnée -2 (donc ici si on choisit l'année en cours 2014 on doit effacer les cellules pour année date de fin = 2012.

2- Une fois les cellules effacées, les autres données non effacées doivent être remontées afin qu'il n'y ait pas de cellules vides dans le tableau.

J'espère avoir été clair

Merci d'avance pour votre aide.

Bonne journée

 

[vgendron]

Re : Effacer des cellules sous conditions + remonter des données

Bonjour

Avec ce code à tester dans un module VBA

Sub efface()

Dim LastLine As Integer

LastLine = Range("A4").End(xlDown).Row

For i = LastLine To 5 Step -1
    If (Year(Cells(i, 3)) = Year(Now) - 2) Then
        Rows(i).Delete
    End If
Next i
  
End Sub

 

[Sebiwan67]

Re : Effacer des cellules sous conditions + remonter des données

Merci pour les réponses.
Je testerai dès que possible.
Je vous tiendrais au courant.
Merci encore