rss
Options Ils ont besoin de votre aide Tous les messages sans réponse
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Résolu

Macro:remplir cell1 par rapport couleur cell2

jossdi, le mercredi 9 juillet 2008 à 12:43:31
Bonjour,
je suis complètement débutant en macro excel.
je voudrais savoir comment remplir une cellule avec un texte en fonction de la couleur d'une autre.
autrement dit:
si la cellule B5 est de couleur bleu alors le message "après-midi apparait dans la cellule C5.
merci d'avance pour votre aide.
jossdi
Configuration: Windows XP
Firefox 2.0.0.15
Répondre à jossdi  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Steefif, le mercredi 9 juillet 2008 à 13:25:38
je pense que tu peux faire un truc du genre
if cells(2,5).interior = "code couleur" then
"instructions"
else
...



endif La vie c'est comme une boite de chocolat, on ne sait jamais sur quoi on va tomber.
   
Répondre à Steefif

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
tigrou, le mercredi 9 juillet 2008 à 13:36:16
si la cellule B5 est de couleur bleu alors le message "après-midi apparait dans la cellule C5.
if range("B" & i).interior = 5 then
range("B" & i).value = "après-midi"
end if

sert toi du i comme d une variable
   
Répondre à tigrou

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Steefif, le mercredi 9 juillet 2008 à 13:38:13
le deuxieme range c'est range ("C" & i)
mais sinon la solution doit marcher! La vie c'est comme une boite de chocolat, on ne sait jamais sur quoi on va tomber.
   
Répondre à Steefif

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
jossdi, le jeudi 10 juillet 2008 à 09:18:46
Bonjour,
j'ai essayé avec le code suivant:

Sub technologydetail()
If Range("B" & i).interioe = 5 Then
Range("C" & i).Value = "après-midi"
End If
Sheets("technologydetail").Select
End Sub

mais ça ne fonctionne pas.
que puisse modifier pour arriver à mes fins?

Yohann
   
Répondre à jossdi

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Steefif, le jeudi 10 juillet 2008 à 09:29:55
as tu bien vérifier que c'était le bleu "5" que tu mettais dans la cellule B5?
pke il y a plein de bleus... La vie c'est comme une boite de chocolat, on ne sait jamais sur quoi on va tomber.
   
Répondre à Steefif

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
jossdi, le jeudi 10 juillet 2008 à 09:47:31
Steefif,
la macro ne s'exécute même pas.
j'ai un message d'erreur; le voici:
erreur d'exécution '1004':
la méthode 'range' de l'objet'_Global'a échoué
   
Répondre à jossdi

7


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
jossdi, le jeudi 10 juillet 2008 à 10:00:33
je pense à un truc si je dois prendre i comme une variable, ne faut il pas la déclarer
   
Répondre à jossdi

8


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Steefif, le jeudi 10 juillet 2008 à 10:01:09
alorsil faut mettre.interior, je sai spas si c'ets une faute de frappe ou pas, mais t'a smis .interioe dans ton message.
si c'ets un copier coller faut remédier à ca.
et avant le range il faut que tu séléctionne le sheet à activer
en gors sheets("feuil1").activate par exemple.
voilou.
essaye avec ca, si t'as d'autres soucis, je vais faire des tests La vie c'est comme une boite de chocolat, on ne sait jamais sur quoi on va tomber.
   
Répondre à Steefif

9


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Steefif, le jeudi 10 juillet 2008 à 10:05:21
si il faut que tu mettes tout ca dans une boucle for :

for i = 1 to Cells(Rows.Count, 1).End(xlUp).Row

comme ca ca va te faire ton programme sur toutes tes valeurs La vie c'est comme une boite de chocolat, on ne sait jamais ­sur quoi on va tomber.
   
Répondre à Steefif

10


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
jossdi, le jeudi 10 juillet 2008 à 10:15:29
Désolé d'être si nul mais je galère grave...
ci-dessous voici tout le code de ma macro


Sub technologydetail()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Range("B" & i).Interior = 5 Then
Range("C" & i).Value = "après-midi"
End If
Next
Sheets("technologydetail").Select
End Sub

j'ai essayé de suivre à la lettre tes instructions mais sans résultats
toujours le même message d'erreur et la ligne "if Range("B"&i).interior = 5 Then" surlignée en jaune peut être est ce sur cette ligne qu'il y a le problème?
   
Répondre à jossdi

11


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Steefif, le jeudi 10 juillet 2008 à 10:17:16
je vais jeter un coup d'oeil bouge pas
La vie c'est comme une boite de chocolat, on ne sait jamais ­sur quoi on va tomber.
   
Répondre à Steefif

12


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Steefif, le jeudi 10 juillet 2008 à 10:32:10
sub macro_test

Sheets("Feuil2").Activate
For j = 1 To 90
If j Mod 3 = 0 Then
Cells(j, 2).Interior.ColorIndex = 5
End If
Next j

//là c'ets une phase test j'ai rempli quelques cellules en bleues

For i = 1 To 90
Sheets("Feuil2").Activate
If Cells(i, 2).Interior.ColorIndex = 5 Then
Sheets("Feuil1").Activate
Cells(i, 3).Value = "après-midi"
End If
Next i
Sheets("Feuil1").Select
End Sub

//et là ca marche par contre il faut changer le nombre dans la boucle for
//j'ai mis 90
//mais tu peux changer et mettre ce que tu veux

voila La vie c'est comme une boite de chocolat, on ne sait jamais sur quoi on va tomber.
   
Répondre à Steefif

13


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
jossdi, le jeudi 10 juillet 2008 à 10:51:42
ok ça marche!!!!!
je te remercie Steefif.
ça fait deux jours que je bloquais sur le sujet.....
je trouve ça cool de ta part de m'avoir filé un coup de main.
il faudra à l'avenir que j'achète un bouquin sur le sujet quand même.

