ptobleme d'optimisation

[tilsith]

apres le suggestion de celeda, mon but est d optimiser mon probleme, voici mon programme:
Option Explicit

Sub RecupVolumeMatch()
'
' RecupVolumeMatch Macro
' Macro enregistrée le 23/07/2004 par c2m
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
Dim ilignC1, ilignC10 As Integer
Dim C1, C10 As Integer
Dim tabl(10000) As String


C1 = 2
C10 = 10

Application.ScreenUpdating = False

ilignC10 = 1
Do While ActiveSheet.Cells(ilignC10, C10) <> ""
tabl(ilignC10) = ActiveSheet.Cells(ilignC10, C10)
ilignC10 = ilignC10 + 1

Loop


ilignC1 = 1
Do While ActiveSheet.Cells(ilignC1, C1) <> ""
ilignC10 = 1
Do While ActiveSheet.Cells(ilignC10, C10) <> ""


If ActiveSheet.Cells(ilignC1, C1) = tabl(ilignC10) Then

ActiveSheet.Cells(ilignC1, C1 + 3) = ActiveSheet.Cells(ilignC10, C10 + 1)
ActiveSheet.Cells(ilignC1, C1 + 4) = ActiveSheet.Cells(ilignC10, C10 + 2)
ActiveSheet.Cells(ilignC1, C1 + 5) = ActiveSheet.Cells(ilignC10, C10 + 3)
Exit Do
End If

ilignC10 = ilignC10 + 1
Loop
ilignC1 = ilignC1 + 1
Loop

Application.ScreenUpdating = True

End Sub

 

[omicron]

Bonjour Tilsith,

Voilà si j'ai bien compris ton problème une séquence de code un peu plus compacte qui devrait avoir le même résultat que ce que tu as programmé.

=====================================================
Private Sub CommandButton1_Click()
For Each CelC2 In Intersect(Range("B1").CurrentRegion, Columns("B"))
For Each CelC10 In Intersect(Range("I1").CurrentRegion, Columns("I"))
If CelC2 = CelC10 Then
CelC2.Offset(0, 3) = CelC10.Offset(0, 1)
CelC2.Offset(0, 4) = CelC10.Offset(0, 2)
CelC2.Offset(0, 5) = CelC10.Offset(0, 3)
End If
Next CelC10
Next CelC2
End Sub
=====================================================

Tu trouveras en pièce jointe, un exemple appliqué de ce code.

Si ce n'est pas ce que tu cherches, tu peux me recontacter.

Cordialement.

Omicron.

 

[omicron]

Re Bonjour Tilsith,

Remarque complémentaire :
Dans l'exemple, supprimer les commentaires "Avant" "Après" pour pouvoir accéder au tableaux ...

@ Plus

Omicron.

 

[nya edouard]

programmation linéaire avec contraintes

Bonjour mon(es) cher(s)je m'intéresse a la gestion agricole et j'ai écrit un petit modèle pour les rojections des effectifs mais il se pose le problème de contraintes que je n'arrive pas à mettre en place.
Meci de me débloquer.