Discussion :

[thibaut3111]

Bonjour,

Je me permet de vous contacter car la dernière fois que je suis venu, cela m'avait énormément aidé !

Je voulais savoir si lorsque l'on fait des liens sur EXCEL d'un onglet à un autre on pouvait aussi appliquer une mise en forme?

Suivis budgétaires Copie forum.xlsx

Comme vous pouvez le voir sur le fichier que j'ai joins , je suis obligé d'allonger ma zone de selection sur l'onglet "CAS" pour afficher les valeurs et j'ai du faire un onglet de reference ("feuille pour mise en forme"), permettant d'avoir une partie de la mise en forme de prête...

Sauf que je ne suis pas le seul à l'utiliser et d'autre n'arrive pas à se retrouver...
Je me demandais donc si il existait une façon d'appliquer la mise en forme automatiquement?
Et si en cas d'ajout de données dans l'onglet principal, celui-ci pouvait être pris en compte automatiquement dans l'onglet "CAS"?

Merci d'avance

[Zekraoui_Jakani]

Pour rajouter des lignes à la feuille CAS, tu dois enregistrer ton fichier sous format "xlsm", puis copier cette procédure dans un module, que tu peux lancer directement ou via un bouton de commande à créer:

Code :

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

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
27
28
29
30
31
32
33
Sub construireZoneCAS()
Dim ZoneAcopier As String
 
    Sheets("Tableau").Select
    Range("a1").Select
 
    With Range("a1:a10000")
        Do While True
            If ActiveCell.Value = "FONDS NATIONAUX" Then
                ZoneAcopier = "A2:A" & ActiveCell.Row - 1
                'tu peux annuler le message ci-dessous quand tu veux
                MsgBox "la zone à copier est : " & ZoneAcopier
                Exit Do
            Else
                ActiveCell.Offset(1, 0).Activate
            End If
        Loop
    End With
 
    Range(ZoneAcopier).Select
    Selection.Copy
 
    Sheets("CAS").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Range("A1").Select
 
    Sheets("tableau").Select
    Range("A1").Select
 
    Application.CutCopyMode = False
 
End Sub

Quant à la mise en forme, il vaut mieux exploiter la forme conditionnelle dans le ruban du menu principal

[thibaut3111]

Woaw bien vus, je n'avais pas pensé à passer par VBA !

Ca fonctionne parfaitement ! MERCI BEAUCOUP

Reste plus qu'a comprendre la mise en forme conditionnelle

[thibaut3111]

Petite question en plus, je viens de m'en appercevoir...

Lorsque j'ajoute des lignes ça fonctionne parfaitement, mais lorsque je supprime un ligne cela n'efface pas les derniers ajouts... (J'ai mis une photo pour l'exemple )

Comme vous le voyez sur la deuxieme photo, l'action 3 et l'action 4 n'a pas été supprimée.. (voir entouré en rouge)




Que faut-il ajouter dans le code svp?

[Zekraoui_Jakani]

Tu rajoutes l'instruction suivante tout au début de la procédure après "Dim":

Code :

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

Sheets("CAS").Range("A2:A10000").ClearContents

[thibaut3111]

Un grand merci à "Zekraoui_Jakani " pour qui cela semble si simple

Ca m'a bien idé !

Avant que je passe le sujet en résolut, quelqu'un sait sous quelle forme organiser la mise en forme conditionnelle..?

Merci

[thibaut3111]

Je précise un peu pour la mise en forme conditionnelle car j'ai éssayé (en vain) d'appliquer ma mise en forme ^^

Je voudrais que sur mon fichier, les Lignes avec "Médiation", "Espace Rencontre" et "Centre sociaux" ai un remplissage grisé de la colonne A à L;
De plus, que la ligne "ES3" soit remplis de la colonne A à L en orange...

Une idée?

[Zekraoui_Jakani]

Voici une nouvelle version avec mise en forme selon les spécifications (clic sur bouton "Démarrer")

[thibaut3111]

Voici une nouvelle version avec mise en forme selon les spécifications (clic sur bouton "Démarrer")

Merci beaucoup pour ton aide Zekraoui_Jakani... mais je n'arrive pas à visualiser ton fichier !
Il semble qu'il y ai eu un bug quand tu l'a insérer, ça te dérangerait de me le remettre stp ?😉

[Zekraoui_Jakani]

voici une version compressée;