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 [HS] Un petit défi pour l'apéro !

[HS] Un petit défi pour l'apéro !

20 réponses
Avatar
Tatanka
Bonjour,

Un entier positf carré est dit carré carré si la somme
de ses chiffres est également un carré. Par exemple, 529 :
1) C'est un carré car 529 = 23^2,
2) C'est un carré carré car 5 + 2 + 9 = 16 = 4^2.

Concevoir une ou des procédures permettant
de faire afficher :
1) Les 5000 premiers carrés carrés en A1:A5000,
2) La somme des chiffres de chaque nombre de
A1:A5000 en B1:B5000.

Pour le plaisir de trouver la solution la plus rapide
et la plus élégante. Si le coeur vous en dit !

A--
Serge
Signaler un problème avec ce contenu

10 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
michdenis
à la macro, tu dois ajouter une ligne de code :

With Rg1.Offset(-1)
.AutoFilter field:=1, Criteria1:úlse
.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilter
.Value = .Value
End With
Rg.Value = Rg.Value '<======= Ligne à ajouter



MichD
--------------------------------------------
"isabelle" a écrit dans le message de groupe de discussion : igpmum$vn2$

Le 2011-01-14 09:32, MichD [MVP] a écrit :

J'avais ce message à transmettre sur le fil du Mathématicien Serge
HS: Un défi pour l'apéro sur le forum news.aioe.org

Si quelqu'un veut bien lui transmettre, je ne peux pas accéder à ce
forum .... panne !

(le message ne voulait pas partir depuis des
heures voire des jours... ;-)))

Bonjour Serge,

Il y a sûrement une formule plus courte...

Si tu entres un nombre en A1, la formule suivante
te retourne "Vrai" si cela répond à tes critères :

Validation matricielle :

=(A1^(1/2)-TRONQUE(A1^(1/2))=0)+(SOMME
(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1)^(1/2)-
TRONQUE((SOMME(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)
*1)^(1/2)))=0)=2

Fichier exemple : http://cjoint.com/?0bnvJDm7IqF


Le 2011-01-13 18:16, Tatanka a écrit :
Bizarre, chez moi je reçois le message :
Erreur d'exécution '13'
Incompatibilité de type
et quand je clique sur « Débogage »
la ligne contenant :
e = e + Mid(s, k, 1)
attrape la jaunisse :-)

Serge

"h2so4" a écrit dans le message de news: wqLXo.11073$
Tatanka laid this down on his screen :
C'est bien cela, sauf que j'ai du remplacer
For k = 1 To Len(s)
par
For k = 1 To Len(CStr(s))

Ultra rapide mais encore plus en passant par un tableau :



chez moi cela fonctionne sans problème tel que je l'ai écrit.

--
h2so4
ca PAN
pique DORA
.






Avatar
LSteph
Bonjour Isabelle,

tu sais que sinon tu pouvais aussi passer par google pour poster
l'interface client news est une possibilité et nullement une contrainte.

@+

--
LSteph

"isabelle" a écrit dans le message de
news:igpmum$vn2$
Le 2011-01-14 09:32, MichD [MVP] a écrit :

J'avais ce message à transmettre sur le fil du Mathématicien Serge
HS: Un défi pour l'apéro sur le forum news.aioe.org

Si quelqu'un veut bien lui transmettre, je ne peux pas accéder à ce
forum .... panne !

(le message ne voulait pas partir depuis des
heures voire des jours... ;-)))

Bonjour Serge,

Il y a sûrement une formule plus courte...

Si tu entres un nombre en A1, la formule suivante
te retourne "Vrai" si cela répond à tes critères :

Validation matricielle :

=(A1^(1/2)-TRONQUE(A1^(1/2))=0)+(SOMME
(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1)^(1/2)-
TRONQUE((SOMME(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)
*1)^(1/2)))=0)=2

Fichier exemple : http://cjoint.com/?0bnvJDm7IqF


