Fusion et copie

[bbell]

Bonjour et Bonne année à tous
Je désire fusionner des cellules et copier des données dans celles-ci suivant la valeur d'autres cellules en vba
Qui peut m'aider. merci

 

[Pierrot93]

Re : Fusion et copie

Bonjour bbell et bienvenu parmi nous,

peut être qu'un petit fichier, sans données confidentielles, avec ce que tu as et le résultat attentu nous aiderait à t'aider... Attention tout de même, les cellules fusionnées posent souvent problème en vba...

bon après midi
@+

 

[bbell]

Re : Fusion et copie

Merci Pierrot, comment j'attache le fichier.

 

[Pierrot93]

Re : Fusion et copie

Re

lorsque tu créés ton message, en dessous du bouton "envoyer la réponse", dans les options complémentaires tu as un bouton "gérer les pièces jointes", tu click dessus, tu choisis le fichier et bouton "envoyer". Attention les fichier ne doivent pas dépassés 50k et être en .xls ou mieux .zip.

@+

 

[bbell]

Re : Fusion et copie

Merci, ci-joint le fichier allégé et corrigé

 

[Pierrot93]

Re : Fusion et copie

Re

essaye peut être le code ci-dessous :

Sub Fusion()
Dim i As Integer, j As Integer
Cells(5, 2).Resize(, 7).Clear
j = 1
For i = 2 To 8
    j = j + 1
    If Cells(1, i) = Cells(1, i + 1) Then
        Range(Cells(5, i), Cells(5, i + 1)).Merge
        Cells(5, i).Value = Cells(2, j).Value
        i = i + 1
    Else
        Cells(5, i).Value = Cells(2, j).Value
    End If
Next i
End Sub

 

[bbell]

Re : Fusion et copie

Merci pour le code. Je dois partir, j'essaie dès mon retour vers 19h00.
Bonne après-midi et encore merci.

 

[bbell]

Re : Fusion et copie

Bonsoir, j'ai testé la macro. Presque excellent, si on modifie une valeur sur la ligne 1, la fusion ne se fait pas correctement, mais les valeurs sont OK. J'espère trouver la solution. Merci de ton aide.

 

[Pierrot93]

Re : Fusion et copie

Re

oui, normal, d'après ce que j'ai compris de ton fichier, tu fusionnes si 2 celllules consécutives de la ligne 1 sont identiques.... Donne nous peut être un peu plus de détails....

 

[bbell]

Re : Fusion et copie

Re,
Quand je modifie les valeurs de la ligne 1, les fusions doivent suivre ainsi que les valeurs.
Ci-joint le fichier avec les cellules non fusionnées.

 

[bbell]

Re : Fusion et copie

Bonsoir à tous.
Merci à Pierrot93 pour son aide. J'espère à demain.
@ +

 

[Pierrot93]

Re : Fusion et copie

Bonjour bbell

Oui... ce n'est plus la même problèmatique... si tu changes la donne à chaque fois, pas facile de suivre, un dernier essai ainsi :

Sub Fusion()
Dim i As Integer, j As Integer, k As Integer, l As Integer
Cells(5, 2).Resize(, 7).Clear
l = 2
For i = 2 To 8
    k = i: j = 1
    Do While Cells(1, i) = Cells(1, i + 1)
        j = j + 1
        i = i + 1
    Loop
    Cells(5, k).Resize(, j).Merge
    Cells(5, k).Value = Cells(2, l).Value
    l = l + 1
Next i
End Sub

Bonne journée
@+

PS je te laisse formater les cellules (alignement et bordures)

 

[bbell]

Re : Fusion et copie

Bonjour Pierrot,
Excellent !!!! Un grand merci pour ton aide.
Une bonne journée à toi.
Je te souhaite une très Bonne Année 2010, à toi, ta famille et tous ceux qui te sont chers. Beaucoup de Bonheur et surtout la Santé.
@ +