Bonjour à toutes et à tous,
J'execute une macro qui colore ou décolore au choix, une plage de cellules
sur plusieurs feuilles d'un classeur d'un seul coup. Un évenement
worksheet_selectionchange me permet en fonction du caractère saisi sur une
feuille de lui donner une couleur. Tout fonctionne parfaitement.
Le Hic ! c'est que coloré ou décoloré, si je fais un copier-coller sur une
feuille, toute la plage sélectionnée prend la couleur des dernières lignes de
la macro à savoir :
If c = "ABS" Then c.Font.ColorIndex = 2 'Blanc
If c = "ABS" Then c.Interior.ColorIndex = 3 'rouge
If IsEmpty(c) Then c.Interior.ColorIndex = xlNone
c.NumberFormat = "[h]:mm"
Application.EnableEvents = True
End Sub
Comment faire pour que cette action soit police en noir et fond en blanc
pour la zone collée.
Merci pour votre aide
Michel
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
Jpmonnier
Bonsoir, Je pense qu'après yon copier/coller, tu devrais rappeler ta macro qui colore ou décolore suivant tes critéres !
-- Cordialement
"Michel69" a écrit dans le message de news:
Bonjour à toutes et à tous, J'execute une macro qui colore ou décolore au choix, une plage de cellules sur plusieurs feuilles d'un classeur d'un seul coup. Un évenement worksheet_selectionchange me permet en fonction du caractère saisi sur une feuille de lui donner une couleur. Tout fonctionne parfaitement. Le Hic ! c'est que coloré ou décoloré, si je fais un copier-coller sur une feuille, toute la plage sélectionnée prend la couleur des dernières lignes de la macro à savoir : If c = "ABS" Then c.Font.ColorIndex = 2 'Blanc If c = "ABS" Then c.Interior.ColorIndex = 3 'rouge If IsEmpty(c) Then c.Interior.ColorIndex = xlNone
c.NumberFormat = "[h]:mm" Application.EnableEvents = True End Sub Comment faire pour que cette action soit police en noir et fond en blanc pour la zone collée. Merci pour votre aide Michel
Bonsoir,
Je pense qu'après yon copier/coller, tu devrais rappeler ta macro qui colore
ou décolore suivant tes critéres !
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message de
news:D7275A79-E39F-4714-BA48-3642AF5114EC@microsoft.com...
Bonjour à toutes et à tous,
J'execute une macro qui colore ou décolore au choix, une plage de cellules
sur plusieurs feuilles d'un classeur d'un seul coup. Un évenement
worksheet_selectionchange me permet en fonction du caractère saisi sur une
feuille de lui donner une couleur. Tout fonctionne parfaitement.
Le Hic ! c'est que coloré ou décoloré, si je fais un copier-coller sur une
feuille, toute la plage sélectionnée prend la couleur des dernières lignes
de
la macro à savoir :
If c = "ABS" Then c.Font.ColorIndex = 2 'Blanc
If c = "ABS" Then c.Interior.ColorIndex = 3 'rouge
If IsEmpty(c) Then c.Interior.ColorIndex = xlNone
c.NumberFormat = "[h]:mm"
Application.EnableEvents = True
End Sub
Comment faire pour que cette action soit police en noir et fond en blanc
pour la zone collée.
Merci pour votre aide
Michel
Bonsoir, Je pense qu'après yon copier/coller, tu devrais rappeler ta macro qui colore ou décolore suivant tes critéres !
-- Cordialement
"Michel69" a écrit dans le message de news:
Bonjour à toutes et à tous, J'execute une macro qui colore ou décolore au choix, une plage de cellules sur plusieurs feuilles d'un classeur d'un seul coup. Un évenement worksheet_selectionchange me permet en fonction du caractère saisi sur une feuille de lui donner une couleur. Tout fonctionne parfaitement. Le Hic ! c'est que coloré ou décoloré, si je fais un copier-coller sur une feuille, toute la plage sélectionnée prend la couleur des dernières lignes de la macro à savoir : If c = "ABS" Then c.Font.ColorIndex = 2 'Blanc If c = "ABS" Then c.Interior.ColorIndex = 3 'rouge If IsEmpty(c) Then c.Interior.ColorIndex = xlNone
c.NumberFormat = "[h]:mm" Application.EnableEvents = True End Sub Comment faire pour que cette action soit police en noir et fond en blanc pour la zone collée. Merci pour votre aide Michel
Papyjac
Bonjour Michel
Il faut faire un copier collage spécial valeur -- Papyjac
"Jpmonnier" a écrit :
Bonsoir, Je pense qu'après yon copier/coller, tu devrais rappeler ta macro qui colore ou décolore suivant tes critéres !
-- Cordialement
"Michel69" a écrit dans le message de news: > Bonjour à toutes et à tous, > J'execute une macro qui colore ou décolore au choix, une plage de cellules > sur plusieurs feuilles d'un classeur d'un seul coup. Un évenement > worksheet_selectionchange me permet en fonction du caractère saisi sur une > feuille de lui donner une couleur. Tout fonctionne parfaitement. > Le Hic ! c'est que coloré ou décoloré, si je fais un copier-coller sur une > feuille, toute la plage sélectionnée prend la couleur des dernières lignes > de > la macro à savoir : > If c = "ABS" Then c.Font.ColorIndex = 2 'Blanc > If c = "ABS" Then c.Interior.ColorIndex = 3 'rouge > If IsEmpty(c) Then c.Interior.ColorIndex = xlNone > > c.NumberFormat = "[h]:mm" > Application.EnableEvents = True > End Sub > Comment faire pour que cette action soit police en noir et fond en blanc > pour la zone collée. > Merci pour votre aide > Michel
Bonjour Michel
Il faut faire un copier collage spécial valeur
--
Papyjac
"Jpmonnier" a écrit :
Bonsoir,
Je pense qu'après yon copier/coller, tu devrais rappeler ta macro qui colore
ou décolore suivant tes critéres !
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message de
news:D7275A79-E39F-4714-BA48-3642AF5114EC@microsoft.com...
> Bonjour à toutes et à tous,
> J'execute une macro qui colore ou décolore au choix, une plage de cellules
> sur plusieurs feuilles d'un classeur d'un seul coup. Un évenement
> worksheet_selectionchange me permet en fonction du caractère saisi sur une
> feuille de lui donner une couleur. Tout fonctionne parfaitement.
> Le Hic ! c'est que coloré ou décoloré, si je fais un copier-coller sur une
> feuille, toute la plage sélectionnée prend la couleur des dernières lignes
> de
> la macro à savoir :
> If c = "ABS" Then c.Font.ColorIndex = 2 'Blanc
> If c = "ABS" Then c.Interior.ColorIndex = 3 'rouge
> If IsEmpty(c) Then c.Interior.ColorIndex = xlNone
>
> c.NumberFormat = "[h]:mm"
> Application.EnableEvents = True
> End Sub
> Comment faire pour que cette action soit police en noir et fond en blanc
> pour la zone collée.
> Merci pour votre aide
> Michel
Il faut faire un copier collage spécial valeur -- Papyjac
"Jpmonnier" a écrit :
Bonsoir, Je pense qu'après yon copier/coller, tu devrais rappeler ta macro qui colore ou décolore suivant tes critéres !
-- Cordialement
"Michel69" a écrit dans le message de news: > Bonjour à toutes et à tous, > J'execute une macro qui colore ou décolore au choix, une plage de cellules > sur plusieurs feuilles d'un classeur d'un seul coup. Un évenement > worksheet_selectionchange me permet en fonction du caractère saisi sur une > feuille de lui donner une couleur. Tout fonctionne parfaitement. > Le Hic ! c'est que coloré ou décoloré, si je fais un copier-coller sur une > feuille, toute la plage sélectionnée prend la couleur des dernières lignes > de > la macro à savoir : > If c = "ABS" Then c.Font.ColorIndex = 2 'Blanc > If c = "ABS" Then c.Interior.ColorIndex = 3 'rouge > If IsEmpty(c) Then c.Interior.ColorIndex = xlNone > > c.NumberFormat = "[h]:mm" > Application.EnableEvents = True > End Sub > Comment faire pour que cette action soit police en noir et fond en blanc > pour la zone collée. > Merci pour votre aide > Michel