Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ds xls sélectionner les cellules uniques à re-calculer

ds xls sélectionner les cellules uniques à re-calculer

16 réponses
Avatar
j&s
comment générer un nombre aléa variable à chaque ouverture du fichier xls
puis permettre de modifier d'autres cellules sans que la touch"enter" qui
recalcule le reste de la feuille ne modifie ce nombre aléa de départ.
ou
comment bloquer des cellules pourles rendre non re-calculables à chaque
enter mais recalculées lors de l'ouverture du fichier ?
exemple : ouverture fichier, aléa définis différents nbre dont on demande
la somme, enter vérifie l'exactitude de la somme SANS MODIFIER les nbres
aléa, fermeture du fichier et à la réouverture de nouveaux aléa sont proposés
???
merci ( excel 2003 )
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
FxM
Bonsoir Lsteph,

Rien de confidentiel là-dedans. Une fois que l'on sait que Thunderbird
stocke ses messages news dans un fichier texte qu'il est assez simple de
charger par Excel, c'est presque un jeu d'enfant (quand JPS ne cite pas
des messages avec leur 'Date: ' !)

Le fichier de news se trouve _par défaut_ dans :
c:
documents and settings
[user]
application data
thunderbird
profiles
[nom du profil]
news
serveur
groupe (ex: microsoft.public.fr.excel)

Je copie ce fichier en local sous le nom de temp.txt pour qu'il n'évolue
pas durant la lecture (filecopy source, destination).

La partie 'Lecture' du fichier texte (épuré) :
'fichier de données temporaires
fil = ThisWorkbook.Path & "temp.txt"

'lire le fichier temporaire de données
'du début à la fin ou nombre limite de lignes
'placer chaque ligne dans le tableau tablo()
deb = Now(): ReDim tablo(0)
Open fil For Input As #1
nb = 0
Do While Not EOF(1) And nb < limite
nb = nb + 1

'sur une seule ligne
If nb Mod 1000 = 0 Then Application.StatusBar = "Lecture du
fichier : " & nb & " lignes lues. [Temps écoulé = " & Format(Now() -
deb, " hh:mm:ss") & "]": DoEvents

ReDim Preserve tablo(UBound(tablo) + 1)
Line Input #1, ligne
tablo(UBound(tablo)) = ligne
Loop
Close #1

Bref, rien d'extraordinaire :o)
La détection des bonjour et merci est une autre forme de torture, elle !

@+
FxM


Bonjour Fx,

Chapeau! Remerciements.
Si tu as un moment, ou en bal perso si c'est trop HS
Comment procèdes-tu pour aller querrir le source des messages(sans doute
pas à la mimine)?
Le code utilisé m'intérresserait.

Amicordialement.

lSteph
(ainsi aurait pu l'exprimer el scudator jefe : ça c'est de la
stat!!"M__dum..";-))

"FxM" a écrit dans le message de news:

Bonsoir,

FxM s'étant attelé à la tâche de la récup des messages afin d'en faire
des stats, nous aurons d'ici quelques temps une idée assez précise du
nombre de malpolitus passant par cette interface de m*** ;-)
Voici les premières impressions à peaufiner sur une version automatisée

... manuellement :o)

@+
FxM


Groupe : m.p.f.excel
Selon le petit fichier de mon thunderbird (32 Mo, soit 928393 lignes).


Au global sur la période du 21 mai au 29 août :
1a) Messages disponibles : 15137 messages
1b) Messages via CDO : 3453 messages (22,8%)

2a) Nb total de questions : 3450 questions
2b) Questions via CDO : 1438 questions (41,7%)

3a) Nb total de questions malpolitus : 321
3b) Questrion malpolitus via CDO : 215 (67,0%)


Si l'on détaille par mois :
* mois de mai (partiel)
1a) Messages disponibles : 1622 messages
1b) Messages via CDO : 402 messages (24,8%)

2a) Nb total de questions : 385 questions
2b) Questions via CDO : 174 questions (45,2%)

3a) Nb total de questions malpolitus : 36
3b) Questions malpolitus via CDO : 27 (75,0%)


* mois de juin
1a) Messages disponibles : 4585 messages
1b) Messages via CDO : 949 messages (20,7%)

2a) Nb total de questions : 1097 questions
2b) Questions via CDO : 423 questions (38,6%)

3a) Nb total de questions malpolitus : 89
3b) Questions malpolitus via CDO : 58 (65,2%)


* mois de juillet
1a) Messages disponibles : 3850 messages
1b) Messages via CDO : 961 messages (24,9%)

