Masquer des cellules si la cellule au-dessus à la même valeur

**Bubut** · 11/06/2007, 08h19

Bonjour le forum,

Je vous explique mon petit problème : Dans mon tableur j'ai ca comme valeur :
N°Devis Code client Référence Quantité Prix .....
257 tttttttttt 56 ttttttttTSX37 ttttttt2 tttt 254.45
257 ttttttttttt56tttttttt TSX57 tttttt 3 tttt589.35
257ttttttttttt 56tttttttt M340 ttttttt 1 tttt 256.31
258ttttttttttt 78 ttttttttS7400 tttttt 2 ttttt425.26
258ttttttttttt 78 ttttttttTwido tttttt 1 ttttt254.26

Donc voila à quoi ressemble mon tableur (les données viennent d'une requète Access).
Tout le tableau vient d'Access, mais moi je voudrai que ce que j'ai mis en orange soit masqué ou avec un format de couleur blanc (de manière à ce que l'on ne voye pas les valeurs mais que l'on puisse tout de même trier les colonnes du tableau sans tout mélanger).

J'espère mettre bien exprimé.

Cordialement,
Bubut

**franck.automaticien** · 11/06/2007, 08h45

Bonjour,

Comment différencis tu les variable orange des autres?
Cordialement
Franck

**wilfried_42** · 11/06/2007, 08h48

Bonjour Bubut

On ne peut pas masqué une cellule simple, une ligne ou une clonne oui mais une cellule seule non

Il y a neanmoin un moyen de tricher en coloriant la couleur de caracteres de la meme couleur que la couleur de fond

une simple Mse en forme condtionnelle suffit

imaginons colonne A et B : je selectonne A2:B N° de derniere ligne

Menu Format / Mise en forme conditinnelle

La formule est : =(A2 = DECALER(A2;-1;0))=VRAI

Choisir en format lanc sur blanc

Valider

Codialement

Oups : pas vu, Bonjour Franck

**Bubut** · 11/06/2007, 09h03

Bonjour franck.automaticien et wilfried_42

Pour franck.automaticien, il y a rien qui différencis les variables oranges des autres.

Il y a pas moyen que l'on pose une condition en lui disant par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim i as integer
 
If Ai.value = Ai+1 then
ColorIndex = 2 'blanc]

Je suis du genre mauvais en programmation, je pense que vous comprennez ce que je veux dire.

Cordialement,
Bubut

**ouskel'n'or** · 11/06/2007, 09h16

Regarde là.
Le code supprime les doublons. Tu remplaces simplement la suppression par la "décoloration" de ta ligne.
c'est à dire .delete par .Interior.ColorIndex = xlNone
Les différents codes se valent

**Bubut** · 11/06/2007, 09h21

Ok je regarde merci beaucoup ouskel'n'or et tout le monde.

Je retiens au courant sur cette discussion

Cordialement,
Bubut

**Bubut** · 11/06/2007, 11h05

Merci ouskel'n'or,

ça fonctionne bien voila le code que j'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub effacer_bdoublon()
'pour enlever les trous, on classe d'abords la colonne par ordre alphabétique ou inverse
Range("A1:K10").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
'on compte nombre de ligne
nb_ligne = 1
While Cells(nb_ligne, 1) <> ""
    nb_ligne = nb_ligne + 1
Wend
 
'on enlève les doublons:
For i = 2 To nb_ligne
    If Cells(i, 1) = Cells(i - 1, 1) Then
        Rows(i & ":" & i).Select
        Selection.Font.ColorIndex = 2
    End If
Next i
End Sub

Le seul petit souci, s'est qu'il met en blanc toute la ligne, et que moi je voudrai que ce soit de la colonne A à la colonne k incluse.

Cordialement,
Bubut

**Bubut** · 11/06/2007, 14h08

2nd souci :
Donc mon tableau vient d'une requète provenant de Access, et donc pour le maitre à jour il faut faire un clic droit puis "Actualiser les données". Donc le hic est qu'il me met les nouvelles valeurs en blanc (donc invisible).

Je voudrai savoir si il y a possibilité lors de l'actualisation du tableau de mettre les nouvelles valeurs en noir ou un moyen en tout les cas.

Cordialement,
Bubut

**ouskel'n'or** · 11/06/2007, 14h19

J'ai une minute pour répondre à ta première question

Rows(i & ":" & i).Select
Selection.Font.ColorIndex = 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A" & i & ":K" & i).Font.ColorIndex = 2

Bon après-midi

**Bubut** · 11/06/2007, 14h36

Super ouskel'n'or c'est nikel.

Je vais essayé de voir pour mon second problème, je retiens au courant.

Cordialement,
Bubut

**mordrhim** · 11/06/2007, 15h06

sinon tu supprimes la valeur ^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Do Until Cells(Ligne, Colonne) = Empty
    Valeur = Cells(Ligne, Colonne)
    Ligne = Ligne + 1
    While Cells(Ligne, Colonne) = Valeur
        Cells(Ligne, Colonne) = ""
        Ligne = Ligne + 1
    Wend
Loop

par contre, a faire dans l'ordre inverse de ta base .

je m'explique si tu veux faire ca sur une base de donnée et que tu as par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sportif     Tennis     24    Celib
Faineant    Tennis     22    Marie
Faineant     Polo      16    Celib

il va supprimer aussi bien le deuxieme rouge que le deuxieme vert ! (alors que le tuple est pas le meme ^^)

**Bubut** · 11/06/2007, 15h39

Je ne peu pas supprimer les valeurs car après il faudra que je fasse des tries et si une cellule est supprimé il va mélanger au fur et à mesure.

Merci de ta réponse

Cordialement,
Bubut

**mordrhim** · 11/06/2007, 17h41

oki ^^

sinon fais une macro qui remet à plat toutes les couleurs de police lorsque tu as chargé ta nouvelle base

**wilfried_42** · 11/06/2007, 18h59

re

excusez mais je crois que la formule sur MFC fonctionne mais bon si vous voulez de la macro !!

bonne soirée

**Bubut** · 12/06/2007, 08h12

Salut mordrhim,

je sais pas comment remettre à plat toutes les couleurs de police lors du chargement de la base.

Salut wilfried_42, c'est quoi la formule sur MFC ???

Cordialement,
Bubut

**ouskel'n'or** · 12/06/2007, 08h43

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Worksheets(NomDeLaFeuille).Cells.ColorIndex = xlAutomatic

**mordrhim** · 12/06/2007, 09h10

Bonjour,
Tu fais une tout petite mini macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Init()
 
    With Cells
        .Font.ColorIndex = 0
        .Interior.ColorIndex = 0
    End With
 
End Sub

Ce macro met TOUTES les cellules de la feuille active au format par défaut (sans fond, police noire)

Si tu ne veux faire ça que pour une certaine valeur, tu remplaces

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("XX:YY")

XX étant la première cellule et YY la dernière de la plage que tu veux remettre à zéro.

PS EDIT: Bonjour Ouskel ^^ avais oublié de valider le message lol ^^

**Bubut** · 12/06/2007, 09h29

Super mordrhim et ouskel'n'or, c'est super cool.

Dernière chose, pour le mettre sur ouverture ce n'est pas comme ça je présume:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
    With Cells
        .Font.ColorIndex = 0
        .Interior.ColorIndex = 0
    End With
End Sub

Ca ça ne fonctionne pas