Collage spéciale

bonsoir

j'ai réalisé une macro par enregistrement qui me copie une cellule pour me la copier dans une autre mais probleme la cellule en question contient une formule et quand j'exécute ma macro il me copie la formule au lieu de la valeur qui a dans la cellule et comme les référnces change la valeur n'est plus pareil

pouvez me donné le code a insérer pour qu'il me copie uniquement la valleur de la cellule SVP

PS: j'ai éssayer le collage spéciale mais j'ai une erreur qui me dit que les cellules fusionné doivent etre de taille identique et comme c'est pas le cas je ne peux pas passer par la

merci

erreur de post

Bonsoir,

Essaye ceci :

• A1 --> la cellule à copier
• A2 --> la cellule de destination

Code --> Range("A2")=Range("A1").value

A te relire

Dan

For ligne = 13 To 20

For colonne = 22 To 24

If Cells(ligne, colonne).Value > 0 Then Cells(ligne, colonne).Select

Selection.Copy

Windows("essai2.xls").Activate

ActiveSheet.Paste

Selection.PasteSpecial Paste:=xlValues

Next colonne

Next ligne

voila le code VB est en faite ca foire a la ligne Selection.PasteSp......

il me dit erreur d'éxecution 1004 cette opération requiert que les cellules fusionnées soit de tailles identiques

Bonjour,

effectivement, si tu as des cellules fusionnées, il faut que les cellules sur lesquelles tu fais un copier - coller, soient les mêmes.

Evite les cellules fusionnées, cela fait belle présentation mais pour les codes ce n'est pas facile à gérer.

Plutôt que

...Then Cells(ligne, colonne).Select 
selection.copy

mets

Then Cells(ligne, colonne).copy

Pour le reste je ne peux pas plus t'aider sans voir ton fichier

Amaicalement

Dan

merci pour ta correction ca fontionne bien