decaler une cellule

Bonsoir
je voudrai creer un macro qui puisse cree une nouvelle collone et copier toute les valeurs d´une Range A vers B par exemple , et aussi de classer les valeurs par odre croissant ou b1 decroissant .

merci

Pour classer, tu as le tri. Enregistre la macro, tu auras le code, on pourra le simplifier
Pour copier une cellule sur sa voisine de droite, tu fais

Code:

---

Cells(noLigne, NoCol).offset(0,1).value = Cells(noLigne, NoCol).value

---

Pour parcourir ta plage de cellule

Code:

---

1 2 3 4 5 6 7 8

Dim Plage As Range Dim cel As Range NoCol = 1 DerniereLigne = 75 Set Plage = Range(Cells(1, NoCol), Cells(DerniereLigne, NoCol)) For Each cel In Plage cel.Offset(0, 1).Value = cel Next

---

A+

je voudrai une range voisine a la droite de ma range principal mais vide et ensuite copier le contenue de cette range dedans...
Et si on ne connaissait pas le nombre de ligne de le range
Merci

Citation:

---

Envoyé par jokenjo

je voudrai une range voisine a la droite de ma range principal mais vide et ensuite copier le contenue de cette range dedans...

---

Mon code fait ça très bien.

Citation:

---

Envoyé par jokenjo

Et si on ne connaissait pas le nombre de ligne de le range

---

Tu as forcément une dernière ligne sans quoi, "un jour" Excel ne serait pas content, après la ligne 65536...
Pour la connaître, regarde là, tu auras plus d'explications que tu n'en souhaites ;)

Vous avez raison votre code fait cela , mais je perd les valeurs de l´autre (range B) colonne qui etait deja occupe .Je voudrai juste qu´il y ai un deplacement a droite et sans perdre les données

merci

Ok. Je vais essayer de comprendre.
Tu as une colonne A. Mon code copie dans la colonne B ce qui est dans A. Ce que tu veux, c'est copier ce qui est dans A dans la première cellule vide de la même ligne. Si B est occupé, copier dans C, etc. C'est ça ?
A+

Citation:

---

Envoyé par ouskel'n'or

Ok. Je vais essayer de comprendre.
Tu as une colonne A. Mon code copie dans la colonne B ce qui est dans A. Ce que tu veux, c'est copier ce qui est dans A dans la première cellule vide de la même ligne. Si B est occupé, copier dans C, etc. C'est ça ?
A+

---

A peu pres ca:
On a des colonnes remplis de valeur , de A á H.
On veut d abord insere 2 nouvelles colonnes vide :
une entre A-B et
l´autre entre B-C.
Et apres copier les valeurs de A dans la nouvelle colonne qui est maintenant B .

Citation:

---

Envoyé par Tu

On a des colonnes remplies de valeurs , de A á H.
On veut d abord insérer 2 nouvelles colonnes vides :
une entre A-B et
l´autre entre B-C.
Et apres copier les valeurs de A dans la nouvelle colonne qui est maintenant B .

---

Avant de te donner une solution, j'ai encore besoin d'une précision :(
insérer 2 nouvelles colonnes vides
"une entre A-B" -> Donc B devient C
"l´autre entre B-C" -> Là, tu veux dire que la deuxième nouvelle colonne se trouve entre la nouvelle C et la nouvelle D ou bien que tes deux colonnes ajoutées sont l'une à côté de l'autre ?

Pour insérer une colonne en A et B, tu as plusieurs méthodes, en voici une

Code:

---

1 2 3

Columns("B:B").Insert Shift:=xlToRight 'ou Columns(2).Insert Shift:=xlToRight

---

La colonne est ajoutée à gauche de la colonne B
Si tu veux insérer 2 colonnes , tu fais lances deux fois le même code
A+