rajouter des doublons avec une macro dans une colonne

Bonjour tous,

je travaille sur un fichier qui n'a pas de doublons et je voudrais les RAJOUTER!!
Voir fichier joint
Je remercie ceux qui voudront bien apporter une solution à une débutante en VBA.

Merci par avance pour votre soutien.
urgent :?
Banel

bonsoir ..


rajouter des doublons où comment ..?

tiens un bête code qui copie 10 fois la ligne 2, et ainsi tu as une 10aine de doublons :mouarf:

Code:

---

1 2 3 4 5 6 7 8

Sub CopieLigne2() For i = 1 To 10 Rows(2).Copy Rows(2).Insert shift:=xlDown Next   End Sub

---

Bonsoir,
j'ai essayé d'appliquer la solution et elle rajoute donc des lignes effectivement...

Dans le mail précédent, il ya le fichier en pièce jointe afin de voir concretement l'exemple



merci encore

Banel

Re,

Banel , il ne s'agit pas d'un mail mais d'un message, même si ce forum donne la possibilité de mettre des pièces jointes il est plus agréable de voir directement la solution de ton probléme sans avoir besoin de téléchargé un quelconque fichier, avec tous les risques que cela comporte (virus...)

essai donc de nous décrire mieux ton souhait

Re,

voici l'exemple décrit dans le fichier joint:

Insertion de doublons avec une macro
[

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

QUOTE] A 1% A1 1% A2 1% A3 1% A31 1% A32 1% A33 1% A34 1% A35 1% A36 1% B 1,5% B1 1,5% B11 1,5% B22 1,5%   A1,A2,A3 appartienent à A A31,...,A36 appartienent à A3   comment obtenir ce résultat avec une macro?   A 1% A A1 1% A A2 1% A A3 1% A A3 A31 1% A A3 A32 1% A A3 A33 1% A A3 A34 1% A A3 A35 1% A A3 A36 1% B 1,5% B B1 1,5% B B1 B11 1,5% B B1 B12 1,5%[/QUOTE]

---

...j'espère être que l'exemple est plus clair...;)

merci!

Et tu ne peu pas nous en dire plus sur ce que tu ve faire ...?

remplir toutes les cellules vides ? avec valeur du dessus ?

Il y as aussi un titre dans ta feuille à traiter?

[Edit]

Tiens en supposant que tes données sont dans la feuille feuil1 de ton classeur et commence en A1 sans titre ni fourniture en dessous ou en dessous de tes données , met ce code dans un module et exécute le :

Code:

---

1 2 3 4 5 6 7

Sub RempliZone() Dim c As Range For Each c In Sheets("feuil1").Range("A1").CurrentRegion If c.Row > 1 And c = "" Then c = c.Offset(-1) Next End Sub

---

Trés grand merci JacqueS!

le problème est désormais résolu!! :yaisse2:

à tantôt!

Banel