Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1459 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1330762
kennybis
SeiGneuR des SaiGneuRz - SaiGn
Posté le 23-03-2006 à 09:16:39  profilanswer
 

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

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

mood
Publicité
Posté le 23-03-2006 à 09:16:39  profilanswer
 

n°1332557
kennybis
SeiGneuR des SaiGneuRz - SaiGn
Posté le 26-03-2006 à 19:13:09  profilanswer
 

up / please help

n°1332627
Epena
Posté le 26-03-2006 à 22:42:39  profilanswer
 

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
 

n°1332682
kennybis
SeiGneuR des SaiGneuRz - SaiGn
Posté le 27-03-2006 à 08:40:19  profilanswer
 

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

n°1333463
kennybis
SeiGneuR des SaiGneuRz - SaiGn
Posté le 28-03-2006 à 11:41:03  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
Probleme de codage RSS / Google[RESOLU] problème champ floatval en SQL
[PHP][resolu] prob pour l'ajout de photo[ASP]Probleme fonctionnement moteur de recherche
probleme cookies de sessionproblème de compilation avec eclipse
[RESOLU]Faire une gallerie de photo en HTML [SISI CA MARCHE] :)probleme d'analyse
[ RESOLU ] pb avec COUNT 
Plus de sujets relatifs à : [VBA] [Resolu] [Thx to Epena o/ ] Probleme de couleur de cellule [...]


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR