Discussion :

[Akhlan]

Bonjour,

je reviens vers vous car j'ai un nouveau soucis avec Excel...

J'ai détaillé sur l'onglet "ADAM" et sur l'onglet "Résumé_FEX" mes problèmes...

Voici le code mis en place...

Code :

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

1
2
3
4
5
6
7
Dim NbrOui As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
    Ligne = ActiveCell.Row
    NbrOui = Application.WorksheetFunction.CountIf(Range("C" & Ligne & ":O" & Ligne), "Oui")
    If NbrOui < "4" Then Range("P" & Ligne).Value = NbrOui & " validation(s) sur 4"
    If Range("P" & Ligne) <> "" And NbrOui >= 4 Then Range("P" & Ligne).Value = "Validé le  " & Date
End Sub

- Je ne voudrai pas que les lignes 1 et 2 soit affectées par ce code
- J'ai 20 feuilles identiques dans mon fichier Excel (hormi le premier onglet), il y a t'il moyen que la macro se fasse depuis "ThisWorkBook" avec un Worksheet activated ou un truc comme ça pour ne pas à avoir à écrire le code sur chaque onglet (je pense que j'ai tourné autour de la solution... mais sans la trouver...)
- Ensuite et c'est là que je galère vraiment... Je voudrai que la valeur l'onglet "ADAM" / colonne P aille sur l'onglet Résumé_FEX en cellule F sur la ligne qui correspond à la valeur de la colonne A de la feuille "ADAM" -même à relire c'est compliqué ^^)

J'espère que vous aurez une solution rapidement, il me reste 2 jours de boulot avant un repos bien mérité ^^ Sinon, ça sera pour mon retour

D'avance merci
Akhlan

[Akhlan]

J'ai avancé sur le fichier...

Ça fonctionnait (mieux...) et je ne sais pas du tout ce que j'ai fait mais maintenant (sur l'onglet "Feuille Vierge" par exemple), si je passe une des cellules C3 à O3 à oui, j'ai un beau plantage :-(

La macro se trouve sur "ThisWorkBook" et est censée être active par rapport à l'onglet sur lequel on se situe...

Là, comme mon fichier, je bug....

PS : si on enlève " On Error Resume Next" le message d'erreur sera peut-être plus parlant pour vous

Akhlan

[Daniel.C]

Bonjour,

Mets le code suivant dans "ThisWorkbook :

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Row > 2 Then Exit Sub
    Ligne = ActiveCell.Row
    NbrOui = Application.WorksheetFunction.CountIf(Range("C" & Ligne & ":O" & Ligne), "Oui")
    If NbrOui < "4" Then Range("P" & Ligne).Value = NbrOui & " validation(s) sur 4"
    If Range("P" & Ligne) <> "" And NbrOui >= 4 Then Range("P" & Ligne).Value = "Validé le  " & Date
End Sub

Mais est-ce que la macro s'applique à toutes les feuilles ?

Je voudrai que la valeur l'onglet "ADAM" / colonne P

Est-ce qu'il s'agit de toutes les cellules de la colonne P ? Est-ce qu'il s'agit uniquement de la feuille ADAM ? Je ne vois pas de correspondance entre la feuille ADAM, colonne P et la feuille Résumé_FEX colonne F. Peux-tu donner un exemple. Est-ce que la recopie doit se faire dans la macro ci-dessus ?

PS. Je n'ai rien compris à ton message de 11:34. Si tu as modifié le code, publie-le.

[Akhlan]

Bonjour et merci Daniel,

j'ai donc refait le fichier avec plus de réalisme....

Mais est-ce que la macro s'applique à toutes les feuilles ?
- Oui à l'exception de l'onglet "Feuille Vierge" qui sert de template pour la création de nouvelles applications

Est-ce qu'il s'agit de toutes les cellules de la colonne P ? Est-ce qu'il s'agit uniquement de la feuille ADAM ? Je ne vois pas de correspondance entre la feuille ADAM, colonne P et la feuille Résumé_FEX colonne F. Peux-tu donner un exemple. Est-ce que la recopie doit se faire dans la macro ci-dessus ?
- Oui, ça serait bien que la recopie se fasse depuis la macro "ThisWorkBook" vu qu'elle devra s'appliquer à chaque onglet

PS : Je n'ai pas réussit à faire fonctionner ton code mais entre temps, j'ai modifier le mien et il semble fonctionner...

Akhlan

[Daniel.C]

Bon, on arrête là, alors, si ça fonctionne, je ne regarderai pas ton classeur. Marque la discussion comme résolue.

[Akhlan]

hein ???

Je n'ai jamais dit que ça fonctionnait.... J'ai toujours besoin de votre aide

[Daniel.C]

j'ai modifier le mien et il semble fonctionner...

J'en ai déduit que ça fonctionnait. Mais tu n'as pas répondu à mes questions :

Est-ce qu'il s'agit de toutes les cellules de la colonne P ? Est-ce qu'il s'agit uniquement de la feuille ADAM ? Je ne vois pas de correspondance entre la feuille ADAM, colonne P et la feuille Résumé_FEX colonne F. Peux-tu donner un exemple. Est-ce que la recopie doit se faire dans la macro ci-dessus ?

Mais est-ce que la macro s'applique à toutes les feuilles ?
- Oui à l'exception de l'onglet "Feuille Vierge" qui sert de template pour la création de nouvelles applications

Sur la feuille "Résumé_FEX" également ?

PS. Je pars aussi en vacances demain soir pour une semaine. Je traiterai ta demande demain.

[Akhlan]

Bonjour et merci Daniel,
Mais est-ce que la macro s'applique à toutes les feuilles ?
- Oui à l'exception de l'onglet "Feuille Vierge" qui sert de template pour la création de nouvelles applications

Est-ce qu'il s'agit de toutes les cellules de la colonne P ? Est-ce qu'il s'agit uniquement de la feuille ADAM ? Je ne vois pas de correspondance entre la feuille ADAM, colonne P et la feuille Résumé_FEX colonne F. Peux-tu donner un exemple. Est-ce que la recopie doit se faire dans la macro ci-dessus ?
- Oui, ça serait bien que la recopie se fasse depuis la macro "ThisWorkBook" vu qu'elle devra s'appliquer à chaque onglet
Akhlan

J'avais répondu ;-)

La macro s'applique vers la feuille "Résumé_FEX", tous les onglets sont concernés à l'exception de "Feuille Vierge" qui sert de template

[Daniel.C]

Bonjour,

Est-ce qu'il s'agit de toutes les cellules de la colonne P ? Je ne vois pas de correspondance entre la feuille ADAM, colonne P et la feuille Résumé_FEX colonne F. Peux-tu donner un exemple.

Je n'ai pas vu de réponse ?

[Akhlan]

je surveillais ton arrivée ;-)

Oui, ça doit s'appliquer à toutes les cellules des colonnes P (à partir de la ligne 3) de tous les onglets (sauf "Résumé_FEX", "Feuille_Vierge et "Data")

Pour chaque onglet, le champ P doit venir compléter la colonne F de la feuille "Résumé_FEX" en sappuyant sur l'information issue de la première colonne des différents onglets et sur le nom de l'onglet lui même...

Je conçoie que ce n'est pas très facile à comprendre et j'ai essayé de détailler dans le fichier "FEXforPCU_Essai_2.zip"

le dernier fichier en date si tu veux...

les modifs:
- Création d'une liste déroulante à l'ouverture du fichier
- Renommage des champs application avec des côtes ('xxxx') pour que les liens du menu déroulant fonctionnent