recopie de date

oliv67 · 21 Octobre 2007

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 · 22 Octobre 2007

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 · 22 Octobre 2007

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 · 22 Octobre 2007

Re : recopie de date

bonjour oliv67

en l'absence de bhbh 🙂 que je salue

une proposition

wilfried_42 · 22 Octobre 2007

Re : recopie de date

Bonjour à tous

ton fichier en retour

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

oliv67 · 22 Octobre 2007

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 · 22 Octobre 2007

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 · 22 Octobre 2007

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 · 22 Octobre 2007

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 · 22 Octobre 2007

Re : recopie de date

avec le bon fichier c'est mieux

wilfried_42 · 22 Octobre 2007

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 · 22 Octobre 2007

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 · 22 Octobre 2007

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 · 22 Octobre 2007

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 · 22 Octobre 2007

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

recopie de date

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency