Discussion :

[lemarcheurfou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Discussion en doublon de la veille ‼

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 …

[lemarcheurfou]

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..

[Marc-L]

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 …

[lemarcheurfou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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