copier-coller un peut spécial

[crovax39]

Bonjour à tous et à toutes,

Voici mon problème; j'aimerais concevoir une macro me permettant de ;
-1) sélectionner une cellule (pas de soucis)
-2) Copier-coller cette cellule ailleurs (pas de soucis non plus)
-3) Passer à la cellule du dessous de ma première cellule (là je bloque)

Plus concrètement:
1)
A1 B1 C1
monsieur
madame
mademoiselle
monsieur

2)
A1 B1 C1
monsieur monsieur
madame
mademoiselle
monsieur

3)
A1 B1 C1
monsieur
madame (et ainci de suite jusqu'au bout de la liste)
mademoiselle
monsieur

J'ai essayer avec "For""Next":

Sub test1()
'

For i = 1 To 20
Range("A", i).Select
Selection.Copy
Range("D", 15).Select
ActiveSheet.Paste
Next i

'
End Sub


Merci de votrer aide à tous 😀

 

[Pierrot93]

Re : copier-coller un peut spécial

Bonjour,

pas tout compris, peut être tout copier d'un coup et faire un collage spécial avec "transpose"... A voir, un petit fichier avec données de départ et résultat attendu serait le bienvenu...

bon après midi
@+

 

[Gorfael]

Re : copier-coller un peut spécial

Salut crovax39, Pierro93 et le forum
Utilise les balise de code (icone # en mode avancé)

Dim i as long
For i = 1 To 20
     Range("A", i).Copy Range("D14").offset(i,0)
Next i
End Sub

Le client est roi... mais il y a plus simple

Range("A1:A20").Copy Range("D15")
End Sub

Serait plus judicieux de nous expliquer le but fianl à atteindre.
A+

 

[crovax39]

Re : copier-coller un peut spécial

C'est vrai que j'ai pas été suffisamment clair.

En faite le but de cette macro est de prendre les élément d'une colonne et de les coller dans une autre sans répéter les termes déjà coller.

monsieur
madame
monsieur
mademoiselle
mademoiselle
monsieur

donnerai dans la colonne suivante:

monsieur
madame
mademoiselle