Masquer des "doublons"
Bonjour à tous,
Je souhaite, sur une liste, masquer des lignes en "doublon" pour ne pas que les
calculs découlant de cette liste soient erronés.
Pour exprimer mon besoin j'ai écris l'algorithme et j'aurai besoin d'une "traduction"
en VBA pour certaines parties, et d'un peu voire beaucoup d'aide pour le reste, si possible.
J'ai récupéré ce premier code pour réaliser deux boucles imbriquées et me permettre de traiter toutes les données,
je ne sais pas si il est réellement adapté et si le début est utile ou non.
Le deuxième code est celui que j'ai commencé à écrire.
Sub Doublons()
Dim FL1 As Worksheet, Cell As Range, NoCol As Integer, NoLig As Long
Dim DerLig As Long, DerCol As Variant, Var As Variant
Dim adres As Variant
adres = Split("$D$5:$H$600", "$")
adres(0) = ""
adres(1) = "D"
adres(2) = "5"
adres(3) = "H"
adres(4) = "600"
Set FL1 = Worksheets("Feuil1")
'Détermine la dernière ligne renseignée de la feuille de calculs
DerLig = Split(FL1.UsedRange.Address, "$")(4)
'Détermine la dernière colonne renseignée de la feuille de calculs
DerCol = Columns(Split(FL1.UsedRange.Address, "$")(3)).Column
For NoLig = 1 To DerLig
For NoCol = 1 To DerCol
Var = FL1.Cells(NoLig, NoCol)
Next
Next
End SubMa liste est sur la Range("D5,H600") et j'ai pris n pour le numéro de ligne sélectionné.
Follow = passer à la condition suivante
J'ai mis Exit Sub pour passer à la ligne d'après sans agir, je ne sais pas si c'est bon
Dim Poste As String, Element As String, Date_début As Date, Date_fin As Date, n As Integer
If(1) Dn=Dn+1, Then Follow
Else, Exit Sub
If(2) En>=En+1, Then Follow
Else, Exit Sub
If(3) Gn<=Gn+1 AND Hn>=Hn+1, Then Follow
Else, Exit Sub
If (IF1,2,3)=TRUE, Then Hide entirerow(n+1)Pour info, le En>=En+1 signifie que si nous avons TR611 + 612 sur la ligne n et TR611 ou TR612 sur la ligne n+1, la condition est validée.
Bonjour et bienvenue sur le forum
Un essai à tester. Te convient-il ?
Bye !
Bonjour,
en ajoutant un feuil2, et un filtre, tu auras les données uniques donc sans doublon
P.
oups...(pas rafraichi mon écran)
Hello GMB , autre manière de faire
Bonjour,
Dans un premier temps, merci à vous deux !
Malheureusement, aucun des deux programmes no correspond :/
Je me suis peut-être mal exprimé, en même temps, il y a tellement de conditions que c'est compliqué.
Cet outil va servir à calculer un taux de disponibilité, le but est donc de connaître les temps de "sortie" de chaque
TR pour estimer la disponibilité générale. Mon but est donc, qu'aucune sortie ne se "chevauche". J'ai parlé de comparer
une ligne n avec une ligne n+1 mais il faudrait en fait comparer "toutes" les lignes entre elles si l'on peut dire.
Si on se retrouve, par exemple avec :
1. Ornano-TR611+612-5jours-02/03/15-06/03/15
2. Ornano-TR611-2jours-03/03/15-/04/03/15
La ligne numéro 2 devrait être masquée.
Encore merci pour le travail fourni, et j'espère qu'une solution pourra être trouvée
peut être à partir de ce que j'ai commencé à écrire.
Ok
Mais si les données de la colonne ‘’Element’’ n’ont pas la même structure, je ne vois pas comment faire.
Désolé !
Bye !
Ok !
J'imagine que je ne saurai pas faire non plus alors lol !
Il ne peut pas exister un moyen soit:
de déclarer TR611+612 et TR611 par exemple comme des variables ?
ou de dire, si Gn = TR611+612 et que Gn+n contient TR611 ou TR612, then... ?
Kalabriya a écrit :ou de dire, si Gn = TR611+612 et que Gn+n contient TR611 ou TR612, then... ?
et quand la macro va examiner : ''Tableau ART 354'' puis sur une autre ligne ''Tableau ART 363'' comment devra-t-elle faire ?
Bye !
Justement,
Normalement, toutes les cellules ne contenant pas "TR" sont masquées par une macro dans l'excel complet.
Sub hide_TR()
'
Range("E5:E800").Select
For Each o In Selection
If o Like "*TR*" Then
o.EntireRow.Hidden = False
Else: o.EntireRow.Hidden = True
End If
Next
End SubBonjour le forum,
Personne ne possède d'éléments de réponses ?
Même simplement des commentaires par rapport à mon code que j'ai
mis dans mon post ?
Merci d'avance