Concaténer cellules

Le 24/07/2013 à 12:40

Bonjour,

j'aimerais avoir un code macro pour faire ceci:

Il faudrais qu'au clic sur une cellule (exemple B4 sur Feuil1), les cellules D4, D5 et D6 (qui contiennent du texte) se concatènes dans une cellule (exemple A6) ou encore mieux dans une nouvelle feuille (exemple Feuil2, cellule A1).

J'ai essayer un code mais sans résultats aucuns:

Sub Test()

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Address = "$B$4"

    'Sélection de la feuille "feuil1" :
    Sheets("Feuil1").Select
    'Sélection de la cellule "D4" de la feuille 1 :
    Range("D4").Select
    'Copie de la cellule active :
    Selection.Copy
    'Sélection de la cellule "D8" de la feuille 1 :
    Range("D8").Select
    'Collage spécial : ne coller que la valeur de la cellule copiée :
    Selection.PasteSpecial Paste:=xlPasteValues
    'Sélection de la feuille "feuil1" :
    Sheets("Feuil1").Select

    End Sub

End Sub

Merci d'avoir pris du temps pour lire mon problème et de prendre du temps pour m'éclairer.

Cordialement

Le 24/07/2013 à 12:55

Bonjour

Tout simplement code à placer dans le module de la page "Feuil1"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$B$4" Then
    Sheets("Feuil2").Range("A1") = Range("D4") & Range("D5") & Range("D6")
  End If
End Sub

Le 24/07/2013 à 12:58

Bonjour,

En plaçant ce code dans le module de la Feuil1,

au double clic sur la cellule B4 de la Feuil1, les cellules D4, D5 et D6 se concatènent dans une nouvelle feuille (Feuil2, cellule A1).

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$B$4" Then
        Worksheets("Feuil2").Range("A1") = Range("D4") & Range("D5") & Range("D6")
    End If
End Sub

A+

EDIT : Bonjour Banzai64

Le 24/07/2013 à 14:16

Déjà merci pour votre accueil!

Ensuite, je crois je suis définitivement incompétent sur Excel : /

J'ai essayé vos deux codes, j'y arrive pas.

Et puis même si c'est la même feuille ce n'est pas grave.

J'ai enregistré le fichier avec l'extension .xlsm

Je ne sait pas si c'est la bonne extension.

Encore merci pour votre aide, Manzo

Edit: Je ne sait pas si je me suis bien exprimé mais, disons que GLOUGLOU, WAZZA et TEST soient des normes.

Il faut qu'il y ai les normes GLOUGLOU et TEST.

J'aimerais faire en sorte que GLOUGLOU en français et TEST en français soient concaténés et que en même temps que GLOUGLOU en Allemand soit concaténé avec TEST en Allemand et aussi que GLOUGLOU en Anglais soit concaténé avec TEST en Anglais.

La concaténation ce ferais click sur les cases B4 et/ou B5 et/ou B6

JE ne sait pas si je suis clair, en tous cas merci pour votre aide

Le 24/07/2013 à 14:53

Bonjour

Manzo a écrit :
J'ai enregistré le fichier avec l'extension .xlsm

Oui cela veut dire fichier avec macro

Manzo a écrit :
JE ne sait pas si je suis clair,

Pas vraiment :

Où est passé WAZZA ?

C'est toujours dans la même cellule la concaténation ?

Tu prépares un fichier dans lequel tu notes ce que tu as et tu fais quelques exemples du résultat que tu veux

Le 24/07/2013 à 15:05

Re-bonjour,

WAZZA a disparu étant donné que nous n'avons pas besoin de cette norme.

En fait les carrés dans les cases B4, B5 et B6 je les ais vus comme étant des "boutons", on clique dessus et on ajoute cette norme dans un "panier" au fur et à mesure que l'on clique.

Comme ça au final, quand on a sélectionné toutes les normes que nous voulons, elles sont toutes concaténés par langue.

Par exemple dans une cellule "Risque de suffocation. Contient de petites pièces." Et dans une autre cellule "Choking hazard. Contains small parts."

Le but étant de faire un copié/collé de toutes les normes sélectionnées par langue.

Merci encore.

PS: Comment je joint un fichier?

Le 24/07/2013 à 15:21

Bonjour