[VBA] [Resolu] [Thx to Epena o/ ] Probleme de couleur de cellule [...]

Probleme de couleur de cellule [...] [VBA] [Resolu] [Thx to Epena o/ ] - VB/VBA/VBS - Programmation

Marsh Posté le 23-03-2006 à 09:16:39    

Salut, j'aurai aimé savoir pourquoi ce morceau de code bugge... J'm'arrache les cheveux mais je comprends pas... Le but étant que la ligne de mon tableau (mais juste le tableau) soit rouge a condition qu'une des cases de cette meme ligne contienne "A".
 

Code :
  1. Event Selection Change :
  2. If Cells(ActiveCell.Row, 17).Value = "A" Then
  3.     For i = 1 To 24
  4.         Cells(ActiveCellRow, i).Interior.ColorIndex = 3
  5.      Next i
  6. End If


 
Et aussi, si quelqu'un pouvait m'éclairer sur la facon la plus directe de faire une liste dynamique ; j'entends par la, une liste de choix (avec "Données>Validation" ) qui changerait en fonction du contenu d'une tierce case.
 
MERCI !


Message édité par kennybis le 28-03-2006 à 11:43:50

---------------

Reply

Marsh Posté le 23-03-2006 à 09:16:39   

Reply

Marsh Posté le 26-03-2006 à 19:13:09    

up / please help

Reply

Marsh Posté le 26-03-2006 à 22:42:39    

Bonsoir,
Il y a une erreur de syntaxe sur ActiveCellRow dans la ligne Cells(ActiveCellRow, i).Interior.ColorIndex = 3. il faut mettre :  

Cells(ActiveCell.Row, i).Interior.ColorIndex = 3


C'est quoi : Event Selection Change :???
L'événement de changement de sélection d'une cellule en VBA d'Excel s'écrit :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Cells(ActiveCell.Row, 17).Value = "A" Then
    For i = 1 To 24
        Cells(ActiveCell.Row, i).Interior.ColorIndex = 3
    Next i
End If
End Sub


C'est plus adapté d'utiliser l'évenement Change et d'utiliser l'objet Target qui représente la cellule venant d'être modifié soit :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Cells(Target.Row, 17).Value = "A" Then
    For i = 1 To 24
        Cells(Target.Row, i).Interior.ColorIndex = 3
    Next i
End If
End Sub


Cordialement
Epéna
 

Reply

Marsh Posté le 27-03-2006 à 08:40:19    

merci :D
 
 
 
une idée pour les listes :( ?

Reply

Marsh Posté le 28-03-2006 à 11:41:03    

pour les listes j'ai trouvé tout seul :D
 
=> http://forum.hardware.fr/hardwaref [...] 7246-1.htm
 
Me reste plus que des graphiques et c'est bueno !
 
un grand merci a Epena o/


Message édité par kennybis le 28-03-2006 à 11:41:18
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed