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

Index du forum


Accueil » Tous les messages


(1) 2 3 4 ... 38 »


Re : Bienvenue
#1
Aspirant


eh bien , bienvenue, je ne passe plus très souvent non plus, mais il reste la nostalgie de ce que fut le site, et puis la disparition de Ti, le massacre de la base de données par de sinistres cons. Il y a toute une mine d'information et de perles qui ont été perdues

Date de publication : 26/04 21:06
____________________
le respect n'est pas un dû mais un mérite
Dénoncer


Re : Bienvenue
#2
Invité


Bonjour à tous,

Je suis tout nouveau inscrit, j'ai réussi à m'incrire. j'ai eu un mal fou car je ne recevait aucun lien de confirmation. j'ai attendu plusieurs jours et toujours pareil. Et puis je viens de regarder dans mes spams. et voila je viens de comprendre...

Le deuxième point. Je ne suis pas vraiment nouveau. Il y a maintenant 10 ans j'étais trés souvent parmis vous pour la passion d'Excel 2003 et toute l'équipe dont je retrouve et me rappele certain nom m'ont beaucoup aider. Mon pseudo à l'époque était Virginie, (bien sur il y avait a l'époque et toujours présente. la Virginie Pro D'excel). Moi j'utilisais le PC de ma soeur et bien sur son pseudo de l'époque. Je garde de se site des tres bon souvenir, de trés grande compétence et de la gentillesses, je tenais à y revenir.
Le temps a fait que le changement de travail, je n'utilisais plus excel comme à mes débuts. voila donc l'explication de ce long silence radio. Et puis maintenant même les Excel ont changé de version...

Sur cela BONJOUR à tous.


Date de publication : 17/02 18:59
Dénoncer


Re : Fichier très long à charger
#3
Invité


Bonsoir à toutes et tous

Il y a deux petites choses :

Tout d'abord, dans la ligne :
Set sh2 Worksheets("Feuil2"'a = 20 a = 18 + ActiveCell.Row

il faut supprimer :
18 ActiveCell.Row

et copier cette ligne dessous, comme ceci :
Set sh2 Worksheets("Feuil2")  
18 ActiveCell.Row


Puis, inutile de créer un bouton avec un code, il suffit de cliquer sur la cellule (exemple) F2 et la colonne "T2 à Tx" se remplira, et ainsi de suite : "F3" pour "U2 à Ux"...... Cela est pour les lignes "Ax à Ex" futures.
Si, tu as déjà saisis des nombres dans les lignes 1, 2, 3, ...,
soit c'est peu de lignes et tu parcours une par une les celulles en colonnes "F"
sinon créer une macro qui le fera à ta place jusqu'à la dernière ligne "Ax à Fx" occupée.

J'espère avoir été plus clair, dis-nous

Eric

Date de publication : 27/01 18:54
Dénoncer


Re : Fichier très long à charger
#4
Invité


Bonjour eric45
Je ne suis pas sur de tout comprendre.
J'ai erreur 1004
je joints le fichier pour que tu puisse voir si sait cela qu'il fallait faire
merci
a+

Joindre un fichier:


Lien visibles uniquement pour les utilisateurs enregistrés

Date de publication : 26/01 22:10
Dénoncer


Re : ACYD pour Excel 2003
#5
Invité


Bonjour,

Pour installer la macro complémentaire Acyd.xla :
Options Excel / Compléments / Atteindre / Parcourir / sélectionner le fichier Acyd.xla / Ok

Les commandes Acyd sont disponibles dans l'onglet Complément (il est parfois nécessaire de fermer / ré-ouvrir Excel pour voir l'onglet complément)

Date de publication : 22/01 15:26
____________________
Cordialement
Patrice
Dénoncer


Re : Fichier très long à charger
#6
Invité


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

Date de publication : 22/01 14:43
Dénoncer


Re : Fichier très long à charger
#7
Invité


Bonjour

Juste pour que tu puisses continuer aujourd'hui, "valeur" non définie => ajouter en tête de la sub "Dim valeur As Integer" :
Sub test_ligne_01() 
Dim i As Integer 
Dim valeur 
as Integer
For 1 To 5  
 
If IsNumeric(Application.HLookup(Cells(2i), Feuil1.Range("C2:V2"), 1False)) Then valeur valeur 1  
Next i  
MsgBox valeur 
End Sub

Bonne journée
Eric

Date de publication : 18/01 08:30
Dénoncer


Re : Fichier très long à charger
#8
Invité


