Discussion :

[Banel]

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

[JackOuYA]

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

Code :

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

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

[Banel]

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

[JackOuYA]

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

[Banel]

Re,

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

Insertion de doublons avec une macro
[

Code :

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

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!

[JackOuYA]

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 :

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

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

[Banel]

Trés grand merci JacqueS!

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

à tantôt!

Banel