2a) Nb total de questions : 917 questions
2b) Questions via CDO : 378 questions (41,2%)

3a) Nb total de questions malpolitus : 80
3b) Questions malpolitus via CDO : 54 (67,5%)


* mois d'août (non terminé)
1a) Messages disponibles : 5080 messages
1b) Messages via CDO : 1141 messages (22,4%)

2a) Nb total de questions : 1051 questions
2b) Questions via CDO : 463 questions (44,1%)

3a) Nb total de questions malpolitus : 116
3b) Questions malpolitus via CDO : 76 (65,5%)


Le passage via l'interface Web est tamponnée par la présence de l'entête
suivante : X-Newsreader: Microsoft CDO for Windows 2000

Un malpolitus est (pour l'instant) défini comme un message qui ne comporte
aucun des mots suivants :
Amicalement
amicalemnt
Amicales
Amicalmement
Amicodrialement
Amicordialement
Amicordialment
Amitiés
Au Revoir
AuRevoir
bienvenu
Bijour
bise
Bises
bisou
bisous
Bjr
Bnjour
Bnsoir
bonjjour
Bonjoir(c)
Bonjoour
Bonjou
Bonjouor
Bonjour
bonsoir
Bonsour
Boonsoir
Bopnjour
Bosoir
Bsoir
Bye
Cdlt
Cdordialement
Cdt
Chouette
ciao

Cordiaement
Cordialemement
Cordialemenr
Cordialement
Cordialemetn
Cordialemnt
Cordialerment
Cordiales
Cordially
Cordialy
Cordiament
Cordiamicalement
Cordilament
Corialement
Courtoisement
Désolé
Excellement
Félicitations
Hello
Merci
M-E-R-C-I
merçi
Nickel
Nikel
Regards
remercie
Remerciement
remercier
remercions
Sajut
Salu
Salut
Salutatiions
Salutation
salutations
Salutatousse
Sincèrement
Sincères
slt
Slts
soir
Soir'








Avatar
jps
keske g fé encor?
jps

"FxM" a écrit dans le message de news:

Bonsoir Lsteph,

Rien de confidentiel là-dedans. Une fois que l'on sait que Thunderbird
stocke ses messages news dans un fichier texte qu'il est assez simple de
charger par Excel, c'est presque un jeu d'enfant (quand JPS ne cite pas
des messages avec leur 'Date: ' !)

Le fichier de news se trouve _par défaut_ dans :
c:
documents and settings
[user]
application data
thunderbird
profiles
[nom du profil]
news
serveur
groupe (ex: microsoft.public.fr.excel)

Je copie ce fichier en local sous le nom de temp.txt pour qu'il n'évolue
pas durant la lecture (filecopy source, destination).

La partie 'Lecture' du fichier texte (épuré) :
'fichier de données temporaires
fil = ThisWorkbook.Path & "temp.txt"

'lire le fichier temporaire de données
'du début à la fin ou nombre limite de lignes
'placer chaque ligne dans le tableau tablo()
deb = Now(): ReDim tablo(0)
Open fil For Input As #1
nb = 0
Do While Not EOF(1) And nb < limite
nb = nb + 1

'sur une seule ligne
If nb Mod 1000 = 0 Then Application.StatusBar = "Lecture du fichier :
" & nb & " lignes lues. [Temps écoulé = " & Format(Now() - deb, "
hh:mm:ss") & "]": DoEvents

ReDim Preserve tablo(UBound(tablo) + 1)
Line Input #1, ligne
tablo(UBound(tablo)) = ligne
Loop
Close #1

Bref, rien d'extraordinaire :o)
La détection des bonjour et merci est une autre forme de torture, elle !

@+
FxM


Bonjour Fx,

Chapeau! Remerciements.
Si tu as un moment, ou en bal perso si c'est trop HS
Comment procèdes-tu pour aller querrir le source des messages(sans doute
pas à la mimine)?
Le code utilisé m'intérresserait.

Amicordialement.

lSteph
(ainsi aurait pu l'exprimer el scudator jefe : ça c'est de la
stat!!"M__dum..";-))

"FxM" a écrit dans le message de news:

Bonsoir,

FxM s'étant attelé à la tâche de la récup des messages afin d'en faire
des stats, nous aurons d'ici quelques temps une idée assez précise du
nombre de malpolitus passant par cette interface de m*** ;-)
Voici les premières impressions à peaufiner sur une version automatisée

... manuellement :o)

@+
FxM


Groupe : m.p.f.excel
Selon le petit fichier de mon thunderbird (32 Mo, soit 928393 lignes).