a+
   
Répondre à jossdi

14


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Steefif, le jeudi 10 juillet 2008 à 10:52:34
pas la peine, j'ai appris vba il y a 3 semaine smaintenant
regarde l'aide elle est tres bien.
et sinon tu as toujours les gens d'ici!
moi on m'a bcp aidé! La vie c'est comme une boite de chocolat, on ne sait jamais ­sur quoi on va tomber.
   
Répondre à Steefif

16


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
jossdi, le jeudi 10 juillet 2008 à 10:54:25
dac je suivrais ton conseil comme toujours!
;-)
   
Répondre à jossdi

15


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Steefif, le jeudi 10 juillet 2008 à 10:52:54
sujet résolu?
=) La vie c'est comme une boite de chocolat, on ne sait jamais ­sur quoi on va tomber.
   
Répondre à Steefif

17


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Steefif, le jeudi 10 juillet 2008 à 11:04:49
peux tu mettr ele sujet comme résolu stp? ca fait plus joli quand meme!
=) La vie c'est comme une boite de chocolat, on ne sait jamais ­sur quoi on va tomber.
   
Répondre à Steefif

18


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 jossdi, le jeudi 10 juillet 2008 à 11:51:25
it's OK!
   
Répondre à jossdi
Posez votre question Répondre
Rapport smitfraudfix (Résolu)voici le rapport: SmitFraudFix v2.11 Rapport fait à 21:34:22,14 le 02/01/2006 Executé à partir de C:\Documents and Settings\JULIEN\Mes documents\SmitfraudFix\SmitfraudFix OS: Microsoft Windows XP [version 5.1.2600] »»»»»»»»»»»»»»»»»»»»»»»» Recherche... www.commentcamarche.net/forum/affich-2013535-rapport-smitfraudfix
Rapport (Résolu)Bonoir et encore merci, ci joint les rapports demandés : SmitFraudFix v2.137 Rapport fait à 22:40:31,25, 29/01/2007 Executé à partir de C:\Documents and Settings\Owner\Mes documents\T‚l‚charger\Divers\SmitfraudFix OS: Microsoft Windows XP [version... www.commentcamarche.net/forum/affich-2633111-rapport
[Viru] Spy Sherif (Résolu)Bonjour, Sur PC penthium IV 566MHZ, infection par virus Spy Sherif. Ci-joint le rapport suite à la procédure indiquée.SmitFraudFix v2.15 Rapport fait à 21:36:41,20 le 28/01/2006 Executé à partir de C:\Documents and... www.commentcamarche.net/forum/affich-2064706-viru-spy-sherif
Infecté par spy sheriff (Résolu)merci de m'aide je suis pas très calée. je voudrais me débarrasser de spy shériff SmitFraudFix v2.19 Rapport fait à 21:08:17,09 le 12/02/2006 Executé à partir de C:\Documents and Settings\christelle\Bureau\SmitfraudFix OS: Microsoft Windows XP... www.commentcamarche.net/forum/affich-2092347-infecte-par-spy-sheriff
System alert (Résolu)bonjour à tous, j'ai aussi un problème de System alert, j'espère que quelqu'un pourra m'aider, voici les différents rapports Smitfraudfix et hijackthis. SmitFraudFix v2.141 Rapport fait à 21:43:56,35, 10/02/2007 Executé à partir de... www.commentcamarche.net/forum/affich-2670095-system-alert
Spylocked (Résolu)Bonjour, comme j'ai pu le voir, il y a plusieurs personnes qui ont eu des problèmes avec ce fameux virus là. J'aurais besoin d'aide moi aussi s.v.p. Merci d'avance Jonny SmitFraudFix v2.186 Rapport fait à 22:21:23,01, 2007-05-30... www.commentcamarche.net/forum/affich-3056753-spylocked
LEXMARK Cartouche d’encre 3 couleurs No 29A 18C1529 pour LEXMARK X 5070LEXMARK Cartouche d’encre 3 couleurs No 29A 18C1529 pour LEXMARK X 5070,C 1529 29 A , www.commentcamarche.net/guide-achat/lexmark-cartouche-d-encre-3-couleurs-no-29a-18c1529-pour-lexmark-x-5070-460657324-fiche-technique
PRIMEON Cakebox de 25 DVD-R 4,7 Go 16x Lightscribe Couleurs assortiesPRIMEON Cakebox de 25 DVD-R 4,7 Go 16x Lightscribe Couleurs assorties,16 x ,- Format: DVD-R - Capacité d'enregistrement: 4,7 Gigabyte / 120 Minutes - Non réinscriptible - Vitesse de gravage: jusqu'à 16x - Face supérieure: surface imprimable coul www.commentcamarche.net/guide-achat/primeon-cakebox-de-25-dvd-r-4-7-go-16x-lightscribe-couleurs-assorties-438856024-fiche-technique
Lexmark Lexmark Z12 : cartouche d'encre compatible 17G0060 Encre Couleur Haute Résolution 22Lexmark Lexmark Z12 : cartouche d'encre compatible 17G0060 Encre Couleur Haute Résolution 225 copies Compatible,Z 12 17 G ,Les cartouches toner compatibles TONER SERVICES bénéficient quant à elles d'une garantie commerciale de deux ans. Cartouche co www.commentcamarche.net/guide-achat/lexmark-lexmark-z12-cartouche-d-encre-compatible-17g0060-encre-couleur-haute-resolution-225-copies-compatible-506344356-fiche-technique
Toutes les réponses pour « macro:remplir cell1 par rapport couleur cell2 »