Discussion :

[Bubut]

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]

Bonjour,

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

[wilfried_42]

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]

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]

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]

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

Je retiens au courant sur cette discussion

Cordialement,
Bubut

[Bubut]

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