Mise en forme automatique.

Version imprimable

1 pièce(s) jointe(s)

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:

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

04/04/2013, 11h34
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

Bonjour,

Mets le code suivant dans "ThisWorkbook :
Code:

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 ?

Citation:

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.

04/04/2013, 12h44
Akhlan

1 pièce(s) jointe(s)

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
04/04/2013, 15h08
Daniel.C

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

hein ???

Je n'ai jamais dit que ça fonctionnait.... J'ai toujours besoin de votre aide ;)
04/04/2013, 21h06
Daniel.C

Citation:

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 :

Citation:

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 ?

Citation:

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.
05/04/2013, 00h24
Akhlan

Citation:

Envoyé par 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
05/04/2013, 10h17
Daniel.C

Bonjour,

Citation:

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 ?
05/04/2013, 10h48
Akhlan

1 pièce(s) jointe(s)

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

J'ai modifié la macro comme suit :

Code:

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
26
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'-----------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------
'       Mise à jour du nombre de Validation PCU dans les différents onglets Appliations
'-----------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------
    Dim Ligne As Variant
    If Sh.Name = "Résumé_FEX" Or Sh.Name = "Feuille Vierge" Then Exit Sub
    'On Error Resume Next
    If Not Intersect(Target, Range("C3:O" & ActiveSheet.Range("A65536").End(xlUp).Row)) Is Nothing Then
    Ligne = ActiveCell.Row
    NbrOui = Application.WorksheetFunction.CountIf(Range("C" & Ligne & ":O" & Ligne), "Oui")
    If Ligne <> "1" And Ligne <> "2" And Range("A" & Ligne) <> "" And NbrOui < "4" Then Range("P" & Ligne).Value = NbrOui & " validation(s) sur 4"
    If Ligne <> "1" And Ligne <> "2" And Range("A" & Ligne) <> "" And Left(Range("P" & Ligne), 6) <> "Validé" And NbrOui >= 4 Then Range("P" & Ligne).Value = "Validé le  " & Date
    End If
    If Target.Column = 16 And Target.Row > 2 Then
        Ligne = Application.Match(Cells(Target.Row, 1), [Résumé_FEX!C:C], 0)
        If IsNumeric(Ligne) Then
            Application.EnableEvents = False
            Sheets("Résumé_FEX").Cells(Ligne, 6).Value = Target.Value
            Application.EnableEvents = True
        Else
            MsgBox "Pas de correspondance sur la feuille Résumé_FEX"
        End If
    End If
End Sub

05/04/2013, 14h17
Akhlan

Moi je dis Monsieur Daniel, comme d'hab, c'est nickel et livré très rapidement ;)

Je clos et je met Validé

Encore merci et bonnes vacances ;)