Modifier le format en cas de changement

[criscris11]

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

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.

 

[Catrice]

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

 

[criscris11]

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.

 

[pierrejean]

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

 

[Guest]

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:

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

 

[criscris11]

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.

 

[criscris11]

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.

 

[pierrejean]

Re : Modifier le format en cas de changement

Re

J'ai pu oublier de sauvegarder (mon epouse me sollicitait a c e moment la)

 

[criscris11]

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.

 

[pierrejean]

Re : Modifier le format en cas de changement

Re

Finalement vu comme cela c'est presque plus simple

 

[criscris11]

Re : Modifier le format en cas de changement

Re,
Merci à toi pour le retour mais les modifications ne s'effectuent pas enfin je veux dire la mise en valeur sur les modifications.
Merci encore pour le coup de main.

 

[pierrejean]

Re : Modifier le format en cas de changement

Re
me serais-je encore trompé de fichier !!!

teste dans ce fichier de modifier dans la feuille Base le prenom2 en prenom12 et vois si en feuille B1 prenom12 n'est pas en gras rouge

 

[criscris11]

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.

 

[pierrejean]

Re : Modifier le format en cas de changement

Re

Voila avec commentaires

 

[criscris11]

Re : Modifier le format en cas de changement

Salut,
Merci pour les commentaires Pierrejean.
Bon week-end.