Discussion :

[hackel]

Bonjour à tous,

Un code qui fonctionnait très bien sous XL 2010 en 32 bits ne fonctionne plus sous 64 bits ??

Le pire c'est que j'ai enregistré la macro avec Excel et qu'il ne m'a rien dit !!
C'est trois lignes hyper simple pour faire un copier coller valeur de 5 cellules.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Figer_Coef_Maison()
'
    Range("E101:E105").Select
    Selection.Copy
    Range("F101").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("E101").Select
 
End Sub

Merci pour votre aide.

[BENNASR]

Bonsoir
normalement pas de soucis, code fonctionne
mais pour éviter tout dysfonctionnement commencer par définir ta feuille avec with et ajouter un point devant le range :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Figer_Coef_Maison()
with sheets("feuil1")
.Range("E1:E5").Select
Selection.Copy
.Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
.Range("E1").Select
end with
End Sub

[hackel]

Merci Bennasr,

J'ai fais un copié collé de ton code (en changeant uniquement le nom de la feuil1) ça m'a fait une erreur mais maintenant ça marche.


C'est vraiment bizarre.