Probleme sur excel

ben -  
 random -
Bonjour
je souhaite trouver une fonction qui me permet de noircir des cases selon d'un tableau si la condition est pas respectée. Je crois qu'il faut faire du visual basic mais suis pas sur.
Moi pour mon souci je teste si une case est egal a 4 ou a 5 et si la reponse est 4 je veux que cela noircir une partie de mon tableau, soit quelques cases que je designerai.
je vous remercie d'avance

4 réponses

  1.
    teutates Messages postés 19847 Date d'inscription   Statut Modérateur Dernière intervention   3 589
     
    Bonjour,

    Utilise la mise en forme conditionnelle.

    Toco y se gausos !!!
    0
    1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      bonsoir

      j'avais eu la même idée mais cela ne fonctionne pas pour

      "je veux que cela noircir une partie de mon tableau, soit quelques cases que je designerai"

      car la mise en forme est conditionelle de la cellule.


      toujours zen
      0
  2. teutates Messages postés 19847 Date d'inscription   Statut Modérateur Dernière intervention   3 589
     
    Si la valeur de la cellule est égale à 4
    Format -> Motif = Couleur noire

    Ca fonctionne !!!

    Toco y se gausos !!!
    0
    1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      bonsoir

      ok cela marche mais uniquement pour la cellule =4
      et pas pour toutes les cellules à noicir !

      et donc à mon avis cela ne répond pas à la question...

      toujours zen
      0
    2. eve
       
      je ne comprends pas le problème. Cela marche très bien avec la mise en forme conditionnelle.
      Sélectionner la zone
      Format/mise en forme conditionnelle
      Si la valeur de la cellule est égale à 4 ou comprise entre telle et telle valeur on applique une couleur
      0
  3. UsulArrakis Messages postés 7683 Statut Contributeur 3 196
     
    bon j'y connais rien en macro mais celle-ci fonctionne si B1 = 4
    elle noircie les cellules A1 B6 D8 ...

    Sub noircir()
    '
    ' noircir Macro
    ' Macro enregistrée le 04/12/2004 par Utilisateur
    '

    '
    Dim Nb1 As Double
    Nb1 = Feuil1.Cells(1, 2)
    If Nb1 = 4 Then
    Range("A1,B6,D8,D4,F3,F7,F12,G10,G5").Select
    Range("A1").Activate
    With Selection.Interior
    .ColorIndex = 1
    .Pattern = xlSolid
    End With
    Else

    End If

    End Sub

    mais va surtout voir là :
    http://www.cathyastuce.com/w-agora/index.php?site=cathyastuce&bn=
    où là
    http://vlohr.free.fr/Forum_VeriTi/forum_1.php

    (_Usul d'Arrakis
    Serial_dreamer_)
    0
  4. random
     
    essaye la mise en forme conditionnelle
    0