LORDDD
XLDnaute Occasionnel
Bonjour à vous tous,
Voici un morceau code ci dessous, est il possible de regrouper des instructions pour faire acceler le calcul :
par exemple ces 2 lignes :
Worksheets(datejour).Select
date2 = Cells(ii + 4, 1) ---> les regrouper en une seule ecriture
Merci par avance de votre coup de pouce
Bonne journée
Voici un morceau code ci dessous, est il possible de regrouper des instructions pour faire acceler le calcul :
par exemple ces 2 lignes :
Worksheets(datejour).Select
date2 = Cells(ii + 4, 1) ---> les regrouper en une seule ecriture
Code:
'Copie des segments par regroupement du classeur Data Vers classeur Cales Hotel 1
Worksheets("HOTEL 1").Select
Range("d7:m372").ClearContents
For i = 0 To 365 'compteur du tableau de synthese ligne
Worksheets("HOTEL 1").Select
date1 = Cells(i + 7, 3)
For ii = 0 To 731 'compteur du tableau source ligne
Worksheets(datejour).Select
date2 = Cells(ii + 4, 1)
If date1 = date2 Then
For iii = o To 9 'compteur tableau de synthese colone
Som = 0
Worksheets("HOTEL 1").Select
cel1 = Cells(5, iii + 4)
For iiii = o To 26 'compteur tableau source colone
Worksheets(datejour).Select
cel2 = Cells(2, iiii + 2)
If cel2 = cel1 Then
Som = Som + Cells(ii + 4, iiii + 2)
End If
Next iiii
Worksheets("HOTEL 1").Cells(i + 7, iii + 4) = Som
Next iii
End If
Next ii
Merci par avance de votre coup de pouce
Bonne journée