About Us

PST

how to

thank you

Bonjour
Je voudrais faire des champs réduits avec les chiffres ayant les mêmes bases

ci dessous macro incomplete

merci

ma macro incomplete
1 er 2 ème 3 ème 4 ème Le résultat voulu
1 2 3 4 1 2 3 4 1 2 3 4 7
1 2 3 7 1 2 3 7 Vide
1 2 14 18 1 2 14 18 1 2 14 18 4 10
1 2 4 10 1 4 2 10 Vide
1 3 4 13 1 3 4 13 1 3 4 13
1 5 15 16 1 5 15 16 1 5 15 16
1 4 6 9 1 4 6 9 1 4 6 9
1 2 3 11 1 11 2 3 1 2 3 11
1 3 5 11 1 3 5 11 1 3 5 11
1 2 8 12 1 2 8 12 1 2 8 12
1 8 15 16 1 8 15 16 1 8 15 16
1 2 5 7 1 2 5 7 1 2 5 7
2 3 7 15 2 3 7 15 2 3 7 15
2 4 6 10 2 4 6 10 2 4 6 10 16
2 4 6 16 2 4 6 16 Vide
2 3 5 7 2 3 5 7 etc
2 6 9 13 2 6 9 13

Sub Macro1()

Dim lig
Dim col

For col = 6 To 9
For lig = 5 To 210

If Cells(lig, col) = Cells(lig + 1, col) Then
Cells(lig, col + 6) = Cells(lig, col)

Else
For I = 1 To 1
Cells(lig, col + 10) = Cells(lig, col)
Next

End If

Next
Next

End Sub

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
combinations	Sonny	Excel Discussion (Misc queries)	11	August 26th 07 08:26 PM
Possible Combinations	Please HELP!!!	Excel Discussion (Misc queries)	1	January 6th 06 03:58 PM
getting combinations	vecky	New Users to Excel	1	January 1st 06 12:37 AM
Sum of all combinations	cursednomore	Excel Discussion (Misc queries)	3	December 15th 05 12:25 AM
Combinations	Don Lloyd	Excel Programming	4	June 28th 05 09:01 PM

Menu

About Us