Le 2011-01-13 18:16, Tatanka a écrit :
Bizarre, chez moi je reçois le message :
Erreur d'exécution '13'
Incompatibilité de type
et quand je clique sur « Débogage »
la ligne contenant :
e = e + Mid(s, k, 1)
attrape la jaunisse :-)

Serge

"h2so4" a écrit dans le message de news:
wqLXo.11073$
Tatanka laid this down on his screen :
C'est bien cela, sauf que j'ai du remplacer
For k = 1 To Len(s)
par
For k = 1 To Len(CStr(s))

Ultra rapide mais encore plus en passant par un tableau :



chez moi cela fonctionne sans problème tel que je l'ai écrit.

--
h2so4
ca PAN
pique DORA
.






Avatar
michdenis
Isabelle s'est fait le messager d'un de mes messages, car depuis hier,
je ne pouvais rejoindre ce forum...

Je ne suis pas le seul qui se retrouve dans cette situation...

Je me demande ce qu'il y a de si intéressant sur ce forum qui empêche
les participants de rejoindre le forum "Answers" de Microsoft. À moins
d'aimer les canards boiteux et de se complaire dans la critique !



MichD
--------------------------------------------
"LSteph" a écrit dans le message de groupe de discussion : igqa8m$etm$

Bonjour Isabelle,

tu sais que sinon tu pouvais aussi passer par google pour poster
l'interface client news est une possibilité et nullement une contrainte.

@+

--
LSteph

"isabelle" a écrit dans le message de
news:igpmum$vn2$
Le 2011-01-14 09:32, MichD [MVP] a écrit :

J'avais ce message à transmettre sur le fil du Mathématicien Serge
HS: Un défi pour l'apéro sur le forum news.aioe.org

Si quelqu'un veut bien lui transmettre, je ne peux pas accéder à ce
forum .... panne !

(le message ne voulait pas partir depuis des
heures voire des jours... ;-)))

Bonjour Serge,

Il y a sûrement une formule plus courte...

Si tu entres un nombre en A1, la formule suivante
te retourne "Vrai" si cela répond à tes critères :

Validation matricielle :

=(A1^(1/2)-TRONQUE(A1^(1/2))=0)+(SOMME
(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1)^(1/2)-
TRONQUE((SOMME(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)
*1)^(1/2)))=0)=2

Fichier exemple : http://cjoint.com/?0bnvJDm7IqF


Le 2011-01-13 18:16, Tatanka a écrit :
Bizarre, chez moi je reçois le message :
Erreur d'exécution '13'
Incompatibilité de type
et quand je clique sur « Débogage »
la ligne contenant :
e = e + Mid(s, k, 1)
attrape la jaunisse :-)

Serge

"h2so4" a écrit dans le message de news:
wqLXo.11073$
Tatanka laid this down on his screen :
C'est bien cela, sauf que j'ai du remplacer
For k = 1 To Len(s)
par
For k = 1 To Len(CStr(s))

Ultra rapide mais encore plus en passant par un tableau :



chez moi cela fonctionne sans problème tel que je l'ai écrit.

--
h2so4
ca PAN
pique DORA
.






Avatar
isabelle
salut LSteph,

si tu lis bien, tu verras que "moi" je n'ai aucune contrainte ;-)

isabelle

Le 2011-01-14 15:04, LSteph a écrit :
Bonjour Isabelle,

tu sais que sinon tu pouvais aussi passer par google pour poster
l'interface client news est une possibilité et nullement une contrainte.

@+

--
LSteph


Le 2011-01-14 09:32, MichD [MVP] a écrit :

J'avais ce message à transmettre sur le fil du Mathématicien Serge
HS: Un défi pour l'apéro sur le forum news.aioe.org

Si quelqu'un veut bien lui transmettre, je ne peux pas accéder à ce
forum .... panne !

(le message ne voulait pas partir depuis des
heures voire des jours... ;-)))

Bonjour Serge,

Il y a sûrement une formule plus courte...

Si tu entres un nombre en A1, la formule suivante
te retourne "Vrai" si cela répond à tes critères :

Validation matricielle :

