Discussion :

[a.dequidt]

Bonjour,

J'ai réaliser une macro sous excel qui permet d'aller rechercher des informations dans un autre fichier et de les coller à un endroit spécifique, jusque la rien de problematique, mon copier-coller marche
Enfin marchait! -_-"

Je viens de le transferer sur un autre pc, et malheueusement ma macro ne marche plus.

Excel affiche un message d'erreur qui provient de VB:

Erreur d'exécution '1004':
Impossible de modifier une cellule fusionnée.

Je ne comprend pas d'ou peut provenir cette erreur, surtout que je ne l'avais pas sur l'autre poste

Aurore

[ouskel'n'or]

Tes fichiers sont-ils ouverts ?
Montre ton code qu'on jète un oeil... c'est peut-être une erreur bête

[a.dequidt]

Oui mon fichier est bien open

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        If marque <> "" Then
            Windows("Tarifs.xls").Activate
            Sheets(num_onglet).Select
            For i = 2 To 65536
                If Range("A" & i).Value <> "" Then
                    If Range("A" & i).Value = ref Then
                        Range("B" & i).Select
                        Selection.Copy
                        Windows("offres.xls").Activate
                        Range("F" & a).Select
                        ActiveSheet.Paste

NB:Les cellules F, G et H sont fusionnées!

[ouskel'n'or]

Les cellules fusionnées posent toujours pb. Pour un copier/Coller, la cellule qui "reçoit" doit être au même format.
Ce que tu peux faire est de copier d'abord le format par un collage spécial, puis la donnée

Code :

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

1
2
3
4
Range("B" & i).Copy
Workbooks("offres.xls").Worksheets("NomDeLaFeuille").Range("F" & a & ":H" & a). _
PasteSpecial Paste:=xlPasteFormats
Workbooks("offres.xls").Worksheets("NomDeLaFeuille").Range("F" & a).Paste

Les sélections de feuille ou de cellules sont inutiles

[a.dequidt]

Ca ne marche pas, ça me défusionne les cellules fusionnées mais ça ne colle pas ce que je voudrais :s

[Invité]

Bonjour a.dequidt,

Votre problème doit bien se trouver là.

Comme le dit Ouskel'n'or pour un copier/coller les cellules n'ayant pas le même format pose un problème.

Et vous dîtes bien qu'en faisant un collage spécial et en collant d'abord le format, la fusion des cellules en F,G,H est supprimée.

Donc les cellules d'origine en B,C,D ne sont pas fusionnées.

Dans ce cas, pourquoi ne pas affecter la donnée à une variable sur le 1er classeur puis affecter cette variable sur le second classeur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 If marque <> "" Then
            Windows("Tarifs.xls").Activate
            Sheets(num_onglet).Select
            For i = 2 To 65536
                If Range("A" & i).Value <> "" Then
                    If Range("A" & i).Value = ref Then
                        'Range("B" & i).Select
                         myvar = Cells(i, 2) 
                        'Selection.Copy
                        Windows("offres.xls").Activate
                        'Range("F" & a).Select
                        'ActiveSheet.Paste
                        Cells(a, 6) = myvar