Au global sur la période du 21 mai au 29 août :
1a) Messages disponibles : 15137 messages
1b) Messages via CDO : 3453 messages (22,8%)

2a) Nb total de questions : 3450 questions
2b) Questions via CDO : 1438 questions (41,7%)

3a) Nb total de questions malpolitus : 321
3b) Questrion malpolitus via CDO : 215 (67,0%)


Si l'on détaille par mois :
* mois de mai (partiel)
1a) Messages disponibles : 1622 messages
1b) Messages via CDO : 402 messages (24,8%)

2a) Nb total de questions : 385 questions
2b) Questions via CDO : 174 questions (45,2%)

3a) Nb total de questions malpolitus : 36
3b) Questions malpolitus via CDO : 27 (75,0%)


* mois de juin
1a) Messages disponibles : 4585 messages
1b) Messages via CDO : 949 messages (20,7%)

2a) Nb total de questions : 1097 questions
2b) Questions via CDO : 423 questions (38,6%)

3a) Nb total de questions malpolitus : 89
3b) Questions malpolitus via CDO : 58 (65,2%)


* mois de juillet
1a) Messages disponibles : 3850 messages
1b) Messages via CDO : 961 messages (24,9%)

2a) Nb total de questions : 917 questions
2b) Questions via CDO : 378 questions (41,2%)

3a) Nb total de questions malpolitus : 80
3b) Questions malpolitus via CDO : 54 (67,5%)


* mois d'août (non terminé)
1a) Messages disponibles : 5080 messages
1b) Messages via CDO : 1141 messages (22,4%)

2a) Nb total de questions : 1051 questions
2b) Questions via CDO : 463 questions (44,1%)

3a) Nb total de questions malpolitus : 116
3b) Questions malpolitus via CDO : 76 (65,5%)


Le passage via l'interface Web est tamponnée par la présence de l'entête
suivante : X-Newsreader: Microsoft CDO for Windows 2000

Un malpolitus est (pour l'instant) défini comme un message qui ne
comporte aucun des mots suivants :
Amicalement
amicalemnt
Amicales
Amicalmement
Amicodrialement
Amicordialement
Amicordialment
Amitiés
Au Revoir
AuRevoir
bienvenu
Bijour
bise
Bises
bisou
bisous
Bjr
Bnjour
Bnsoir
bonjjour
Bonjoir(c)
Bonjoour
Bonjou
Bonjouor
Bonjour
bonsoir
Bonsour
Boonsoir
Bopnjour
Bosoir
Bsoir
Bye
Cdlt
Cdordialement
Cdt
Chouette
ciao

Cordiaement
Cordialemement
Cordialemenr
Cordialement
Cordialemetn
Cordialemnt
Cordialerment
Cordiales
Cordially
Cordialy
Cordiament
Cordiamicalement
Cordilament
Corialement
Courtoisement
Désolé
Excellement
Félicitations
Hello
Merci
M-E-R-C-I
merçi
Nickel
Nikel
Regards
remercie
Remerciement
remercier
remercions
Sajut
Salu
Salut
Salutatiions
Salutation
salutations
Salutatousse
Sincèrement
Sincères
slt
Slts
soir
Soir'









Avatar
JièL
Bonjoir(c) FxM

Groupe : m.p.f.excel


Enfin on a des chiffres et pas seulement une vague impression !!!
Merci Bôcoup

Selon le petit fichier de mon thunderbird (32 Mo, soit 928393 lignes).


Super travail FxM ; on peut avoir la même chose pour les autres NG
bureautiques ? Word, PPT, Outlook, Office... etc

Pour info : c'est en passant par l'aide en ligne des produits
bureautiques d'Office (et uniquement ceux ci) que certains
malpolitus/maladroitus se retrouvent propulsés dans un NG sans savoir ce
que c'est ni que ce sont des humains bénévoles qui répondent.

--
JièL / Jean-Louis GOUBERT
Là bas mieux qu'en face ;-) http://forums.offices.free.fr/
La FAQ Outlook est là : http://faq.outlook.free.fr/

Avatar
lSteph
Bonsoir Fx,

Finalement tes indications m'inciteraient à revenir vers TB , (je regarde
tout cela dès que...)

Merci .

@+

lSteph

"FxM" a écrit dans le message de news:

Bonsoir Lsteph,

Rien de confidentiel là-dedans. Une fois que l'on sait que Thunderbird
stocke ses messages news dans un fichier texte qu'il est assez simple de
charger par Excel, c'est presque un jeu d'enfant (quand JPS ne cite pas
des messages avec leur 'Date: ' !)

