Assemblag de 2 case entre elles [Résolu]

Question

Assemblag de 2 case entre elles [Résolu]

Signaler

jeanjeandada

Messages postés: 152
Date d'inscription: lundi 21 avril 2008
Statut: Membre
Dernière intervention: 20 novembre 2011

- 11 mai 2008 à 22:41
jeanjeandada

Messages postés: 152
Date d'inscription: lundi 21 avril 2008
Statut: Membre
Dernière intervention: 20 novembre 2011

- 12 mai 2008 à 00:09

Salut

Est ce que qq1 connaitrai une fonction ou une macro ou une manipulation (où par la suite jpourrai l'enregistrer en VB) pour assembler 2 cellules entre elles en gardant leurs données

Exemple

A1 | B1

SA | LUT

RESULTAT ATTENDU=>

A1
ou en B1
SALUT

MErci

A voir également:

Assemblag de 2 case entre elles
Assemblage de 2 tables dans un select ✓ - Forum - SQL
Comment forcé le choix de 2 case checkbox a cocher ✓ - Forum - C# / .NET
Réaliser 2 actions dans case ✓ - Forum - Visual Basic 6
Problème:activer/désactiver deux zone de text avec des cases à cocher en javascr ✓ - Forum - Javascript / DHTML
Select / deselect toutes les cases à cocher mais quand il y en a deux séries ✓ - Forum - Javascript / DHTML

2 réponses

Réponse 2 / 2

jeanjeandada

Messages postés: 152
Date d'inscription: lundi 21 avril 2008
Statut: Membre
Dernière intervention: 20 novembre 2011

12 mai 2008 à 00:09

OK merci de m'avoir donner la fonction excel et le code VB pr regrouper les cellules!!

Merci !
Bonne Nuit et Bon Lundi !!

Répondre Posez votre question

mortalino · Accepted Answer · 2008-05-11T23:31:11+0200

Salut,

soit dans la cellule C1, tu mets =CONCATENER(A1;B1)
sinon, il faut passer par vba :

Option Explicit

Private Function MyConcatenation(ParamArray sString()) As
String
    Dim i As Long, sTemp As String

For i = LBound(sString) To UBound(sString)
    sTemp = sTemp & sString(i)
Next i
MyConcatenation = sTemp
End Function

Sub test()
    MsgBox MyConcatenation(Range("A1").Text, Range("B1").Text)
    MsgBox MyConcatenation("B", "o", "nj", "ou", "r")

    Range("C1").Value = MyConcatenation(Range("A1").Text, Range("B1").Text)
End Sub
~
<small>[code.aspx?ID=39466 Mortalino] ~
Colorisation automatique</small>

@++
___________________________________
( Forum exclusivement Office & VBA )

Votre réponse