Code VBA automatision d'une action
Bonjour , voici le code que j'ai créer pour automatiser une action spécifique .
Le but de ce code est qu'une fois que l'on a valider l'action spécifique celle ci revienne en automatique sur le plans d'action selon la date butoir et une fréquence définit .
Merci par avance
Bonne journée
Sub RemettreActionsValidées()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim nextRow As Long
' Définir la feuille "PA 16"
Set ws = ThisWorkbook.Sheets("PA 16")
' Trouver la dernière ligne avec des données dans la colonne G (actions)
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
' Parcourir chaque ligne à partir de la première
For i = 2 To lastRow ' En supposant que la première ligne est un en-tête
' Vérifier si le statut est "Terminé" dans la colonne L
If ws.Cells(i, 2).Value = "Terminé" Then
' Trouver la prochaine ligne vide pour ajouter l'action
nextRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
' Ajouter l'action à la fin de la liste
ws.Cells(nextRow, 1).Value = ws.Cells(i, 1).Value
' Réinitialiser le statut de l'action ajoutée
ws.Cells(nextRow, 2).Value = "À faire"
' Optionnel : Réinitialiser le statut de l'action originale
ws.Cells(i, 2).Value = "Remis"
End If
Next i
End Sub
| Personnel concerné | Identification des situations dangereuses et/ou des risques | Cotations du risque avant AC/A (criticité résiduelle) | Actions préventives/correctives projetées | Action générant une nouvelle cotation du risque ou récurrente ? | Pilote | Date butoir | Date de réalisation | État d’avancement | Cout | Référence AT | Nouvelle cotation après AC/AP | Commentaires |
| Ensemble des salariés | À la consommation d’alcool, de produits stupéfiants ou de médicaments avec effet secondaire ou indésirable (somnolence, trouble visuel…) | 4 | Réalisation de contrôle d’alcoolémie 2 fois par mois conformément à la procédure « PROC_7_10 » | À faire |
Bonjour Fanny27
Et la question/la demande est !?
A+
il faudrait me dire si mon code est bon et voici ma demande :Le but de ce code est qu'une fois que l'on a valider l'action spécifique celle ci revienne en automatique sur le plans d'action selon la date butoir et une fréquence définit .
Re,
Sans fichier, il est compliqué de l'affirmer
Vous pouvez mettre un point d'arrêt (F9) sur la ligne
Set ws = ThisWorkbook.Sheets("PA 16")Vous lancez ensuite votre code, qui va se mettre en pause sur cette ligne
Vous le faites ensuite défiler en mode pas à pas, avec la touche F8 et vous observez ainsi ce qui se passe
A+