Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel
Objet : Re : Fichier très long à charger par eric45 sur 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 :
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