Titre du sujet : Re: Analyse combinatoire
par JCGL le 03/06/2008 08:55:47
Bonjour à tous,
En partant de ce principe :
[hr]
[hr]
Tu pourrais remplacer :
120 Range("H8").Select
121 ActiveCell.FormulaR1C1 = "=VLOOKUP(Lettre_6,Position_6,2,0)"
par
120 Range("H8").Formula = "=VLOOKUP(Lettre_6,Position_6,2,0)"
et aussi
Range("I8,J8").Select
Selection.ClearContents
par
Range("I8,J8").ClearContents
Ce qui pourrait donner pour le code Epuration :
Option Explicit
Dim vRetour As String
Dim vCellule As Object
Sub Epuration()
'*****FeuilleTable
1 Worksheets("Table").Activate
'Alphabets et Valeurs
2 Range("A3:L28").ClearContents
3 Range("A3").Select
'*****FeuilleCodes
4 Worksheets("Codes").Activate
'Lettres
5 Range("A3:F3").ClearContents
'Alpha_&_Num
6 Range("G3:H8").ClearContents
'Alpha_concaténées_&_Num_cumulées
7 Range("I8,J8").ClearContents
8 Range("A3").Select
End Sub
à la place de :
Option Explicit
Dim vRetour As String
Dim vCellule As Object
Sub Epuration()
'*****FeuilleTable
1 Worksheets("Table").Activate
'Alphabets
2 Range("A3:A28,C3:C28,E3:E28,G3:G28,I3:I28,K3:K28").Select
3 Selection.ClearContents
'Valeurs
4 Range("B3:B28,D3:D27,F3:F26,H3:H25,J3:J24,L3:L23").Select
5 Selection.ClearContents
6 Range("A3").Select
'*****FeuilleCodes
7 Worksheets("Codes").Activate
'Lettres
8 Range("A3:F3").Select
9 Selection.ClearContents
'Alpha_&_Num
10 Range("G3:G8,H3:H8").Select
11 Selection.ClearContents
'Alpha_concaténées_&_Num_cumulées
12 Range("I8,J8").Select
13 Selection.ClearContents
14 Range("A3").Select
End Sub
[hr]
[hr]
Mais je ne suis pas expert, c'est ce qui m'a sauté aux yeux
A+
|
Didier FOURGEOT