Rafraichir les données

[DIGGERJACK]

Bonsoir le forum

En feuil 1 j'ai une liste de noms et de stages
Pour chaque stage j'ai un onglet dans lequel le nom des personnes est renseigné par USF ( non présent dans ce dossier )

Lorsque la personne à effectuer son stage je la supprime de la feuille de stage concernée

Je voudrais par macro pouvoir rafraîchir les données de la feuille 1 c'est à dire que dès que je supprime la ligne concernant une personne ex nom9 de la feuille stage 2 je voudrais que sur la feuille 1 la cellule C10 se vide du texte " A faire" et ne reste sur la ligne du nom 9 que " A faire " en B10 et " A faire" en D10
Je supprime le nom des personnes ayant effectués le stage puis sur la feuille 1 par macro les informations sont actualisées

J'ai ainsi la feuille 1 en récap des stages à faire et pour chaque stage le nom des personnes inscrites pour le stage
Ces stages concernent en réalité des rappels de sst sécurité formation incendie etc
Il y en a 10 ainsi j'adapterais sur les autres stages par la suite

Merci de votre aide

 

[GIBI]

Re : Rafraichir les données

Bonsoir,

Voici un exemple de code qui devrait faire l'affaire :

Remarque : attention le nom des onglets doit être identique au titre de colonne (Stage 3 et suivit d'un blanc dans le nom de l'onglet)
J'ai ajouté l'instruction option en tête de code

Option Compare Text ' Autrement dit, "AAA" a la même
' valeur que "aaa".

Sub ouvertureusf()
UserForm1.Show
End Sub


Sub raffraichir()
Worksheets("Feuil1").Activate
For I = 2 To Range("IV1").End(xlToLeft).Column 'pour chaque feuille stage
For L = 2 To Worksheets(Cells(1, I).Value).Range("A65000").End(xlUp).Row ' pour chaque nom du stage
For N = 2 To Range("A65000").End(xlUp).Row
If Worksheets(Cells(1, I).Value).Cells(L, 1).Value = Cells(N, 1).Value Then
Cells(N, I).Value = ""
Exit For
End If
Next N
Next L

Next I

End Sub

GIBI

 

[kjin]

Re : Rafraichir les données

Bonsoir,
A moins de ne pas avoir compris, il me semble qu'une simple formule suffit
En B2 puis tirer vers le bas, puis vers la droite
=SI(NB.SI(INDIRECT("'"&B$1&"'!$A$2:$A$100");$A2)>0;"A Faire";"")
A+
kjin

 

[DIGGERJACK]

Re : Rafraichir les données

Bonsoir GIBI kjin et le forum

Merci pour vos réponses

Les formules de Kjin fonctionnent bien mais pas la macro de GIBI

je vais voir pour adapter les formules et je vous tiens au courant

Bonne soirée