Microsoft 365 Traduction de WRAPROWS

[ChantalTreize]

Bonjour tout le monde,
Quelle est la fonction Excel français qui pourrait remplacer :WRAPROWS fonction anglaise ?
Merci d'avance
Bonne journée

 

[vgendron]

bonjour

en se donnant la peine d'une simple recherche gogle...
orga.lignes

 

[ChantalTreize]

un grand merci

 

[Dranreb]

Bonjour.
Suggestion: écrivez un petit code qui l'affecte à la propriété Formula d'une cellule, et vous verrez comment c'est montré en FormulaLocal.
Remarque elle ne serait pas compliquée à écrire en VBA.

 

[vgendron]

Bonjour.
Suggestion: écrivez un petit code qui l'affecte à la propriété Formula d'une cellule, et vous verrez comment c'est montré en FormulaLocal.
Remarque elle ne serait pas compliquée à écrire en VBA.

Hello Bernard
perso, je doute que cette petite "opération" soit effectuée par la demandeuse qui semble avoir meme la flemme de chercher sous google...

 

[Dranreb]

Pour ceux qui en auraient besoin alors qu'elle ne serait pas implantée :

Option Explicit
Public Function DécoupeLignes(ByVal Src, ByVal NbCol As Integer, Optional ByVal ValDéf) As Variant()
   If IsMissing(ValDéf) Then ValDéf = CVErr(xlErrNA)
   CalcDécLig DécoupeLignes, Src, NbCol, ValDéf
   End Function
Private Function CalcDécLig(TR(), ByVal Src, ByVal NbCol As Integer, ByVal ValDéf)
   Dim V, C As Integer, L As Long
   If TypeOf Src Is Range Then Src = Src.Value
   ReDim TR(1 To (UBound(Src, 1) * UBound(Src, 2 + NbCol - 1) \ NbCol, 1 To NbCol)
   For Each V In Src
      C = C Mod NbCol + 1: If C = 1 Then L = L + 1
      TR(L, C) = V
      Next V
   Do While C < NbCol: C = C + 1: TR(L, C) = ValDéf: Loop
   End Function