Macro:remplir cell1 par rapport couleur cell2
Résolu
jossdi
Messages postés
22
Date d'inscription
Statut
Membre
Dernière intervention
-
jossdi Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
jossdi Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Macro:remplir cell1 par rapport couleur cell2
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
13 réponses
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
le deuxieme range c'est range ("C" & i)
mais sinon la solution doit marcher!
mais sinon la solution doit marcher!
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...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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?
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
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é!