Copier dernière cellule mais formule!!!

[pic.sous]

Bonjour à tous,
J'en appelle à votre aide.
Je veux en effet copier la dernière cellule d'une colonne. Jusque là rien d'extraordinaire : Range("A1").End(xlDown).Select.)
Le problème c'est que dans cette colonne, je n'ai que des formules du type : SI($D19="";"";$C19&$AF19)
Finalement au lieu de prendre la dernière cellule avec une valeur, il me prend la dernière cellule avec une formule.
Pouvez-vous m'aider à contourner ce point?
Merci beaucoup et d'avance.
Pic.

 

[Guest]

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

Bonjour,

En supposant que tu veuilles coller la valeur en B2:

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

A+

 

[pic.sous]

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?

 

[Guest]

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

Re,

Si j'ai bien compris:

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+

 

[pic.sous]

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

 

[Guest]

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 '#' (

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

 

[pic.sous]

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 '#' (

) 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.