=(A1^(1/2)-TRONQUE(A1^(1/2))=0)+(SOMME
(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1)^(1/2)-
TRONQUE((SOMME(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)
*1)^(1/2)))=0)=2

Fichier exemple : http://cjoint.com/?0bnvJDm7IqF
Avatar
isabelle
tu poste toujours à partir du web ? ce n'est pas reviendu ?
isabelle

Le 2011-01-14 15:11, michdenis a écrit :
Isabelle s'est fait le messager d'un de mes messages, car depuis hier,
je ne pouvais rejoindre ce forum...

Je ne suis pas le seul qui se retrouve dans cette situation...

Je me demande ce qu'il y a de si intéressant sur ce forum qui empêche
les participants de rejoindre le forum "Answers" de Microsoft. À moins
d'aimer les canards boiteux et de se complaire dans la critique !



MichD
--------------------------------------------
Avatar
michdenis
| tu poste toujours à partir du web ? ce n'est pas reviendu ?

Non, la connexion est rétablie. Si ce n'était pas de ta gentillesse,
mes messages auraient attendu le rétablissement du lien.
Je ne crois pas avoir déjà envoyé un quelconque message à partir
du web, tous forums confondus.



MichD
--------------------------------------------
"isabelle" a écrit dans le message de groupe de discussion : igqauu$gmc$

tu poste toujours à partir du web ? ce n'est pas reviendu ?
isabelle

Le 2011-01-14 15:11, michdenis a écrit :
Isabelle s'est fait le messager d'un de mes messages, car depuis hier,
je ne pouvais rejoindre ce forum...

Je ne suis pas le seul qui se retrouve dans cette situation...

Je me demande ce qu'il y a de si intéressant sur ce forum qui empêche
les participants de rejoindre le forum "Answers" de Microsoft. À moins
d'aimer les canards boiteux et de se complaire dans la critique !



MichD
--------------------------------------------
Avatar
isabelle
ok je viens de voir "Microsoft Windows Live Mail"
isabelle

Le 2011-01-14 15:57, michdenis a écrit :
| tu poste toujours à partir du web ? ce n'est pas reviendu ?

Non, la connexion est rétablie. Si ce n'était pas de ta gentillesse,
mes messages auraient attendu le rétablissement du lien.
Je ne crois pas avoir déjà envoyé un quelconque message à partir
du web, tous forums confondus.



MichD
--------------------------------------------
Avatar
michdenis
Une correction importante au fichier publié relié au code dans le module :


http://cjoint.com/?0bpaf6dXfEw



MichD
--------------------------------------------
"Tatanka" a écrit dans le message de groupe de discussion : igo14p$abs$

Bizarre, chez moi je reçois le message :
Erreur d'exécution '13'
Incompatibilité de type
et quand je clique sur « Débogage »
la ligne contenant :
e = e + Mid(s, k, 1)
attrape la jaunisse :-)

Serge

"h2so4" a écrit dans le message de news: wqLXo.11073$
Tatanka laid this down on his screen :
C'est bien cela, sauf que j'ai du remplacer
For k = 1 To Len(s)
par
For k = 1 To Len(CStr(s))

Ultra rapide mais encore plus en passant par un tableau :



chez moi cela fonctionne sans problème tel que je l'ai écrit.

--
h2so4
ca PAN
pique DORA
.


Avatar
LSteph
Bonjour ,

oui j'ai lu vite mais peu importe, le principe de pouvoir envoyer depuis le
web reste une
possibilité lorsque'un serveur de news est en panne (on y est donc pas
contraint).

C'est cette facilité que je voulais évoquer.

Amicalement.

--
LSteph


"isabelle" a écrit dans le message de
news:igqand$fng$
salut LSteph,

si tu lis bien, tu verras que "moi" je n'ai aucune contrainte ;-)

isabelle

Le 2011-01-14 15:04, LSteph a écrit :
Bonjour Isabelle,

tu sais que sinon tu pouvais aussi passer par google pour poster
l'interface client news est une possibilité et nullement une contrainte.

