copie d'un nombre de caracteres

[raoult pascal]

Bonjour à tous,

je cherche une macro qui me permettrais de deplacer les valeurs de la cellule B7 dans la cellule A7 sans pour cela effacer ce qu'il y a dans la cellule A7.

j'espere avoir ete assez explicite.

Merci

Bonne journée

 

[Jeannot45]

Bonjour Pascal

Voici une petite procédure qui va te faire le travail

Sub Concatener()
Range("A7").Select
Do While ActiveCell <> ""
ActiveCell = ActiveCell & String(5, " ") & ActiveCell.Offset(0, 1)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

a+

Jeannot

 

[Pascal76]

Bonjour

Tu regardes si cela te va

Bon courage

Pascal

 

[Pascal76]

oups excuses Jeannot pas rafraichi

Pascal

 

[Jeannot45]

Hello Pascal76

No Problem, il faut dire que parfois les réponses arriveraient avant les questions tellement ce forum est efficace

A+

Jeannot

 

[raoult pascal]

merci beaucoup à tous les deux,

bonne journee