Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Insérer lettre ou chiffre

JPC33

XLDnaute Junior
Bonjour. Comment insérer autant de fois X (ou autre) dans colonne A suivant valeur C1.
Ex : si C1=17 en colonne A les Cellules A1:A17 contiennent X.
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re

Merci pour le complément d'info, R@chid

Pour le fun et parce qu'Office 365

=CAR(TABLEAU.ALEA(15;1;88;88;VRAI))
ou
=CAR(TABLEAU.ALEA(A1;1;B1;B1;VRAI))

A1= nombre de ligne
B1= un nombre entier de 65 à 90 (pour avoir une lettre
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Mais malgré tout, il faudrait que Krosoft travaille encore sur LAMBDA() et son utilisation, car sauf erreur de ma part, je trouve encore de difficultés pour profiter des ses performances.

C'est bien ce que je disais : Krosoft développe des trucs qui semblent plutôt approximatif au moins par l’indigence de ses explications.

Le fonction Reduce(), selon moi, en est un exemple flagrant.

Avec ce que nous dit l'aide de Krosoft :
Code:
=REDUCE(ValeurInit; A1:C2 ; LAMBDA(ValeurFinale ; X ; ValeurFinale + X + X^2))

Et là, il faut comprendre d'après :
  • que ValeurInit est la valeur initiale de la valeur
  • A1:C2 est la matrice sur laquelle on travaille
  • ValeurFinale la valeur intermédiaire (et donc finale à la fin)
  • X représente chaque élément de la matrice
  • Et le dernier paramètre de Lambda est la fonction utilisée pour calculer le résultat final

=REDUCE(-99;A1:C2;LAMBDA(A;X; A+X+X^2))
Ce qui donnerait en équivalent VBA: =Reduce1(-99 ; A1:C2) avec :
VB:
Function Reduce1(ValeurInit, Plage As Range)
   Dim Valeur, x
      Valeur = ValeurInit
      For Each x In Plage.Cells
         Valeur = Valeur + x + x ^ 2
      Next x
   Reduce1 = Valeur
End Function

ou bien encore :
=REDUCE(1;A1:C2;LAMBDA(A;X; A*RACINE(ABS(X))))
Ce qui donnerait en équivalent VBA: =Reduce1(1 ; A1:C2)
avec : =Reduce2(1 ; A1:C2) avec :
VB:
Function Reduce2(ValeurInit, Plage As Range)
   Dim Valeur, x
      Valeur = ValeurInit
      For Each x In Plage.Cells
         Valeur = Valeur * Sqr(Abs(x))
      Next x
   Reduce2 = Valeur
End Function
Et là, il faut ne faut pas initialiser à 0, puisqu'on fait un produit.

Avouez que cette fonction Reduce(), il fallait aller la chercher!
Pour la comprendre, il faut un peu se creuser les méninges.
Comme si un gars de chez Krosoft en avait eu besoin pour un truc perso et c'est dit "Tiens, je vais l'intégrer en douce à Excel, on ne sait jamais, ça pourrait intéresser un quidam...". Cela expliquerait pourquoi elle n'est pas traduite et pourquoi l'aide est si miteuse. La forme est humoristique mais pas le fond.
 
Dernière édition:

Discussions similaires

Réponses
10
Affichages
240
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…