Fusion 2 cellules excel vba

Bonsoir à tous,

Je suis novice en vba et je rencontre déjà un petit problème.
Je vous explique j'ai 2 feuilles identique avec la même forme mais différente information.

Je voudrais faire une fusion avec mes 2 premières colonnes que je vais mettre dans une 3ième feuille. J'ai commencé le code mais le problème c'est qu'il me fusionne juste les 2 premières infos mais pas les autres et il ne l'est affiche pas. Si quelqu'un pouvais m'aidé..

Voilà mon code et je fourni aussi mon fichier excel:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Fusion()   Dim s As Byte   For s = 1 To 2 With Sheets(s)   Sheets("Sheet3").Range("A2" & n) = Sheets(s).Range("A2" & n) & "" & Sheets(s).Range("B2" & n)   End With Next s   End Sub

---

Merci d'avance pour vos réponse

:alerte:

Discussion en doublon de la veille ‼ 8O

Continuer dans la discussion d'origine, cela ne sert à rien d'en créer une nouvelle pour le même sujet !

Il n'y aura pas plus de réponse …

Non ce n'est pas le même sujet je viens de mettre une réponse avec la solution trouver. La je cherche à fusisonner 2 cellules et non 2 feuilles.. Mon code me permet de fusionner juste 2 colonnes alors que je veux fusionner tout. exemple la A1 avec la B1, la A2 avec la B2, la A3 avec la B3 ainsi de suite..

Bien …

Les Range dans la ligne n°8 ne veulent rien dire ‼ Où est défini "n" ?

Ne manquerait-il pas une boucle pour les lignes des colonnes ?

Voir peut-être du côté de la propriété Cells …

Oui je pense que c'est une histoire de boucle. Je vais recherché si je trouve la solution je la posterai.

Voilà la solution:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Fusion() Dim sh, fin&, i&, fin1&, x$ For Each sh In Array(Sheet1, Sheet2) fin = sh.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To fin x = sh.Cells(i, 1) & sh.Cells(i, 2) fin1 = Sheets("sheet3").Range("A" & Rows.Count).End(xlUp).Row + 1 Sheets("sheet3").Cells(fin1, 1) = x Next i Next sh End Sub

---