Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Liaison - conservation des couleurs

Liaison - conservation des couleurs

5 réponses
Avatar
maryola
Bonjour,
je vais tenter d'être claire :
- j'ai 1 classeur dans lequel j'ai le code suivant

Private Sub Worksheet_Change(ByVal target As Range)
Dim c As Range, Plage As Range, d As Range, Plages, Couleurs
If Not Intersect(target.Cells, Range("calendrier")) Is Nothing Then
For Each c In target
Select Case c.Value
Case "p": c.Interior.ColorIndex = 36
....
(=> applique des couleurs spécifiques selon le texte entré)
Cela marche très bien sur 80 fichiers !

- j'ai un 2nd fichier qui est un recap. J'ai crée des liaisons du style
"=c:\personne1\fichier.xls\EG7
Mais mes couleurs ne sont pas reportées. Même si je fais "collage spécial
avec liaison", les couleurs ne se mettent pas à jour.
Le format conditionnel fonctionne bien mais j'ai + de 3 conditions. Je n'ai
pas réussi à m'en sortir avec du code.

Quelqu'un peut il m'aider, c'est TRES important !

En vous remerciant beaucoup beaucoup pour votre aide !
Mary
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ardus Petus
Fais un collage spécial Formats

Cordialement,
--
AP


"maryola" a écrit dans le message de
news:
Bonjour,
je vais tenter d'être claire :
- j'ai 1 classeur dans lequel j'ai le code suivant

Private Sub Worksheet_Change(ByVal target As Range)
Dim c As Range, Plage As Range, d As Range, Plages, Couleurs
If Not Intersect(target.Cells, Range("calendrier")) Is Nothing Then
For Each c In target
Select Case c.Value
Case "p": c.Interior.ColorIndex = 36
....
(=> applique des couleurs spécifiques selon le texte entré)
Cela marche très bien sur 80 fichiers !

- j'ai un 2nd fichier qui est un recap. J'ai crée des liaisons du style
"=c:personne1fichier.xlsEG7
Mais mes couleurs ne sont pas reportées. Même si je fais "collage spécial
avec liaison", les couleurs ne se mettent pas à jour.
Le format conditionnel fonctionne bien mais j'ai + de 3 conditions. Je
n'ai

pas réussi à m'en sortir avec du code.

Quelqu'un peut il m'aider, c'est TRES important !

En vous remerciant beaucoup beaucoup pour votre aide !
Mary


Avatar
maryola
Merci Ardus Petus mais ça ne fonctionne pas si je change ma source. Le format
(la couleur de celulle) reste figé...

D'autres idées ????


Fais un collage spécial Formats

Cordialement,
--
AP


"maryola" a écrit dans le message de
news:
Bonjour,
je vais tenter d'être claire :
- j'ai 1 classeur dans lequel j'ai le code suivant

Private Sub Worksheet_Change(ByVal target As Range)
Dim c As Range, Plage As Range, d As Range, Plages, Couleurs
If Not Intersect(target.Cells, Range("calendrier")) Is Nothing Then
For Each c In target
Select Case c.Value
Case "p": c.Interior.ColorIndex = 36
....
(=> applique des couleurs spécifiques selon le texte entré)
Cela marche très bien sur 80 fichiers !

- j'ai un 2nd fichier qui est un recap. J'ai crée des liaisons du style
"=c:personne1fichier.xlsEG7
Mais mes couleurs ne sont pas reportées. Même si je fais "collage spécial
avec liaison", les couleurs ne se mettent pas à jour.
Le format conditionnel fonctionne bien mais j'ai + de 3 conditions. Je
n'ai

pas réussi à m'en sortir avec du code.

Quelqu'un peut il m'aider, c'est TRES important !

En vous remerciant beaucoup beaucoup pour votre aide !
Mary







Avatar
Ardus Petus
Alors il faut que tu recopies le code de ta proc Worksheet_Change dans ls
code de la feuile du nouveau classeur

Cordialement,
--
AP

"maryola" a écrit dans le message de
news:
Merci Ardus Petus mais ça ne fonctionne pas si je change ma source. Le
format

(la couleur de celulle) reste figé...

D'autres idées ????


Fais un collage spécial Formats

Cordialement,
--
AP


"maryola" a écrit dans le message de
news:
Bonjour,
je vais tenter d'être claire :
- j'ai 1 classeur dans lequel j'ai le code suivant