@+

--
LSteph




Le 2011-01-14 09:32, MichD [MVP] a écrit :

J'avais ce message à transmettre sur le fil du Mathématicien Serge
HS: Un défi pour l'apéro sur le forum news.aioe.org

Si quelqu'un veut bien lui transmettre, je ne peux pas accéder à ce
forum .... panne !

(le message ne voulait pas partir depuis des
heures voire des jours... ;-)))

Bonjour Serge,

Il y a sûrement une formule plus courte...

Si tu entres un nombre en A1, la formule suivante
te retourne "Vrai" si cela répond à tes critères :

Validation matricielle :

=(A1^(1/2)-TRONQUE(A1^(1/2))=0)+(SOMME
(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1)^(1/2)-
TRONQUE((SOMME(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)
*1)^(1/2)))=0)=2

Fichier exemple : http://cjoint.com/?0bnvJDm7IqF
Avatar
LSteph
Bonjour MD,

On est a pas obligé de passer par un serveur de news. J'ai eu le même souci
que Serge
news.aioe.org recevait des messages mais ne permettait plus d'en envoyer
mais les mails postés depuis d'autres serveurs ou le web arrivaient bien
dedans.. Ici cela s'est rétabli mais entre temps savoir qu'on peut poster
depuis google était utile. "Utile" c'est donc ce que se voulait être ma
suggestion
Pour le reste, je n'ai rien contre la critique lorsqu'elle va dans le bon
sens.
Même si cela te semble boiteux, on est même libre de venir ici et sur
answers si cela plait.

Vive les canards.

--
LSteph


"michdenis" a écrit dans le message de
news:igqame$g4g$
Isabelle s'est fait le messager d'un de mes messages, car depuis hier,
je ne pouvais rejoindre ce forum...

Je ne suis pas le seul qui se retrouve dans cette situation...

Je me demande ce qu'il y a de si intéressant sur ce forum qui empêche
les participants de rejoindre le forum "Answers" de Microsoft. À moins
d'aimer les canards boiteux et de se complaire dans la critique !



MichD
--------------------------------------------
"LSteph" a écrit dans le message de groupe de discussion :
igqa8m$etm$

Bonjour Isabelle,

tu sais que sinon tu pouvais aussi passer par google pour poster
l'interface client news est une possibilité et nullement une contrainte.

@+

--
LSteph

"isabelle" a écrit dans le message de
news:igpmum$vn2$
Le 2011-01-14 09:32, MichD [MVP] a écrit :

J'avais ce message à transmettre sur le fil du Mathématicien Serge
HS: Un défi pour l'apéro sur le forum news.aioe.org

Si quelqu'un veut bien lui transmettre, je ne peux pas accéder à ce
forum .... panne !

(le message ne voulait pas partir depuis des
heures voire des jours... ;-)))

Bonjour Serge,

Il y a sûrement une formule plus courte...

Si tu entres un nombre en A1, la formule suivante
te retourne "Vrai" si cela répond à tes critères :

Validation matricielle :

=(A1^(1/2)-TRONQUE(A1^(1/2))=0)+(SOMME
(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1)^(1/2)-
TRONQUE((SOMME(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)
*1)^(1/2)))=0)=2

Fichier exemple : http://cjoint.com/?0bnvJDm7IqF


Le 2011-01-13 18:16, Tatanka a écrit :
Bizarre, chez moi je reçois le message :
Erreur d'exécution '13'
Incompatibilité de type
et quand je clique sur « Débogage »
la ligne contenant :
e = e + Mid(s, k, 1)
attrape la jaunisse :-)

Serge

"h2so4" a écrit dans le message de news:
wqLXo.11073$
Tatanka laid this down on his screen :
C'est bien cela, sauf que j'ai du remplacer
For k = 1 To Len(s)
par
For k = 1 To Len(CStr(s))

Ultra rapide mais encore plus en passant par un tableau :



chez moi cela fonctionne sans problème tel que je l'ai écrit.

--
h2so4
ca PAN
pique DORA
.






1 2