Macro pour fusion particuliere

Résolu

clarap -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention - 20 juil. 2012 à 13:33

Bonjour, je vien vers vous car je suis pietre programmatrice ^^
alors voila, j'ai mon tableur avec avec en A1: bla et en A2: bla et je souhaiterai avoir en
A1: bla
bla

en effet toutes le macro que j'ai vu me fusionne les 2 cellules et j'obtient bla mais dans les cellules A1 et A2 fusionée.
bla

j'espere avoir été clair, merci d'avance !!

Afficher la suite

A voir également:

Macro pour fusion particuliere
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Display fusion - Télécharger - Divers Utilitaires
Jitbit macro recorder - Télécharger - Confidentialité
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro maker - Télécharger - Divers Utilitaires

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 762

Bonjour,
Pourquoi pas tout simplement :

Sub Clarap() 
[A1] = [A1] & Chr(10) & [A2] 
End Sub

Sub ClarapBis() 
Range("A1").Value = Range("A1").Value & Chr(10) & Range("A2").Value 
End Sub

Cordialement,
Franck P

clarap

alors , tout d'abord merci beaucoup d'avoir pris le temps de me repondre!
cependant ,cette macro agrandit effectivement ma ligne 1 mais ne me permet pas d'incorporer le texte de la cellule dedans.
je m'explique je voudrai pouvoir couper/coller le texte d'une cellule dans la cellule juste au dessus mais sans fusionner les 2 !

clarap

parcque la si je comprend bien cela ne fonctionne qu'avec la cellule A1 or j'aimerai que ce soit appicla avec n'importa quel duo de cellule

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 762

Cette nouvelle procédure vous demande qu'elle est la celulle dans laquelle les 2 doivent être réunies (concrètement la cellule du dessus), vous cliquez dans cette cellule, faites OK et....

Sub Assembler()
Dim Cel As Range
Set Cel = Application.InputBox("Cliquez sur la celulle dans laquelle les 2 doivent être réunies", "Sélection", Type:=8)
Cel = Cel & Chr(10) & Cel.Offset(1, 0)
Set Cel = Nothing
End Sub

clarap

merci merci merci et merci

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 762

Euh
De rien,
de rien,
de rien
et
...
de rien!
A+

Réponse 2 / 2

clarap

ha oui et precision: je souhaiterai que les bla et bla soit l'un en dessous de l'autre !

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 762

https://forums.commentcamarche.net/forum/affich-25635327-macro-pour-fusion-particuliere#1

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

recup couleur de cellule sans macro

EXCEL transformer chiffres en lettre -facture

Votre réponse

Discussions similaires