Discussion :

[magou-08]

Bonjour à tous,

Je suis débutante en VBA et j'ai un devoir à faire pour les cours sur ce sujet. Je voulais savoir si quelqu'un pouvait m'aider pour cela.

Le but est d'imaginer un algorithme simple et rapide permettant de minimiser efficacement la durée totale de réalisation de toutes les tâches.

Plus précisément, il faut trier les tâches à partir de leur durée de la plus grande à la plus petite. Ensuite, il faut choisir la première tâche (donc celle qui a la durée la plus longue) et lui attribuer une fonction qui choisira la machine la moins chargée. Enfin, il faut faire cela pour les 26 tâches.

Je pensais faire un tri décroissant et ensuite imaginer une boucle qui choisi la première cellule vide de la colonne "Machine" et qui lui attribue la fonction "Machine la moins chargée" et faire cela 26 fois.

Donc j'ai déjà réussi à faire la plus grande partie du code. J'ai effectué le tri décroissant et écris la fonction, mais il me manque plus que le code pour choisir la première cellule vide de la colonne "Machine".

J'ai posté le fichier pour que ça soit plus clair.

Si quelqu'un pouvait m'aider, ça serait super )

Je vous remercie déjà d'avance,

[QuestVba]

Bonjour
essaie ceci. J'ai mis la colonne A car je n'ai pas ouvert ta PJ.

Code :

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

Range("A1").End(xlDown).Offset(1,0).Select

[magou-08]

Bonjour,

Tout d'abord, je tiens à vous remercier pour votre réponse.

J'ai essayé de mettre le code donné dans ma macro, cela marche que pour la première cellule... Parce que le but est que, étant donné que j'ai mis une boucle, la macro affecte une machine à toute les tâches. Et que à chaque fois elle recherche la première cellule vide pour y mettre la machine.

Dans le code que tu m'as donné, il me semble qu'à chaque fois c'est la même cellule qui est choisie...

[QuestVba]

J'ai pas regardé donc ... Effectivement, si ta cellule n'est pas remplie après avoir été sélectionnée, c'est toujours la même.

Tu peux voir ceci; une boucle sur les 100 lignes

Code :

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

1
2
3
For i = 1 To 100 
     If Cells(i, 1).Value = "" Then Cells(i, 1).Value = "Coucou"
Next i

[magou-08]

Bonjour,

Votre formule fonctionne parfaitement, merci beaucoup. J'ai juste un dernier petit soucis, c'est que je n'arrive pas à la faire commencé en D3... Enfin, j'arrive à la faire commencé en colonne D, mais pas en ligne 3...

Merci beaucoup d'avance,

[casefayere]

Bonjour,

Comme QuestVba te l'a suggéré, tu adaptes

Code :

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

1
2
3
...
For i = 3 To Range("A" & Rows.Count).End(xlUp).Row
...

ou, suivant les besoins

Code :

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

1
2
...
for i = 3 To Range("A3").End(xlDown)Row

[magou-08]

C'est super, ça marche parfaitement bien

Merci beaucoup à vous deux pour le temps accordé à mon petit problème ^^

Très bonne journée à vous,