Doublons Horizontaux

[WDAndCo]

Bonsoir le Forum

Comment éliminer des doublons horizontaux ?

1) issu d'une saisie automatique
2) de droite a gauche
3) les extrémités de lignes (à droite) ne sont pas tous dans la même colonne
4) un nombre de ligne constant
5) ses doublons seront voisin (celui de droite est a éliminer)
6) pouvoir mettre cette solution a la suite un déclenchement automatique de saisie lors d'une modification de cellule (sur une autre feuille)

Lien supprimé

D'avance merci
Dominique

 

[ZZR09]

Re : Doublons Horizontaux

Bonjour WDAndCo, le forum,

je ne vois pas où sont les doublons horizontaux?
voici les champs trouvés:

Lieux Postes Zones Aiguilles Périodes Derniers Prochains Réalisés Etat

C'est peut-être un fichier déjà modifié... ou c'est moi qui ne comprend pas bien où est le problème 😕

A te lire 🙂

 

[WDAndCo]

Re : Doublons Horizontaux

Bonjour le Forum et ZZR09

Les doublons sont sur la feuille "Archive" a partir de la colonne "E"

Amicalement
Dominique

 

[WDAndCo]

Re : Doublons Horizontaux

Bonsoir le Forum

Pas de solution ?

 

[skoobi]

Re : Doublons Horizontaux

Bonsoir WDAndCo,

si j'ai bien compris, ajoute cette condition dans le code de la feuille:

........
............
....
  ' Inscrire la valeur dans la prochaine colonne vide
  DerCol = .Cells(Lig, Columns.Count).End(xlToLeft).Column
  .Cells(Lig, DerCol + 1).Value = NewDate
  .Cells(1, DerCol + 1).Value = "Saisie le" & Chr(10) & DateSaisie
 [COLOR=Blue][B] If .Cells(Lig, DerCol + 1).Value = .Cells(Lig, DerCol).Value Then .Cells(Lig, DerCol + 1).ClearContents[/B][/COLOR]
End With
End Sub

 

[WDAndCo]

Re : Doublons Horizontaux

Bonsoir le Forum et skoobi

Merci pour ce bout de code, qui marche mais il reste quand même un problème la date s'inscrit au format "MMJJAAAA" alors quelle devrait être au format "JJMMAAAA"

Voir le fichier joint, la je ne comprend plus rien !

Dominique

 

[skoobi]

Re : Doublons Horizontaux

Re bonjour,

utilise Cdate, par exemple:

.Cells(Lig, DerCol + 1).Value = Cdate(NewDate)

 

[WDAndCo]

Resolu : Doublons Horizontaux

Merci beaucoup !

Dominique