[VBA] Fusionner le texte de cellules contigues en VBA Excel (Urgent)

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Fusionner le texte de cellules contigues en VBA Excel (Urgent)

slashp

Salut,

J'ai un problème urgent en VBA sous Excel, je dois écrire une macro qui va fusionner le texte de plusieurs colonnes contigues
et ce, ligne par ligne:

Ca donne ça:
----------------------------
Texte 1 | Texte 2 | Texte 3|
----------------------------
Ligne 2 | Toto4 | titi |
----------------------------
....

Je veux en faisant une selection sur les cases à fusionner que ca donne ça:
-------------------------------------
Texte1 Texte2 Texte3 | | |
-------------------------------------
Ligne 2 Toto4 titi | | |
-------------------------------------
.....

J'ai écrit le code suivant:
Sub MacroFusion()

Dim Colonne As Integer
Dim Ligne As Integer
Dim ColonneFin As Integer
Dim LigneFin As Integer
Dim CurrentSel As Excel.Range
Dim cell1_cont As Variant
Dim cell2_cont As Variant

CurrentSel = Application.ActiveSheet.CurrentRegion.Cells
Colonne = CurrentSel.Column
Ligne = CurrentSel.Row
ColonneFin = CurrentSel.Columns(CurrentSel.Columns.Count)
LigneFin = CurrentSel.Rows(CurrentSel.Rows.Count)

For i = Ligne To LigneFin
Range(Chr(64 + Colonne) & CStr(i)).Select
cell1_cont = ActiveCell.FormulaR1C1
ActiveCell.FormulaR1C1 = ""

Range(Chr(65 + Colonne) & CStr(i)).Select
cell2_cont = ActiveCell.FormulaR1C1
ActiveCell.FormulaR1C1 = cell1_cont & " " & cell2_cont
Next i
End Sub

La partie du code récupérant la séléction courante ne fonctionne pas.

Voici ma question: Comment récupérer la selection courante dans Excel ?

Quelqu'un peut il réussir à faire marcher ce bout de code (qui ne gère que deux colonnes pour l'instant)

Désolé le code ci dessus doit être mal programmé mais c'est ma première expérience en VB (je fais plutot du C/C++ MFC/Win32...)

Publicité

slashp

UP plz c urgent

slashp

Bon bah j'ai finalement réussi à coder le truc si ça interesse quelqu'un:

Citation :

Sub MacroFusion()

Dim Colonne As Long
Dim Ligne As Long
Dim ColonneFin As Long
Dim LigneFin As Long
Dim ResultCell As Variant

With Selection
Ligne = .Cells(1).Row
LigneFin = .Cells(.Cells.Count).Row
Colonne = .Cells(1).Column
ColonneFin = .Cells(.Cells.Count).Column
End With

For i = Ligne To LigneFin
ResultCell = ""
For j = Colonne To ColonneFin
Range(Chr(64 + j) & CStr(i)).Select
ResultCell = ResultCell & " " & ActiveCell.FormulaR1C1
ActiveCell.FormulaR1C1 = ""
Next j
Range(Chr(64 + Colonne) & CStr(i)).Select
ActiveCell.FormulaR1C1 = ResultCell
Next i
Range(Chr(64 + Colonne + 1) & CStr(Ligne), Chr(64 + ColonneFin) & CStr(LigneFin)).Select
Selection.Delete Shift:=xlToLeft
End Sub

Message cité 1 fois

bencoco

Bonjour,

Merci pour votre macro.

Cependant elle fonction correctement uniquement si je selection 2 colonnes entières, et sa mouline jusqu'à la fin...
Lorsque je sélection uniquement les colonnes (A et B) à valeurs, il m'étale la valeur de la colonne G sur FGH ?.
Peut-être un bug, pourquoi FGH ?.

Merci d'avance pour votre réponse.

Cordialement.

slashp a écrit :

Bon bah j'ai finalement réussi à coder le truc si ça interesse quelqu'un:

Citation :

bencoco

Rebonjour,

Autant pour moi.
Cela

bencoco

Cela fonctionne, il fallait juste ajuster les colonnes FGH.
Merci encore pour votre macro.
Cordialement.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Fusionner le texte de cellules contigues en VBA Excel (Urgent)

Sujets relatifs
Interbase et Delphi URGENT	[C++Builder] Effacement de texte dans un canvas
[EXCEL,ACCESS]need help pour un projet!!!!	[VB] Comment construire un fichier Excel ?
Erreur avec L'include pour Online.fr [trés urgent!]	[ java / regexp ] parser un fichier texte.
URGENT RECHERCHE PRO DU DOS	[URGENT POUR LE BTS] Cold Fusion et Mysql - Il faut que ça marche
[PHP]Nombre aléatoires (Urgent)	HE LP !! ----> VBA + Excel ! <----
Plus de sujets relatifs à : [VBA] Fusionner le texte de cellules contigues en VBA Excel (Urgent)

Page générée en 0.035 secondes