Discussion :

[Invité]

Bonjour à tous,

Je cherche à fractionner des cellules qui ont déjà été fusionnées puis à recopier le contenu de la première cellule (puisque fractionnée) dans les autres cellules concernées:
A2:A7 => Fractionner1
A2=>Fractionner1
A3=>Fractionner1
...
A7=>Fractionner2
Et ainsi dessuite pour toute ma colonne.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub fractionner()
ActiveCell.Copy
i = ActiveCell.MergeArea.Rows.Count
j = ActiveCell.MergeArea.Columns.Count
ActiveCell.MergeCells = False
li = Selection.Row
col = Selection.Column
For k = li To li + i - 1
    For l = col To col + j - 1
        Cells(k, l) = Cells(li, col)
    Next l
Next k
End Sub

J'ai essayé quelquechose comme ça mais ça ne marche pas.
Avez-vous une idée?

Merci à vous !
Cdlt aure_8

[Piixx_e]

Salut aure_8,

Pour que ton code soit plus lisible, édite ton message, sélectionne ta partie de code et clique sur la balise qui ressemble à un dièse, ça permettra de mieux pouvoir lire ton code (bon là c'est pas trop dur à lire, mais pour les prochaines fois, fais le ! )

Autrement, tu as essayé de faire ça avec l'enregistreur de macro ?

Edit : Ton code marche très bien non ? Il faut juste faire attention à bien sélectionner la case que tu veux fractionner avant de lancer ta macro en fait.

[Invité]

Bonjour,

Merci pour l'indication de l'édition du code, c'est vrai que c'est mieux.
Ce code je l'ai copier dans la Feuil1 et je clic sur la flêche "play" verte.
Je sélectionne le nom de ma macro puis exécuter.
je pensais que c'était la procédure à suivre.

Cdlt
aure_8

[Piixx_e]

Merci pour l'indication de l'édition du code, c'est vrai que c'est mieux.

Je ne vois pas de changement dans ton premier message, tu as peut être oublié d'enregistrer les changements avec la balise code (#)

Le problème avec ton code, c'est que :
1) si tu ne sélectionnes pas la cellule que tu veux fractionner avant de lancer ta macro comme tu le fais (avec la flèche "play"), ça ne va pas marcher parce que ta 1ère ligne c'est ça :

Code :

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

ActiveCell.Copy

Ce qui veut dire qu'il copie la cellule active, et la cellule active c'est la cellule qui est sélectionnée dans ton fichier Excel juste avant que tu lances la macro. Donc si c'est la grosse cellule c'est bon, mais si tu as cliqué sur une autre, ça ne marche plus. Tu vois ?
Dans le fichier que tu as envoyé, tu devrais donc mettre plutôt (de mémoire ta cellule à fractionner était en 2e ligne et 1ere colonne):

Code :

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

Cells(2,1).Copy

Là ça s'occupera de la bonne cellule.

2) ça ne le fait que pour la cellule sur laquelle tu as cliqué. Mais c'est peut être ce que tu veux ! Sinon, il faudrait faire une boucle pour faire la même opération sur chaque cellule fusionnée. Tu vois ce que je veux dire ?

[mercatog]

Tu peux remplacer ActiveCell par une plage spécifique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Fractionner()
Dim Rng As Range
 
With ActiveCell
    If .MergeCells Then
        Set Rng = .MergeArea
        .UnMerge
        .Cells(1, 1).Copy Rng
        Set Rng = Nothing
    End If
End With
End Sub

[Invité]

Re Piixx_e,

Effectivement petit problème d'enregistrement des modifs, désolé. Merci pour tes explications je comprends mieux la chose.

Slt mercatog, merci pour ton code, j'ai compris la démarche à suivre.

Encore merci à vous pour cette aide et bonne soirée

Cdlt
aure_8