Discussion :

[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)
Test indicateurs.xlsx

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

[Nico Chg]

Bonjour,

Peux tu poster une image de ta feuille plutôt ? Je ne suis pas chez moi, et je n'ouvre pas les classeurs en PJ.

Sinon quelques bouts de codes qui peuvent peut être t'aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Format(Now(), "yyyy")     'Donne la date en année
Worksheet("LaFeuille").Row(5).Delete Shift:=xlUp     'Supprime la ligne 5 et remonte toutes les autres lignes

[had4789]

Bonjour,

Essais ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 Sub delete()
Application.DisplayAlerts = False
 
Dim i As Integer
 
Sheets("Feuil1").Select
 
 
With ThisWorkbook.Sheets("Feuil1")
'Précisez le nom de votre feuille
            For i = .Range("C" & .Rows.count).End(xlUp).Row To 2 Step -1
 
'Rows.count permet de retourner le nombre de ligne de la plage range
                        If Year(Range("C" & i)) = Year(Date)-2 Then
'Je suppose que la date de fin est dans la colonne c
      .Rows(i).delete
 
                        End If
            Next i
End With
 
 
 
 
End Sub

[Sebiwan67]

Voici l'image du fichier :

[had4789]

C'est exactement ce que fait mon code.

Tu dois juste remplacer feuille 1 par le nom de ta feuille.

Après tu crées ton bouton et tu lui attribues la macro

A plus

[Nico Chg]

Je pense que le code de had4789 devrait marcher.

Sinon voici encore quelques exemple de code pouvant t'aiguiller:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Format(Now(), "yyyy")                                                                         'Donne la date du jour en année
Year(DateFin)                                                                                 'Donne l'année correspondant à la DateFin
LastLine = Worksheets("UneFeuille").Columns(1).Find("*", , , , xlByRows, xlPrevious).Row      'Donne la dernière ligne utilisée
For I = LastLine to 0 step -1                                                                 'Permet de boucler "à l'envers", c'est à dire en partant du bas vers le haut (Ce qui est mieux quand on supprime des lignes)
If Year(DateFin) >= Format(Now(), "yyyy") then                                                'Si l'année de DateFin est inférieur ou égale a l'année actuelle, alors ...

[Sebiwan67]

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