Re : Fichier très long à charger
Publié par eric45 le 22/01/2018 14:43:39
Bonjour à tous
Bonjour
Je suppose que, quand tu remplis les cellules A2 à E2, les "formules" en cellule "Tx" se calculent, et ainsi de suite : A3:E3 >Ux, .....
Donc, dès que tu seras sur la cellule F2, la macro se déclanchera et remplira les cellules T2 à T13367.
Si tu modifies 1 cellule entre Ax:Ex, il te faudra sélectionner la cellule Fx correspondante.
A mettre dans un module :
A mettre dans ThisWorkbook
Bons tests
A te lire
Frédéric
Bonjour
Je suppose que, quand tu remplis les cellules A2 à E2, les "formules" en cellule "Tx" se calculent, et ainsi de suite : A3:E3 >Ux, .....
Donc, dès que tu seras sur la cellule F2, la macro se déclanchera et remplira les cellules T2 à T13367.
Si tu modifies 1 cellule entre Ax:Ex, il te faudra sélectionner la cellule Fx correspondante.
A mettre dans un module :
Option Explicit
Public sh1 As Worksheet
Public sh2 As Worksheet
Public sh3 As Worksheet
Sub tirage_001()
Dim i As Integer, j As Integer
Dim a As Long ' colonnes de T à PC
Dim b As Integer ' ligne/A-E Dim valeur As Integer
Set sh1 = Worksheets("Feuil1")
Set sh2 = Worksheets("Feuil2") 'a = 20 a = 18 + ActiveCell.Row
b = ActiveCell.Row
For j = 2 To 15 ' 13367 à saisir a la place de 15
For i = 1 To 5
If IsNumeric(Application.HLookup(sh2.Cells(b, i), sh1.Range("C" & j & ":V" & j), 1, False)) Then valeur = valeur + 1
Next i
sh2.Cells(j, a) = valeur
valeur = 0
Next j
End Sub
A mettre dans ThisWorkbook
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.Column = 6 And Application.WorksheetFunction.CountA(Range("A" & ActiveCell.Row & ":E" & ActiveCell.Row)) = 5 Then
tirage_001
End If
End Sub
Bons tests
A te lire
Frédéric
Ce message est de : http://excel.veriti.net/modules/newbb/viewtopic.php?post_id=596