Private Sub Worksheet_Change(ByVal target As Range)
Dim c As Range, Plage As Range, d As Range, Plages, Couleurs
If Not Intersect(target.Cells, Range("calendrier")) Is Nothing Then
For Each c In target
Select Case c.Value
Case "p": c.Interior.ColorIndex = 36
....
(=> applique des couleurs spécifiques selon le texte entré)
Cela marche très bien sur 80 fichiers !

- j'ai un 2nd fichier qui est un recap. J'ai crée des liaisons du
style



"=c:personne1fichier.xlsEG7
Mais mes couleurs ne sont pas reportées. Même si je fais "collage
spécial



avec liaison", les couleurs ne se mettent pas à jour.
Le format conditionnel fonctionne bien mais j'ai + de 3 conditions. Je
n'ai

pas réussi à m'en sortir avec du code.

Quelqu'un peut il m'aider, c'est TRES important !

En vous remerciant beaucoup beaucoup pour votre aide !
Mary









Avatar
maryola
lol
j'ai déjà essayé mais ça marche pas


Alors il faut que tu recopies le code de ta proc Worksheet_Change dans ls
code de la feuile du nouveau classeur

Cordialement,
--
AP

"maryola" a écrit dans le message de
news:
Merci Ardus Petus mais ça ne fonctionne pas si je change ma source. Le
format

(la couleur de celulle) reste figé...

D'autres idées ????


Fais un collage spécial Formats

Cordialement,
--
AP


"maryola" a écrit dans le message de
news:
Bonjour,
je vais tenter d'être claire :
- j'ai 1 classeur dans lequel j'ai le code suivant

Private Sub Worksheet_Change(ByVal target As Range)
Dim c As Range, Plage As Range, d As Range, Plages, Couleurs
If Not Intersect(target.Cells, Range("calendrier")) Is Nothing Then
For Each c In target
Select Case c.Value
Case "p": c.Interior.ColorIndex = 36
....
(=> applique des couleurs spécifiques selon le texte entré)
Cela marche très bien sur 80 fichiers !

- j'ai un 2nd fichier qui est un recap. J'ai crée des liaisons du
style



"=c:personne1fichier.xlsEG7
Mais mes couleurs ne sont pas reportées. Même si je fais "collage
spécial



avec liaison", les couleurs ne se mettent pas à jour.
Le format conditionnel fonctionne bien mais j'ai + de 3 conditions. Je
n'ai

pas réussi à m'en sortir avec du code.

Quelqu'un peut il m'aider, c'est TRES important !

En vous remerciant beaucoup beaucoup pour votre aide !
Mary














Avatar
Ardus Petus
As-tu recopié le code de Workvant sheet_Change avant de copier tes données?

"maryola" a écrit dans le message de
news:
lol
j'ai déjà essayé mais ça marche pas


Alors il faut que tu recopies le code de ta proc Worksheet_Change dans
ls


code de la feuile du nouveau classeur

Cordialement,
--
AP

"maryola" a écrit dans le message de
news:
Merci Ardus Petus mais ça ne fonctionne pas si je change ma source. Le
format

(la couleur de celulle) reste figé...

D'autres idées ????


Fais un collage spécial Formats

Cordialement,
--
AP


"maryola" a écrit dans le
message de




news:
Bonjour,
je vais tenter d'être claire :
- j'ai 1 classeur dans lequel j'ai le code suivant

Private Sub Worksheet_Change(ByVal target As Range)
Dim c As Range, Plage As Range, d As Range, Plages, Couleurs
If Not Intersect(target.Cells, Range("calendrier")) Is Nothing
Then





For Each c In target
Select Case c.Value
Case "p": c.Interior.ColorIndex = 36
....
(=> applique des couleurs spécifiques selon le texte entré)
Cela marche très bien sur 80 fichiers !

- j'ai un 2nd fichier qui est un recap. J'ai crée des liaisons
du





style
"=c:personne1fichier.xlsEG7
Mais mes couleurs ne sont pas reportées. Même si je fais "collage
spécial



avec liaison", les couleurs ne se mettent pas à jour.
Le format conditionnel fonctionne bien mais j'ai + de 3
conditions. Je





n'ai
pas réussi à m'en sortir avec du code.

Quelqu'un peut il m'aider, c'est TRES important !

En vous remerciant beaucoup beaucoup pour votre aide !
Mary