Discussion :

[tioch]

Bonjour à tous,

Dans une macro je voudrais copier coller des cellules fusionnées (pour cela je copie colle toute ma feuille) mais je voudrais que certaines cellules (qui sont fusionnées) perdent leur formule (qu'il n'y ait plus que leur valeur dans la barre en haut).
J'espère que ce que j'explique est assez clair.
Si quelqu'un a une idée merci d'avance.

Tioch

[rvtoulon]

Bonjour,
voici une idée pas testé (j'ai pas excel sur cet ordi) mais une idée:
Si ta cellule fusionnée commence en A1, tu met sa valeur dans une variable. Et ensuite tu donnes cette valeur à ta cellule:

Code :

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

1
2
vcel = Sheets("Feuil1").range("A1").value
Sheets("Feuil1").range("A1") = vcel

A adapter bien sur.

[Theze]

Bonjour,

En parcourant toute la feuille "Feuil1" (nom à adapter) à la recherche des cellules fusionnées et remplace les formules par leurs valeurs :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub Valeur()
 
    Dim Plage As Range
    Dim Cel As Range
 
    'plage en feuille "Feuil1", à adapter
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(1, 1), _
                    .Cells(.Cells.Find("*", .[A1], -4123, , _
                    1, 2).Row, .Cells.Find("*", .[A1], -4123, , _
                    2, 2).Column))
 
    End With
 
    'parcour la plage à la recherche des cellules fusionnées
    For Each Cel In Plage
 
        'remplace les formules par les valeurs
        If Cel.MergeCells = True Then Cel.Value = Cel.Value
 
    Next Cel
 
End Sub

Hervé.