Le fichier de news se trouve _par défaut_ dans :
c:
documents and settings
[user]
application data
thunderbird
profiles
[nom du profil]
news
serveur
groupe (ex: microsoft.public.fr.excel)

Je copie ce fichier en local sous le nom de temp.txt pour qu'il n'évolue
pas durant la lecture (filecopy source, destination).

La partie 'Lecture' du fichier texte (épuré) :
'fichier de données temporaires
fil = ThisWorkbook.Path & "temp.txt"

'lire le fichier temporaire de données
'du début à la fin ou nombre limite de lignes
'placer chaque ligne dans le tableau tablo()
deb = Now(): ReDim tablo(0)
Open fil For Input As #1
nb = 0
Do While Not EOF(1) And nb < limite
nb = nb + 1

'sur une seule ligne
If nb Mod 1000 = 0 Then Application.StatusBar = "Lecture du fichier :
" & nb & " lignes lues. [Temps écoulé = " & Format(Now() - deb, "
hh:mm:ss") & "]": DoEvents

ReDim Preserve tablo(UBound(tablo) + 1)
Line Input #1, ligne
tablo(UBound(tablo)) = ligne
Loop
Close #1

Bref, rien d'extraordinaire :o)
La détection des bonjour et merci est une autre forme de torture, elle !

@+
FxM


Bonjour Fx,

Chapeau! Remerciements.
Si tu as un moment, ou en bal perso si c'est trop HS
Comment procèdes-tu pour aller querrir le source des messages(sans doute
pas à la mimine)?
Le code utilisé m'intérresserait.

Amicordialement.

lSteph
(ainsi aurait pu l'exprimer el scudator jefe : ça c'est de la
stat!!"M__dum..";-))

"FxM" a écrit dans le message de news:

Bonsoir,

FxM s'étant attelé à la tâche de la récup des messages afin d'en faire
des stats, nous aurons d'ici quelques temps une idée assez précise du
nombre de malpolitus passant par cette interface de m*** ;-)
Voici les premières impressions à peaufiner sur une version automatisée

... manuellement :o)

@+
FxM


Groupe : m.p.f.excel
Selon le petit fichier de mon thunderbird (32 Mo, soit 928393 lignes).


Au global sur la période du 21 mai au 29 août :
1a) Messages disponibles : 15137 messages
1b) Messages via CDO : 3453 messages (22,8%)

2a) Nb total de questions : 3450 questions
2b) Questions via CDO : 1438 questions (41,7%)

3a) Nb total de questions malpolitus : 321
3b) Questrion malpolitus via CDO : 215 (67,0%)


Si l'on détaille par mois :
* mois de mai (partiel)
1a) Messages disponibles : 1622 messages
1b) Messages via CDO : 402 messages (24,8%)

2a) Nb total de questions : 385 questions
2b) Questions via CDO : 174 questions (45,2%)

3a) Nb total de questions malpolitus : 36
3b) Questions malpolitus via CDO : 27 (75,0%)


* mois de juin
1a) Messages disponibles : 4585 messages
1b) Messages via CDO : 949 messages (20,7%)

2a) Nb total de questions : 1097 questions
2b) Questions via CDO : 423 questions (38,6%)

3a) Nb total de questions malpolitus : 89
3b) Questions malpolitus via CDO : 58 (65,2%)


* mois de juillet
1a) Messages disponibles : 3850 messages
1b) Messages via CDO : 961 messages (24,9%)

2a) Nb total de questions : 917 questions
2b) Questions via CDO : 378 questions (41,2%)

3a) Nb total de questions malpolitus : 80
3b) Questions malpolitus via CDO : 54 (67,5%)


* mois d'août (non terminé)
1a) Messages disponibles : 5080 messages
1b) Messages via CDO : 1141 messages (22,4%)

2a) Nb total de questions : 1051 questions
2b) Questions via CDO : 463 questions (44,1%)

3a) Nb total de questions malpolitus : 116
3b) Questions malpolitus via CDO : 76 (65,5%)


Le passage via l'interface Web est tamponnée par la présence de l'entête
suivante : X-Newsreader: Microsoft CDO for Windows 2000

