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

Modifier le format en cas de changement

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 !

criscris11

XLDnaute Accro
Salut à tous,
Afin de pister les modifications faites dans l'onglet Base, j'ai essayé une macro événementielle dans l'onglet B1 dont voici le code
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Cancel = True
If Not Intersect(Target, Range("A4:C6")) Is Nothing Then
    Selection.Font.Bold = True
    Selection.Font.ColorIndex = 3
End If
Cancel = False
End Sub
mais il ne se passe rien quand je modifie une cellule de l'onglet Base.
S'il y avait une âme charitable siou plait messieurs, dames.
Bon après-midi.
 

Pièces jointes

Re : Modifier le format en cas de changement

Bonjour,

Je crois qu'il faut mettre le code dans le bon onglet.
A savoir dans l'onglet Base pour intercepter les evenements de cet onglet.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A4:C6")) Is Nothing Then
Target.Font.Bold = True
Target.Font.ColorIndex = 3
End If
End Sub
 
Dernière édition:
Re : Modifier le format en cas de changement

Bonjour Catrice,
En fait, je ne veux pas appliquer la mise en forme dans l'onglet Base mais bien l'onglet qui rapatrie les données par rapport à la valeur de la colonne C de l'onglet Base (par exemple l'onglet B).
Mais je ne sais pas si c'est possible à cause des formules matricielles.
Merci d'avance.
 
Re : Modifier le format en cas de changement

bonjour criscris

Salut CATRICE

En supposant que j'aie compris :

la modification dans la feuille base modifie le resultat des formules dans la feuille B1

mais cela tient de l'usine a gaz et il y a remise en l'etat apres chaque modification
 

Pièces jointes

Re : Modifier le format en cas de changement

Bonjour Cris²🙂,

Si tu veux que Toutes tes cellules de ton onglet Base soient testée sur changement:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    Selection.Font.Bold = True      'Gras
    Selection.Font.ColorIndex = 3  'Rouge (pour une palette non mofifiée
End Sub

Quant à 'Cancel' de ta macro il devait servir à un évènement Worksheet_BeforeRightClick ou Worksheet_BeforeDoubleClick qui permet d'annuler l'action prévue normalement par l'évènement.

A bientôt
 
Re : Modifier le format en cas de changement

Salut Pierrejean,
Tu as bien compris ce que je souhaite obtenir. Par contre dans ton fichier posté, je ne vois aucun changement par rapport à mon code posté au début du fil ???
As-tu modifié quelque chose ou tu n'as pas posté le fichier modifié ?
Merci pour ton intervention.
 
Re : Modifier le format en cas de changement

Salut Hasco,
En fait, je veux tester les changements dans les onglets qui rapatrient les données saisies dans l'onglet Base et ainsi leur appliquer la couleur rouge et en gras.
Bon après-midi à tous.
 
Re : Modifier le format en cas de changement

Re,
Merci Pierrejean, je vais regarder ta proposition mais d'ores et déjà il va falloir apporter des modifications car il n'y a pas que B1 mais 7 onglets en tout et si tu as possibilité de mettre en valeur que la valeur qui a été changée et non la valeur de la colonne A dans l'onglet B1, enfin si c'est possible mais c'est déjà un bon début.
Bon après-midi.
 
Re : Modifier le format en cas de changement

Re,
Eh oui je crois bien que t'étais encore trompé de fichier 😉.
Cela m'a l'air tout bon mais aurais-tu l'amabilité de commenter les codes car maintenant il va falloir que j'adapte à mon fichier alors...
Merci à toi pour ta détermination.
Bonne soirée.
 
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…