Doublons Horizontaux

ZZR09

XLDnaute Occasionnel

• 23 Juillet 2008

• #2

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 🙂

 

Vote positif 0 Vote négatif

WDAndCo

XLDnaute Impliqué

• 23 Juillet 2008

• #3

Re : Doublons Horizontaux

Bonjour le Forum et ZZR09

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

Amicalement
Dominique

 

Vote positif 0 Vote négatif

WDAndCo

XLDnaute Impliqué

• 23 Juillet 2008

• #4

Re : Doublons Horizontaux

Bonsoir le Forum

Pas de solution ?

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 23 Juillet 2008

• #5

Re : Doublons Horizontaux

Bonsoir WDAndCo,

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

Code:

........
............
....
  ' 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

 

Vote positif 0 Vote négatif

WDAndCo

XLDnaute Impliqué

• 24 Juillet 2008

• #6

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

 

Pièces jointes

• Graissage.zip

  26.5 KB · Affichages: 19
• Graissage.zip

  26.5 KB · Affichages: 18
• Graissage.zip

  26.5 KB · Affichages: 17

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 24 Juillet 2008

• #7

Re : Doublons Horizontaux

Re bonjour,

utilise Cdate, par exemple:

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

 

Vote positif 0 Vote négatif

WDAndCo

XLDnaute Impliqué

• 24 Juillet 2008

• #8

Resolu : Doublons Horizontaux

Merci beaucoup !

Dominique

 

Vote positif 0 Vote négatif