Excel macro: faire correspondre des cellules
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,
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
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
A voir également:
- Excel macro: faire correspondre des cellules
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
3 réponses
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
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