re
excuse j'ai mal précisé
J'ai tout mis ton code dans la macro,
la ligne que j'ai mis dans le poste c'est là ou j'ai le message d'erreur. valeur est en bleu
a+

Date de publication : 17/01 22:59
Dénoncer


ACYD pour Excel 2003
#9
Invité


Bonjour,
J'ai oublié le mot de passe pour désactiver la protection d'un fichier Excel 2010.
J'ai téléchargé l'application ACYD pour Excel 2003 mais, après décompression je n'ai trouvé que les fichiers suivants:
Acyd.xla
Alire.txt
Barre_VeriTi.htm
FAQ.txt
Que faire pour pouvoir désactiver la protection du fichier.
Merci pour votre réponse.
langa 68

Date de publication : 17/01 21:24
Dénoncer


Re : Fichier très long à charger
#10
Invité


Bonsoir

Pas trop le temps ce soir, mais je regarderai ton post plus en détail demain (?)
Pour la ligne de code, il faut tout mettre, pas seulement ce que tu as recopié, je t'expliquerai la prochaine fois.
Dsl, je pars

Bonne soirée
A te lire
Eric

Date de publication : 17/01 19:21
Dénoncer


Re : Fichier très long à charger
#11
Invité


Bonjour eric
Les formules sont en colonnes de T à PC et en ligne 2 à ligne 13367(Nbre de tirages feuil1).
La colonne T pour la combinaison A2:E2
la colonne U pour la combinaison A3:E3
et ainsi de suite.
En colonne M-R il n'y a rien
en colonne L2:L401 il y a la formule qui totalise le nombre de 5 et + qu'il y a dans chaque colonne(T-U-V..)
Donc A2:E401 les combinaisons a analyser
En T2:PC13367 les formules.
Pour le code que tu as mis il est a mettre dans une macro je pense
If IsNumeric(Application.HLookup(Cells(2i), Feuil1.Range("C2:V2"), 1False)) Then valeur valeur 1

j'ai le message "erreur de compilation. valeur non définie"
merci
a+

Date de publication : 17/01 18:46
Dénoncer


Re : Fichier très long à charger
#12
Invité


Bonsoir

Tu me parles de 5360000 cellules avec formules sur la feuille 2, se sont lesquelles ?
Colonnes L à R ? : jusqu'à quelle ligne ?
Colonnes T à AB ? : jusqu'à quelle ligne ?
Y en a t il dans d'autres colonnes ?

Pour les autres feuilles, on verra plus tard.

Avec le code que je t'ai mis, essaie de continuer pour les colonnes U à AB.

Perso, je continue, mais donne moi un peu plus de billes pour que je puisse t'aider.

A te lire
Eric

Date de publication : 17/01 17:51
Dénoncer


Re : Fichier très long à charger
#13
Invité


Bonsoir

Pour commencer, un peu d'aide.
Pour la cellule "T2" :
Sub test_ligne_01() Dim i As Integer 
For 1 To 5 
If IsNumeric(Application.HLookup(Cells(2i), Feuil1.Range("C2:V2"), 1False)) Then valeur valeur 
Next i 
MsgBox valeur
End Sub

si j'ai bien compris

A toi de jouer.
Dis nous
Eric

Date de publication : 16/01 18:31
Dénoncer


Re : Fichier très long à charger
#14
Invité


Bonjour eric, le forum
Merci pour ta réponse.
Je suis sous excel2010
Mon fichier fait 108Mo
ma feuil1 a 13400 tirages
Feuil2 a 5360000 cellules avec les formules
Feuil3 a 100 000 combinaisons que j'envoie par paquet de 400 avec une macro en feuil2.
Quand au vba je ne suis pas doué pour ça.
Je lis des cours sur internet mais trés compliqué pour moi, je suis plutot un manuel.
Merci pour ton aide.
a+

Date de publication : 16/01 16:55
Dénoncer


Re : Fichier très long à charger
#15
Invité


Bonjour à tous
Bonjour jad73

Tout d'abord, es-tu sur excel 2003 ?

J'ai testé pour 430000 cellules avec des formules, j'arrive à un fichier de plus de 72Mo. Le tien fait combien avec les 4000000 annoncées ?

J'ai testé avec juste des nombres sur plus de 5000000 cellules, le fichier fait 41Mo (quand même) mais s'ouvre pratiquement immédiatement.

Je te propose la solution suivnate : tu supprimes toutes les formules et tu remplaces par du VBA.

A te lire
Eric

Date de publication : 16/01 13:31
Dénoncer



(1) 2 3 4 ... 38 »



Copyright 2013 Powered by XOOPS © 2001-2013