Macro:remplir cell1 par rapport couleur cell2
Résolu/Fermé
jossdi
Messages postés
22
Date d'inscription
mercredi 9 juillet 2008
Statut
Membre
Dernière intervention
21 juillet 2008
-
9 juil. 2008 à 12:43
jossdi Messages postés 22 Date d'inscription mercredi 9 juillet 2008 Statut Membre Dernière intervention 21 juillet 2008 - 10 juil. 2008 à 11:51
jossdi Messages postés 22 Date d'inscription mercredi 9 juillet 2008 Statut Membre Dernière intervention 21 juillet 2008 - 10 juil. 2008 à 11:51
A voir également:
- Macro:remplir cell1 par rapport couleur cell2
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Macro souris ✓ - Forum Windows
13 réponses
Steefif
Messages postés
485
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
15 février 2013
19
9 juil. 2008 à 13:25
9 juil. 2008 à 13:25
je pense que tu peux faire un truc du genre
if cells(2,5).interior = "code couleur" then
"instructions"
else
...
endif
if cells(2,5).interior = "code couleur" then
"instructions"
else
...
endif
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
if range("B" & i).interior = 5 then
range("B" & i).value = "après-midi"
end if
sert toi du i comme d une variable
Steefif
Messages postés
485
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
15 février 2013
19
9 juil. 2008 à 13:38
9 juil. 2008 à 13:38
le deuxieme range c'est range ("C" & i)
mais sinon la solution doit marcher!
mais sinon la solution doit marcher!
jossdi
Messages postés
22
Date d'inscription
mercredi 9 juillet 2008
Statut
Membre
Dernière intervention
21 juillet 2008
10 juil. 2008 à 09:18
10 juil. 2008 à 09:18
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
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
Steefif
Messages postés
485
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
15 février 2013
19
10 juil. 2008 à 09:29
10 juil. 2008 à 09:29
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...
pke il y a plein de bleus...
jossdi
Messages postés
22
Date d'inscription
mercredi 9 juillet 2008
Statut
Membre
Dernière intervention
21 juillet 2008
10 juil. 2008 à 09:47
10 juil. 2008 à 09:47
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é
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é
jossdi
Messages postés
22
Date d'inscription
mercredi 9 juillet 2008
Statut
Membre
Dernière intervention
21 juillet 2008
10 juil. 2008 à 10:00
10 juil. 2008 à 10:00
je pense à un truc si je dois prendre i comme une variable, ne faut il pas la déclarer
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Steefif
Messages postés
485
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
15 février 2013
19
10 juil. 2008 à 10:01
10 juil. 2008 à 10:01
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
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
Steefif
Messages postés
485
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
15 février 2013
19
10 juil. 2008 à 10:05
10 juil. 2008 à 10:05
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
for i = 1 to Cells(Rows.Count, 1).End(xlUp).Row
comme ca ca va te faire ton programme sur toutes tes valeurs
jossdi
Messages postés
22
Date d'inscription
mercredi 9 juillet 2008
Statut
Membre
Dernière intervention
21 juillet 2008
10 juil. 2008 à 10:15
10 juil. 2008 à 10:15
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?
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?
Steefif
Messages postés
485
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
15 février 2013
19
10 juil. 2008 à 10:17
10 juil. 2008 à 10:17
je vais jeter un coup d'oeil bouge pas
Steefif
Messages postés
485
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
15 février 2013
19
10 juil. 2008 à 10:32
10 juil. 2008 à 10:32
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
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
jossdi
Messages postés
22
Date d'inscription
mercredi 9 juillet 2008
Statut
Membre
Dernière intervention
21 juillet 2008
10 juil. 2008 à 10:51
10 juil. 2008 à 10:51
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+
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+
Steefif
Messages postés
485
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
15 février 2013
19
10 juil. 2008 à 10:52
10 juil. 2008 à 10:52
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é!
regarde l'aide elle est tres bien.
et sinon tu as toujours les gens d'ici!
moi on m'a bcp aidé!
jossdi
Messages postés
22
Date d'inscription
mercredi 9 juillet 2008
Statut
Membre
Dernière intervention
21 juillet 2008
10 juil. 2008 à 10:54
10 juil. 2008 à 10:54
dac je suivrais ton conseil comme toujours!
;-)
;-)
Steefif
Messages postés
485
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
15 février 2013
19
10 juil. 2008 à 10:52
10 juil. 2008 à 10:52
sujet résolu?
=)
=)
Steefif
Messages postés
485
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
15 février 2013
19
10 juil. 2008 à 11:04
10 juil. 2008 à 11:04
peux tu mettr ele sujet comme résolu stp? ca fait plus joli quand meme!
=)
=)
jossdi
Messages postés
22
Date d'inscription
mercredi 9 juillet 2008
Statut
Membre
Dernière intervention
21 juillet 2008
10 juil. 2008 à 11:51
10 juil. 2008 à 11:51
it's OK!