excel macro: faire correspondre des cellules Résolu

Question

Bonjour,
mo, but est que si la cellule (23,2) de la feuille1 est grise 
alors la cellule de feuille2 (9,38) est transparente et la valeur de inscrite dedans est celle
 de la cellule (24,3) de la feuille1.
voici mon code
Sub macro1()
Sheets("feuille1").Activate
If Cells(23, 2).Interior.ColorIndex = 15 Then
Sheets("feuille2").Activate
Cells(9, 38).Interior.Color = 10092543
Cells(9, 38) = Cells('feuille'! 24,3).Value
end sub

problème je n'arrive pas à faire correspondre les valeurs de cellules appartenant à
 deux feuilles différentes.
quelqu'un pourrait il vérifier que ma syntaxe est bonne?
Cells(9, 38) = Cells('feuille'! 24,3).Value
Merci Jossdi

vautour88 · Answer

si tu travaille avec plusieur feuille tu dois les preciser dans tes declaration
Sub macro1() 
If worksheets("feuille1").Cells(23, 2).Interior.ColorIndex = 15 Then 
worksheets("feuille2").Cells(9, 38).Interior.Color = 10092543 '>>> tu es sur de la couleur?
worksheets("feuille2").Cells(9, 38).Value = worksheets("feuille1").Cells(24,3).Value 
end sub 

voir si tu n a pas toucher au nom de feuille tu peu meme mettre worksheets(2).... pour la feuille2 par exemple, mais ca n est qu un detail

lermite222 · Answer

Bonjour,
Peut-être comme ceci

    Sheets("Feuille1").Cells(50, 1) = Sheets("Feuille2").Cells(5, 3)
A+
EDIT:
Sorry vautour, j'ai trainer pour envoyer la réponse.

jossdi · Answer

bonjour,
merci pour vos conseils; maintenant ça marche.
Jossdi ;-)

Excel macro: faire correspondre des cellules

3 réponses

Discussions similaires

Newsletters