Un malpolitus est (pour l'instant) défini comme un message qui ne
comporte aucun des mots suivants :
Amicalement
amicalemnt
Amicales
Amicalmement
Amicodrialement
Amicordialement
Amicordialment
Amitiés
Au Revoir
AuRevoir
bienvenu
Bijour
bise
Bises
bisou
bisous
Bjr
Bnjour
Bnsoir
bonjjour
Bonjoir(c)
Bonjoour
Bonjou
Bonjouor
Bonjour
bonsoir
Bonsour
Boonsoir
Bopnjour
Bosoir
Bsoir
Bye
Cdlt
Cdordialement
Cdt
Chouette
ciao

Cordiaement
Cordialemement
Cordialemenr
Cordialement
Cordialemetn
Cordialemnt
Cordialerment
Cordiales
Cordially
Cordialy
Cordiament
Cordiamicalement
Cordilament
Corialement
Courtoisement
Désolé
Excellement
Félicitations
Hello
Merci
M-E-R-C-I
merçi
Nickel
Nikel
Regards
remercie
Remerciement
remercier
remercions
Sajut
Salu
Salut
Salutatiions
Salutation
salutations
Salutatousse
Sincèrement
Sincères
slt
Slts
soir
Soir'









Avatar
lSteph
Re,Fx,

Je dois mal m'y prendre,
je ne trouve pas de fichier txt seulement des répertoires ...hostinfo (de
1Ko) ou
un microsoft.public.fr.excel.msf
(si je l'ouvre en tant que fichier texte c'est illisible)
mais c'est ce dernier qui seul semble contenir qqchose.

Je l'ai donc enregistré sous Mes Documentstemp.txt

Ensuite j'ai mis le code indiqué dans un classeur du m^me répertoire
cela semble accèder au fichier boucler sur les lignes les stocker dans tablo
et refermer.
J'ai fixé la limite à 1000 pour voir
Que doit-on en faire ?
Le code semble s'executer sans erreur même si rien ne se montre de plus
lisible

Merci d'avance

lSteph

extrait:
<(415Di912)(415EBa00861)(98=2)>
[300:m(^9C^415D)(^8F^415D)(^91^415E)(^92=2)(^93=2)]
<(416Bi915)(420CBa0358c)(B7=7)>
[301:m(^9C^416B)(^8F^416B)(^91^420C)(^92=7)(^93=7)]
<(4171i916)(4182Ba014c5)(AA=4)>


Sub litle()
'fichier de données temporaires
fil = ThisWorkbook.Path & "temp.txt"

'lire le fichier temporaire de données
'du début à la fin ou nombre limite de lignes
'placer chaque ligne dans le tableau tablo()
deb = Now(): ReDim tablo(0)
Open fil For Input As #1
nb = 0
Do While Not EOF(1) And nb < 1000
nb = nb + 1

'sur une seule ligne
If nb Mod 1000 = 0 Then Application.StatusBar = "Lecture du fichier :"
& nb & " lignes lues. [Temps écoulé = " & Format(Now() - deb, " hh:mm:ss") &
"]": DoEvents

ReDim Preserve tablo(UBound(tablo) + 1)
Line Input #1, ligne
tablo(UBound(tablo)) = ligne
Loop
Close #1
End Sub




"FxM" a écrit dans le message de news:

Bonsoir Lsteph,



Avatar
J
Bonjourzatous (pasvudanslaliste) et à FxM en particulier
Hola!!! et le Rot13, on ne le prend pas en compte!!!
Lassu à tous
@+
J@@ (con structif)

Un malpolitus est (pour l'instant) défini comme un message qui ne
comporte aucun des mots suivants :
Amicalement
amicalemnt
Amicales
Amicalmement
Amicodrialement
Amicordialement
Amicordialment
Amitiés
Au Revoir
AuRevoir
bienvenu
Bijour
bise
Bises
bisou
bisous
Bjr
Bnjour
Bnsoir
bonjjour
Bonjoir(c)
Bonjoour
Bonjou
Bonjouor
Bonjour
bonsoir
Bonsour
Boonsoir
Bopnjour
Bosoir
Bsoir
Bye
Cdlt
Cdordialement
Cdt
Chouette
ciao

Cordiaement
Cordialemement
Cordialemenr
Cordialement
Cordialemetn
Cordialemnt
Cordialerment
Cordiales
Cordially
Cordialy
Cordiament
Cordiamicalement
Cordilament
Corialement
Courtoisement
Désolé
Excellement
Félicitations
Hello
Merci
M-E-R-C-I
merçi
Nickel
Nikel
Regards
remercie
Remerciement
remercier
remercions
Sajut
Salu
Salut
Salutatiions
Salutation
salutations
Salutatousse
Sincèrement
Sincères
slt
Slts
soir
Soir'



1 2