Bonsoir,
Je voudrais savoir comment faire pour avoir les N°s de couleur
correspondant.
Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ?
Cordialement
Guy
Sub palette() [A1].Select For c = 1 To 56 ActiveCell = c ActiveCell.Offset(0, 1).Interior.ColorIndex = c ActiveCell.Offset(1, 0).Select Next c End Sub
Cordialement JB
Thierryp
Bonjour, Avec ceci, à placer dans le module d'une feuille,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For i = 1 To 54 ActiveCell.Interior.ColorIndex = i ActiveCell.Offset(0, 1).Value = i ActiveCell.Offset(1, 0).Select Next End Sub
La macro se lance au double-clic dans une cellule
@+ thierryp
------------------------ Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet. (Courteline) ------------------------
Bonsoir, Je voudrais savoir comment faire pour avoir les N°s de couleur correspondant. Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ? Cordialement Guy
Bonjour,
Avec ceci, à placer dans le module d'une feuille,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For i = 1 To 54
ActiveCell.Interior.ColorIndex = i
ActiveCell.Offset(0, 1).Value = i
ActiveCell.Offset(1, 0).Select
Next
End Sub
La macro se lance au double-clic dans une cellule
@+ thierryp
------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet. (Courteline)
------------------------
Bonsoir,
Je voudrais savoir comment faire pour avoir les N°s de couleur
correspondant.
Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ?
Cordialement
Guy
Bonjour, Avec ceci, à placer dans le module d'une feuille,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For i = 1 To 54 ActiveCell.Interior.ColorIndex = i ActiveCell.Offset(0, 1).Value = i ActiveCell.Offset(1, 0).Select Next End Sub
La macro se lance au double-clic dans une cellule
@+ thierryp
------------------------ Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet. (Courteline) ------------------------
Bonsoir, Je voudrais savoir comment faire pour avoir les N°s de couleur correspondant. Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ? Cordialement Guy
Thierryp
Bonjour,
Oupsssssssssssssssssssssssss................ C'est Jb qui a raison, for i=1 to 56 est beaucoup mieux !!
@+ thierryp
------------------------ Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet. (Courteline) ------------------------
Bonjour, Avec ceci, à placer dans le module d'une feuille,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For i = 1 To 54 ActiveCell.Interior.ColorIndex = i ActiveCell.Offset(0, 1).Value = i ActiveCell.Offset(1, 0).Select Next End Sub
La macro se lance au double-clic dans une cellule
@+ thierryp
------------------------ Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet. (Courteline) ------------------------
Bonsoir, Je voudrais savoir comment faire pour avoir les N°s de couleur correspondant. Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ? Cordialement Guy
Bonjour,
Oupsssssssssssssssssssssssss................ C'est Jb qui a raison, for
i=1 to 56 est beaucoup mieux !!
@+ thierryp
------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet. (Courteline)
------------------------
Bonjour,
Avec ceci, à placer dans le module d'une feuille,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For i = 1 To 54
ActiveCell.Interior.ColorIndex = i
ActiveCell.Offset(0, 1).Value = i
ActiveCell.Offset(1, 0).Select
Next
End Sub
La macro se lance au double-clic dans une cellule
@+ thierryp
------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet. (Courteline)
------------------------
Bonsoir,
Je voudrais savoir comment faire pour avoir les N°s de couleur
correspondant.
Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ?
Cordialement
Guy
Oupsssssssssssssssssssssssss................ C'est Jb qui a raison, for i=1 to 56 est beaucoup mieux !!
@+ thierryp
------------------------ Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet. (Courteline) ------------------------
Bonjour, Avec ceci, à placer dans le module d'une feuille,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For i = 1 To 54 ActiveCell.Interior.ColorIndex = i ActiveCell.Offset(0, 1).Value = i ActiveCell.Offset(1, 0).Select Next End Sub
La macro se lance au double-clic dans une cellule
@+ thierryp
------------------------ Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet. (Courteline) ------------------------
Bonsoir, Je voudrais savoir comment faire pour avoir les N°s de couleur correspondant. Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ? Cordialement Guy
eric_mermin
Bonsoir,
je ne suis pas sur que cela réponde à ta question :
Range("A1").Interior.ColorIndex = 41
c'est pas top, je crois, le "colorindex"
eric
Bonsoir, Je voudrais savoir comment faire pour avoir les N°s de couleur correspondant. Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ? Cordialement Guy
Bonsoir,
je ne suis pas sur que cela réponde à ta question :
Range("A1").Interior.ColorIndex = 41
c'est pas top, je crois, le "colorindex"
eric
Bonsoir,
Je voudrais savoir comment faire pour avoir les N°s de couleur
correspondant.
Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ?
Cordialement
Guy
je ne suis pas sur que cela réponde à ta question :
Range("A1").Interior.ColorIndex = 41
c'est pas top, je crois, le "colorindex"
eric
Bonsoir, Je voudrais savoir comment faire pour avoir les N°s de couleur correspondant. Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ? Cordialement Guy
Guy72
Bonjour, Ou je met ce texte. Je l'ai mis dans le code de ma feuille mais je ne voit pas quoi faire ? Cordialement Guy
"JB" a écrit dans le message de news:
Bonsoir,
Sub palette() [A1].Select For c = 1 To 56 ActiveCell = c ActiveCell.Offset(0, 1).Interior.ColorIndex = c ActiveCell.Offset(1, 0).Select Next c End Sub
Cordialement JB
Bonjour,
Ou je met ce texte.
Je l'ai mis dans le code de ma feuille mais je ne voit pas quoi faire ?
Cordialement
Guy
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1143485680.372087.27850@i40g2000cwc.googlegroups.com...
Bonsoir,
Sub palette()
[A1].Select
For c = 1 To 56
ActiveCell = c
ActiveCell.Offset(0, 1).Interior.ColorIndex = c
ActiveCell.Offset(1, 0).Select
Next c
End Sub
Bonjour, Ou je met ce texte. Je l'ai mis dans le code de ma feuille mais je ne voit pas quoi faire ? Cordialement Guy
"JB" a écrit dans le message de news:
Bonsoir,
Sub palette() [A1].Select For c = 1 To 56 ActiveCell = c ActiveCell.Offset(0, 1).Interior.ColorIndex = c ActiveCell.Offset(1, 0).Select Next c End Sub
Cordialement JB
Guy72
Bonjour, Ou je met ce texte ? Cordialement Guy
"eric_mermin" a écrit dans le message de news: %
Bonsoir,
je ne suis pas sur que cela réponde à ta question :
Range("A1").Interior.ColorIndex = 41
c'est pas top, je crois, le "colorindex"
eric
Bonsoir, Je voudrais savoir comment faire pour avoir les N°s de couleur correspondant. Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ? Cordialement Guy
Bonjour,
Ou je met ce texte ?
Cordialement
Guy
"eric_mermin" <eric.mermin@free.fr> a écrit dans le message de news:
%238oE9DdUGHA.5884@TK2MSFTNGP14.phx.gbl...
Bonsoir,
je ne suis pas sur que cela réponde à ta question :
Range("A1").Interior.ColorIndex = 41
c'est pas top, je crois, le "colorindex"
eric
Bonsoir,
Je voudrais savoir comment faire pour avoir les N°s de couleur
correspondant.
Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ?
Cordialement
Guy
je ne suis pas sur que cela réponde à ta question :
Range("A1").Interior.ColorIndex = 41
c'est pas top, je crois, le "colorindex"
eric
Bonsoir, Je voudrais savoir comment faire pour avoir les N°s de couleur correspondant. Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ? Cordialement Guy
JB
-Alt+F11 pour VBA -Insertion/Module -Execution/Exécuter sub
JB
-Alt+F11 pour VBA
-Insertion/Module
-Execution/Exécuter sub
-Alt+F11 pour VBA -Insertion/Module -Execution/Exécuter sub
JB
Guy72
ok merci. Cordialement Guy
"JB" a écrit dans le message de news:
-Alt+F11 pour VBA -Insertion/Module -Execution/Exécuter sub
JB
ok merci.
Cordialement
Guy
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1143530924.658349.141200@u72g2000cwu.googlegroups.com...
-Alt+F11 pour VBA
-Insertion/Module
-Execution/Exécuter sub
-Alt+F11 pour VBA -Insertion/Module -Execution/Exécuter sub
JB
Guy72
Bonjour, Merci ça me vas quand même, je ferais un copier coller de la couleur désirée, mais je voulais pouvoir appeler la couleur suivant son N°. Cordialement Guy
"Thierryp" a écrit dans le message de news:
Bonjour, Avec ceci, à placer dans le module d'une feuille,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For i = 1 To 54 ActiveCell.Interior.ColorIndex = i ActiveCell.Offset(0, 1).Value = i ActiveCell.Offset(1, 0).Select Next End Sub
La macro se lance au double-clic dans une cellule
@+ thierryp
------------------------ Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet. (Courteline) ------------------------
Bonsoir, Je voudrais savoir comment faire pour avoir les N°s de couleur correspondant. Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ? Cordialement Guy
Bonjour,
Merci ça me vas quand même, je ferais un copier coller de la couleur
désirée, mais je voulais pouvoir appeler la couleur suivant son N°.
Cordialement
Guy
"Thierryp" <thierryp@nospam.fr> a écrit dans le message de news:
uiJrEBdUGHA.4772@TK2MSFTNGP14.phx.gbl...
Bonjour,
Avec ceci, à placer dans le module d'une feuille,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For i = 1 To 54
ActiveCell.Interior.ColorIndex = i
ActiveCell.Offset(0, 1).Value = i
ActiveCell.Offset(1, 0).Select
Next
End Sub
La macro se lance au double-clic dans une cellule
@+ thierryp
------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet. (Courteline)
------------------------
Bonsoir,
Je voudrais savoir comment faire pour avoir les N°s de couleur
correspondant.
Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ?
Cordialement
Guy
Bonjour, Merci ça me vas quand même, je ferais un copier coller de la couleur désirée, mais je voulais pouvoir appeler la couleur suivant son N°. Cordialement Guy
"Thierryp" a écrit dans le message de news:
Bonjour, Avec ceci, à placer dans le module d'une feuille,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For i = 1 To 54 ActiveCell.Interior.ColorIndex = i ActiveCell.Offset(0, 1).Value = i ActiveCell.Offset(1, 0).Select Next End Sub
La macro se lance au double-clic dans une cellule
@+ thierryp
------------------------ Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet. (Courteline) ------------------------
Bonsoir, Je voudrais savoir comment faire pour avoir les N°s de couleur correspondant. Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ? Cordialement Guy
ThierryP
Re,
Effectivement, lu un peu vite....Alors ceci : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) couleur=inputbox("Quelle couleur (de 1 à 56)") ActiveCell.Interior.ColorIndex = couleur end sub Chaque fois que tu feras un double-clic sur une cellule, la question te sera posée.... Si tu veux restreindre à une plage de cellules, ajoute ceci au tout début de la proc: if intersect(target,range("A1:B50")) is nothing then exit sub
Si tu double-cliques ailleurs que dans la plage A1->B50, rien ne se passe.
Bonjour, Merci ça me vas quand même, je ferais un copier coller de la couleur désirée, mais je voulais pouvoir appeler la couleur suivant son N°. Cordialement Guy
"Thierryp" a écrit dans le message de news:
Bonjour, Avec ceci, à placer dans le module d'une feuille,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For i = 1 To 54 ActiveCell.Interior.ColorIndex = i ActiveCell.Offset(0, 1).Value = i ActiveCell.Offset(1, 0).Select Next End Sub
La macro se lance au double-clic dans une cellule
@+ thierryp
------------------------ Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet. (Courteline) ------------------------
Bonsoir, Je voudrais savoir comment faire pour avoir les N°s de couleur correspondant. Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ? Cordialement Guy
-- @+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
Re,
Effectivement, lu un peu vite....Alors ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
couleur=inputbox("Quelle couleur (de 1 à 56)")
ActiveCell.Interior.ColorIndex = couleur
end sub
Chaque fois que tu feras un double-clic sur une cellule, la question te
sera posée....
Si tu veux restreindre à une plage de cellules, ajoute ceci au tout
début de la proc:
if intersect(target,range("A1:B50")) is nothing then exit sub
Si tu double-cliques ailleurs que dans la plage A1->B50, rien ne se passe.
Bonjour,
Merci ça me vas quand même, je ferais un copier coller de la couleur
désirée, mais je voulais pouvoir appeler la couleur suivant son N°.
Cordialement
Guy
"Thierryp" <thierryp@nospam.fr> a écrit dans le message de news:
uiJrEBdUGHA.4772@TK2MSFTNGP14.phx.gbl...
Bonjour,
Avec ceci, à placer dans le module d'une feuille,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For i = 1 To 54
ActiveCell.Interior.ColorIndex = i
ActiveCell.Offset(0, 1).Value = i
ActiveCell.Offset(1, 0).Select
Next
End Sub
La macro se lance au double-clic dans une cellule
@+ thierryp
------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet. (Courteline)
------------------------
Bonsoir,
Je voudrais savoir comment faire pour avoir les N°s de couleur
correspondant.
Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ?
Cordialement
Guy
--
@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline
Effectivement, lu un peu vite....Alors ceci : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) couleur=inputbox("Quelle couleur (de 1 à 56)") ActiveCell.Interior.ColorIndex = couleur end sub Chaque fois que tu feras un double-clic sur une cellule, la question te sera posée.... Si tu veux restreindre à une plage de cellules, ajoute ceci au tout début de la proc: if intersect(target,range("A1:B50")) is nothing then exit sub
Si tu double-cliques ailleurs que dans la plage A1->B50, rien ne se passe.
Bonjour, Merci ça me vas quand même, je ferais un copier coller de la couleur désirée, mais je voulais pouvoir appeler la couleur suivant son N°. Cordialement Guy
"Thierryp" a écrit dans le message de news:
Bonjour, Avec ceci, à placer dans le module d'une feuille,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For i = 1 To 54 ActiveCell.Interior.ColorIndex = i ActiveCell.Offset(0, 1).Value = i ActiveCell.Offset(1, 0).Select Next End Sub
La macro se lance au double-clic dans une cellule
@+ thierryp
------------------------ Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet. (Courteline) ------------------------
Bonsoir, Je voudrais savoir comment faire pour avoir les N°s de couleur correspondant. Exemple : Je veux dans une cellule la couleur 41 : comment je l'obtient ? Cordialement Guy
-- @+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
