Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Rafraichir les données

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

DIGGERJACK

XLDnaute Occasionnel
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
 

Pièces jointes

Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

V
  • Question Question
Autres Exporter les données vers un autre onglet sans laisser d'espaces entre les lignes
Réponses
13
Affichages
608
Vakarm31
V
S
  • Question Question
XL 2016 Colorier dans un planning selon des dates
Réponses
2
Affichages
322
sousou
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
702
fanch55
J
  • Question Question
Power Query Aide - Fonctions pour afficher le détail des inscrits (nom, prénom date de naissance) parmi une liste de différents stages.
Réponses
6
Affichages
888
Hasco
J
  • Question Question
Microsoft 365 Comparer des cellules de même couleur
Réponses
5
Affichages
232
JHA
J
  • Question Question
Microsoft 365 supprimer des cellules sans abimer les mfc
Réponses
3
Affichages
430
bsalv
B
E
  • Résolu(e)
Microsoft 365 problème
2
Réponses
19
Affichages
919
ebe
E
  • Question Question
XL 2019 Faire référence au nom de la feuille active ( ActiveSheet )
2
Réponses
15
Affichages
603
Dranreb
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
793
lynyrd
C
  • Question Question
Microsoft 365 Incrémenter une liste par rapport à une 1ere liste
Réponses
2
Affichages
152
Chris5633
C
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
285
alexga78
A
B
  • Résolu(e)
XL 2021 Doublon à fusionner
2
Réponses
24
Affichages
681
job75
D
  • Résolu(e)
XL 2019 plusieurs critères
Réponses
5
Affichages
252
Dand87
D
  • Résolu(e)
XL 2016 *** RESOLU MERCI :)*** Impression personnalisée.
4 5 6
Réponses
78
Affichages
2 K
Agecanonix35400
R
  • Question Question
XL 2021 Filtrer un menu déroulant
Réponses
7
Affichages
849
job75
  • Question Question
XL 2021 Mise à jour d'un tableau depuis une feuille Excel
Réponses
5
Affichages
405
thunder23
A
  • Question Question
Microsoft 365 Relation entre onglets
Réponses
14
Affichages
336
alkacefa17
A
  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
406
mapomme
M
  • Question Question
Power Query Fusion Power Query
Réponses
1
Affichages
236
Cousinhub
  • Résolu(e)
Microsoft 365 Formule pour récupérer des données
Réponses
6
Affichages
235
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…