recopie de date

[oliv67]

bonsoir à tout le forum.

je viens vers vous afin de trouver une solution à un pb de recopie du contenu d'une cellule dans une autre par un systeme de boucle.

merci beaucoup



olivier

 

[Cousinhub]

Re : recopie de date

Bonsoir, oliv67
En espérant que le fichier joint soit identique à ton fichier de travail, tu peux essayer ce code :

Sub Macro1()
For Each c In Columns("F:F").SpecialCells(xlCellTypeConstants, 23)
Range(Cells(c.Row - c, 1), Cells(c.Row - 1, 1)).Value = Format(Left(Cells(c.Row, c.Column - 1), 5), "dd-mmm")
Next c
End Sub

tu testes, et tu dis..
Bonne soirée

Edit : quand je dis que le fichier doit être identique, c'est que la colonne F doit être renseignée comme dans ton exemple

 

[oliv67]

Re : recopie de date

bonjour le forum en cette matinée glaciale au niveau temperature.

je viens de tester
mais j'ai une incompatibilite de type 13


je n'arrive pas à voir d'ou cela vient


olivier

 

[pierrejean]

Re : recopie de date

bonjour oliv67

en l'absence de bhbh 🙂 que je salue

une proposition

 

[wilfried_42]

Re : recopie de date

Bonjour à tous

ton fichier en retour


Edit : Bonjour pierrejean, j'envoie ma reponse ayant travaillé 😕

 

[oliv67]

Re : recopie de date

merci pierre jean pour cette rapidite

mais je vois pas de solution dans le fichier joint.
serais ce le bon fichier?

olivier

 

[pierrejean]

Re : recopie de date

Salut Wilfried 🙂 (je regarde ta solution)

j'avais simplement omis d'enregistrer

j'espere que cette fois ce sera mieux

 

[oliv67]

Re : recopie de date

merci pierre jean et Wilfried

ta solution fonctionne super bien
mais j'ai du légèrement modifié mon dossier et la formule ne recopie plus la date car le contenu des cellules en e est plein


olivier

 

[wilfried_42]

Re : recopie de date

re:

je ne comprends rien, tu nous renvoies un vieux fichier, sans le code de pierrejean ou le mien

@ te lire

 

[oliv67]

Re : recopie de date

avec le bon fichier c'est mieux

 

[wilfried_42]

Re : recopie de date

re:

Je te renvoie mon fichier, avec (piqué sur pierrejean) l'astuce des dates, comme l'année n'est pas complete dans la colonne E

Et en cas de mise à jour, (colonne A partiellement remplie)

 

[pierrejean]

Re : recopie de date

Re

le même mais avec test sur la colonne F, en esperant qu'il n'y ait rien entre les decomptes de ligne

 

[wilfried_42]

Re : recopie de date

re:

C'est completement different lol

Ton fichier en retour


Edit : me mefiant des surprises, j'ai testé le caractere "/" de la date

 

[Cousinhub]

Re : recopie de date

Bonjour oliv, wilfried, pierrejean, le forum

ton fichier en retour

le code :

Sub Macro1()
For Each c In Columns("G:G").SpecialCells(xlCellTypeBlanks)
Range(Cells(c.Row - c.Offset(, -1), 1), Cells(c.Row - 1, 1)).Value = Format(Left(Cells(c.Row, c.Column - 2), 5), "dd-mmm")
Next c
End Sub

 

[pierrejean]

Re : recopie de date

Re

cette fois a partir du fichier de 10h01

edit bravo wilfried (tres simple)
moi je suis allé bien plus loin puisque j'ai testé l'existence du debut de la date