Macro pour fusion particuliere

Résolu/Fermé

clarap - Modifié par clarap le 20/07/2012 à 09:47
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 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 !!

A voir également:

Macro pour fusion particuliere
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Fusion pdf - Guide
Macro recorder - Télécharger - Confidentialité

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
Modifié par pijaku le 20/07/2012 à 09:54

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
20 juil. 2012 à 11:54

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
20 juil. 2012 à 12:09

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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
20 juil. 2012 à 12:21

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
20 juil. 2012 à 13:06

merci merci merci et merci

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
20 juil. 2012 à 13:33

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

Réponse 2 / 2

clarap
20 juil. 2012 à 11:48

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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
20 juil. 2012 à 11:55

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

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

recup couleur de cellule sans macro

Discussions similaires

Newsletters