XL 2010 Concatener

[mic6259]

Bonjour
D'après la pièce jointe, j'aimerais Concatener dans la cellule L16 Les cellule A14 a BJ14 et avoir le même nombre de 0
Par exemple 06,00,00,17 etc... .
Pourriez-vous m'expliquer la méthode pour que je puisse le faire sur les grilles suivantes.

Merci pour votre aide

 

[st007]

Bonjour,
en imposant un format texte à 2 caractères, puis joindre cette plage avec une virgule

 

[mic6259]

J'ai pas très bien saisie, j'ai refait le même code pour les cellules K18T:18 ca me fait #NOM?

 

[st007]

re,
K14:U14 étiré vers le bas.
juste k14 ==TEXTE(A14;"00") doit fonctionner
ceci étiré jusqu'en S14, puis k14:s14 etirer vers le bas
puis =JOINDRE.TEXTE(",";;K14:S14)

 

[mic6259]

Merci st007, je vais essayer demain.
Je pense que ma version n'est pas compatible
Cordialement

 

[mic6259]

re,
K14:U14 étiré vers le bas.
juste k14 ==TEXTE(A14;"00") doit fonctionner
ceci étiré jusqu'en S14, puis k14:s14 etirer vers le bas
puis =JOINDRE.TEXTE(",";;K14:S14)

Désolé çà ne marche pas

 

[mic6259]

Bonjour,


Je ne suis pas certain que Joindre.Texte fonctionne sous Excel 2010.
Apparemment, il faut Excel 2019 ou 365.

Mais tu peux fairec comme dans ton fichier de #1 : utiliser "Concatener".

Oui mais je n'ai pas, par exemple 07 ou 00, j'obtiens 7
Merci pour vos réponses

 

[mic6259]

Oui mais je n'ai pas, par exemple 07 ou 00, j'obtiens 7
Merci pour vos réponses

Je pense par vba peut être

 

[mic6259]

Je pense par vba peut être

=Texte fonctionne mais pas =JOINDRE.TEXTE(",";;K14:S14)

J'aime

 

[mic6259]

Oui, c'est ce que j'ai dit en #7 : joindre.texte n'existe pas sous Excel 2010.

J'ai trouver ce code vba qui fonctionne, je l'ai mis dans la feuille active
Sub Corriger()
Dim w As Worksheet
For Each w In Worksheets
w.Cells.Replace "_xlfn.CONCAT", "CONCATENER", xlPart
Next
End Sub

Cordialement

 

[st007]

Tu peux utiliser un pack de fonction supplémentaire à installer ( ou tu retrouveras une fonction joindre, avec un séparateur à définir)
Ou en v18

=L18&$U$18&M18&$U$18&N18&$U$18&O18&$U$18&P18&$U$18&Q18&$U$18&Q18&$U$18&R18&$U$18&S18&$U$18&T18

avec une virgule en U18

 

[mic6259]

Bonjour st007
Merci beaucoup pour le pack, je le conserve précieusement, il pourrait m'être utile.
J'ai repris ton ta première réponse et Jai tout simplement concatener de K14 a S14 et çà fonctionne.
Je considère donc la question comme résolu
Cordialement

 

[soan]

Bonjour mic6259, st007,

je te retourne ton fichier Excel (converti en .xlsm) ; les 8 formules proposées sont toutes basées sur ma fonction personnalisée JNE() : Joindre Nombres Entiers ; seuls les paramètres sont différents.​

en M16 : =JNE(", ";0;A2:I4)
en M17 : =JNE(", ";1;A2:I4)

en M19 : =JNE(", ";0;A2:I4;"00")
en M20 : =JNE(", ";1;A2:I4;"00")

en M24 : =JNE(", ";0;A2:I4;;1)
en M25 : =JNE(", ";1;A2:I4;;1)

en M27 : =JNE(", ";0;A2:I4;"00";1)
en M28 : =JNE(", ";1;A2:I4;"00";1)

d'où ces résultats :

code VBA :

Option Explicit

'JNE : Joindre Nombres Entiers

'5 paramètres (les 2 derniers sont optionnels) :
'  sép : séparateur ; par exemple ", " (virgule espace)
'  ivd : ignorer vide ; 0 = non ; 1 = oui
'  plg : plage ; par exemple A2:I4
'  fmt : format de nombre d'une donnée ; ex : "00"
'  slc : sens de lecture en colonne ; 0 = non ; 1 = oui

Function JNE(sép$, ivd As Byte, plg As Range, Optional fmt$, Optional slc As Byte) As String
  Dim chn$, v0&, s0$, s1$, s2$, l1&, l2&, c1%, c2%, i&, j%
  s0 = plg.Address(0, 0): s1 = Split(s0, ":")(0): s2 = Split(s0, ":")(1)
  l1 = Range(s1).Row: c1 = Range(s1).Column: l2 = Range(s2).Row: c2 = Range(s2).Column
  If slc = 0 Then
    For i = l1 To l2
      For j = c1 To c2
        v0 = Val(Cells(i, j))
        If fmt = "" Then s0 = CStr(v0) Else s0 = Format(v0, fmt)
        If v0 <> 0 Or (v0 = 0 And ivd = 0) Then chn = chn & s0 & sép
      Next j
    Next i
  Else
    For j = c1 To c2
      For i = l1 To l2
        v0 = Val(Cells(i, j))
        If fmt = "" Then s0 = CStr(v0) Else s0 = Format(v0, fmt)
        If v0 <> 0 Or (v0 = 0 And ivd = 0) Then chn = chn & s0 & sép
      Next i
    Next j
  End If
  JNE = Left$(chn, Len(chn) - Len(sép))
End Function

si besoin, tu peux demander une adaptation.
merci de me donner ton avis. 🙂

soan

 

[TooFatBoy]

Re,

Une autre proposition de fonction (légèrement moins paramétrable...😁) :

Function ConcatGrille(MesCellules As Range) As String
'
Dim c As Range
Dim MonTexte As String

    For Each c In MesCellules
        MonTexte = MonTexte & Right("00" & c.Value, 2) & ","
    Next c

    ConcatGrille = Left(MonTexte, Len(MonTexte) - 1)

End Function

Exemple d'utilisation : écrire en L15 la formule =ConcatGrille(A2:I4)

 

[mic6259]

Bonjour soan et Marcel
Super travaille de votre part, le fichier de Marcel me convient parfaitement.
Merci beaucoup a vous deux
cordialement