Discussion :

[cafeine]

Hello,

apparemment, tu as des difficultés à recopier ce que te donne les membres ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("D1:D" & Veuillez).Formula = "= B1 & "" ""& TEXTE(K$2,""jj/mm/AA"")& "" "" & A1"

alors qu'ouskel'n'or a mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("D1").Formula = "=B1&"" ""&TEXT(K$2,""jj/mm/AA"")&"" ""& A1"

[melodyyy]

ça revient au même...j'ai #Nom? quand même...
J'ai pas de mal à recopier j'ai juste modifier l'adresse d'arriver...mais même en remettant ce qu'il a mit ça change rien

[cafeine]

Explique moi alors pourquoi Ouskel avait mis TEXT et toi TEXTE ?

ça revient au même...j'ai #Nom? quand même...
J'ai pas de mal à recopier j'ai juste modifier l'adresse d'arriver...mais même en remettant ce qu'il a mit ça change rien

[melodyyy]

j'ai vu, hier j'étais fatigué, aujourdhui ça va mieux

[megapacman]

alors deja je m'y prendrais pas comme ca

1) cola=1 colb=2 colc=3 date=date
2) parcours de ligne i de 1 a la derniere

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 
for i=1 to derniere
 
'concatenation colonne c en admettant que tout soit sur une meme ligne
cells(i,colc).value= cells(i,colb).value & date & cells(i,cola)
debug.print cells(i,colc).value
 
next i

bien ne pas oublie de declarer tes variables

[megapacman]

puis pour savoir la derniere ligne utilisée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
'je recupere le nbligne utilisé 
derniere = ActiveSheet.UsedRange.Rows.Count

[ouskel'n'or]

bien ne pas oublie de declarer tes variables

Trois petites choses : Seules les variables (La)date = Range("K2").value et i sont utiles dans ton code
Ensuite, une copie ligne par ligne a de fortes chances d'être plus gourmande en utilisation d'UC et en temps qu'une copie vers le bas qui se fait en une instruction.
Quant à date, c'est une instruction (ou une fonction selon son utilisation), donc à ne pas utiliser comme variable
Juste une petite remarque

Edit
C'est bien ce qu'il me semblait, j'ai donc vérifié. Pour connaître la dernière ligne, UsedRange.rows.count est risqué si toutes les lignes ne sont pas renseignées puisqu'il ne compte que les lignes contenant quelque chose. Une instruction est faite pour ça (fournie il y a quelques temps déjà par AlainTech - rendons à César...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    DernièreLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row

Là on est sur d'avoir toutes les lignes