Copier dernière cellule mais formule!!!

G

Guest

Guest

• 8 Octobre 2009

• #2

Re : Copier dernière cellule mais formule!!!

Bonjour,

En supposant que tu veuilles coller la valeur en B2:

Code:

 Range("A1").End(xlDown).Copy
 Range("B2").PasteSpecial xlPasteValues
 Application.CutCopyMode = Fals

A+

 

Vote positif 0 Vote négatif

P

pic.sous

Guest

• 8 Octobre 2009

• #3

Re : Copier dernière cellule mais formule!!!

Merci Hasco,
pour ta réponse, tu as raison pour Range("A1").End(xlDown).Copy. je m'etais mal exprimé. Sorry!!!
En fait, mon probleme, c'est que dans ma colonne A, je n'ai que des formules avec des conditions, si la condition est respecté alors j'ai une valeur sinon c'est vide.
Quand je lance ma macro, pour copier ma dernière cellule non vide de ma colonne au lieu de me prendre celle avec la valeur, il me prend la derniere cellule contenant une formule.
Donc quand je copie ma valeur en B2 par exmple, bien entendu, j'ai un zero.
Tu vois mon point?

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 8 Octobre 2009

• #4

Re : Copier dernière cellule mais formule!!!

Re,

Si j'ai bien compris:

Code:

Sub copieValeur()
 Dim c As Range
 Set c = Range("A1").End(xlDown)
 Do While c.Row > 1 And c = ""
    Set c = c.Offset(-1)
 Loop
 c.Copy
 Range("B2") = c.Value
End Sub

Va remonter jusqu'à trouver une valeur dans la cellule.

A+

 

Vote positif 0 Vote négatif

P

pic.sous

Guest

• 8 Octobre 2009

• #5

Re : Copier dernière cellule mais formule!!!

Hasco,

J'ai essayé d'adapté le code que tu m'as transmis mais je n'y arrive pas trop.
Je t'envoi mon code source, peut-etre que ça peut etre plus parlant pour toi.

Merci

Sub test ()
Workbooks("Classeur1.xls").Activate
Sheets("feuil1").Select
Range("B65536").End(xlUp).Copy
Workbooks("Classeur2.xls").Activate
Sheets("Feuil1").Select
Range("H6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Workbooks("Classeur1.xls").Activate
On Error GoTo PlusTard

ActiveWorkbook.Save
ActiveWorkbook.Close

End sub

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 8 Octobre 2009

• #6

Re : Copier dernière cellule mais formule!!!

Re,

Je ne vois pas d'adaptation du code que je t'ai donné dans mon dernier message. Alors essaie de l'adapter et dis moi où cela bloque.

De plus, utilisise l'éditeur avancé des posts en clicquant sur le bouton 'Modif' et utilise la balise '#' (

Code:

) dans les boutons pour y mettre ton code.
 
A+

 

Vote positif 0 Vote négatif

P

pic.sous

Guest

• 8 Octobre 2009

• #7

Re : Copier dernière cellule mais formule!!!

Hasco à dit:

Re,

Je ne vois pas d'adaptation du code que je t'ai donné dans mon dernier message. Alors essaie de l'adapter et dis moi où cela bloque.

De plus, utilisise l'éditeur avancé des posts en clicquant sur le bouton 'Modif' et utilise la balise '#' (

Code:

) dans les boutons pour y mettre ton code.
 
A+[/QUOTE]

Hasco,
Je me suis precipité... je viens de le refaire en l'adaptant et il marche PERFECTO!
Merci bcp pour ton aide.
Tres bonne journée.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif