2eme question VBA

Le 09/05/2007 à 15:11

Bonjour

Sub copypaste()

Sheets("Parrain1").Select

Range("E44:J44").Select

Selection.Copy

Sheets("Fonctions").Select

Range("A7:F7").Select

ActiveSheet.Paste

End Sub

J'ai ce code , mai mon probelem , est que les cases a copier sont des resultats d'une formule : Cellule = A1&A2..... par exp

alors quand il les COLLE ou paste , il fai #REF comme koi le resultat est faux , il reopie la formule.

Ce que je souhaite faire c'est qu'il copie et colle le RESULTAT , mercii bocou...

Le 09/05/2007 à 16:16

Bonjour,

Essaies:

Tablo=Sheets("Parrain1").Range("E44:J44").value

Sheets("Fonctions").Range("A7:F7")

Le 09/05/2007 à 16:21

Salut michel ;

j'ai fait :

Sub copypastee()

Tablo = Sheets("Parrain1").Range("E44:J44").Value

Sheets("Fonctions").Range ("A7:F7")

End Sub

ca marche pas , ca fai une erreur , désolé mai chui pa trés bon en VBA , si tu pourra mdire un pe + de details ce serait sympa. merci

Le 09/05/2007 à 16:58

Oups,

voici la bête:

Tablo = Sheets("Parrain1").Range("E44:J44").Value

Sheets("Fonctions").Range ("A7:F7") =tablo

avec mes excuses

Le 10/05/2007 à 09:29

Merci bcp michel ca marche super , une toute petite question , comment je peut fair pour applique ca sur plusieures pages style Parrain1,2,3,4........?????????????

sachant que Parrain1 c'est A7:F7

Parrain2 c'est A8:F8

et ainsi de suite.....

Merci