annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

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

Voir la suite

Membre

+ Enregistrement
Message du rapport :*
Code de Confirmation*
0 + 5 = ?  
Entrez le résultat de l'expression
Maximum de tentatives que vous pouvez essayer : 10
 

Re : Fichier très long à charger

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 IntegerAs 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 1 To 5 
If IsNumeric(Application.HLookup(sh2.Cells(bi), sh1.Range("C" ":V" j), 1False)) Then valeur valeur 
Next i 
sh2
.Cells(ja) = valeur 
valeur 

Next j 
End Sub


A mettre dans ThisWorkbook
Private Sub Workbook_SheetSelectionChange(ByVal Sh As ObjectByVal Target As Range
If 
ActiveCell.Column 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
Copyright 2013 Powered by XOOPS © 2001-2013