Copier valeure cellule erreur de syntaxe

Bonjour,

je zone depuis 2 jours sur les forums sans trouver de réponse à mon probleme.

j utilise une macro qui me permet de copier des cellules de la feuille 'stock' vers une autre feuille 'IPO-LPO' via un double clic sur la cellule colonne 'A' de la ligne que je souhaite exporter. cela fonctionne très bien.

par contre pour une des cellules copiées c est seulement sa valeur que je souhaite recupérer et non sa formule.

et je n arrive pas a modifier le code, j ai toujours une erreur de syntaxe

Range("G" & .Row).Copy Sheets("LPO-IPO").Range("I" & dlg).PasteSpecial Paste:=xlPasteValues

j ai essayé de nombreuses combinaisons mais j ai toujours l erreur.

merci pour votre aide

adrien

Bonjour,

Essaie soit :

Range("G" & .Row).Copy 
Sheets("LPO-IPO").Range("I" & dlg).PasteSpecial Paste:=xlPasteValues 'Sur une seconde ligne, et pas à la suite de la précédente

Soit :

Sheets("LPO-IPO").Range("I" & dlg).Value = Range("G" & .Row).Value 

Ps: ton ".Row" ne fonctionne que si tu te trouves dans une boucle "With" qui fait référence à un objet où cette propriété s'applique. Par exemple

With Sheets(1).Range("A1")
...
Range("G" & .Row).Copy 
...
End With

Bonjour Adrien, bonjour le forum,

Décompose la ligne en deux :

Range("G" & .Row).Copy
Sheets("LPO-IPO").Range("I" & dlg).PasteSpecial Paste:=xlPasteValues

Ne me demande pas pourquoi...

merci pour vos reponses rapides.

ca marche nickel !!

j ai encore es progres a faire !

Bonsoir Adrien, le forum,

oh la la ! y'a plein d'erreurs dans ton fichier !!! j'ai dû y changer plein d'choses !

1) Feuille "LPO-IPO"

* j'ai supprimé tes 2 règles de MFC inutiles

* j'ai refait les bordures correctement

2) Feuille "Stock"

* j'ai amélioré tes 3 règles de MFC

* j'ai refait les bordures correctement

* en G9, ton inversion de références de cellule ➯ triangle vert avec ce message d'erreur :

« La formule de cette cellule diffère des formules de cette zone de la feuille de calcul. » ;

c'est arrangé avec cette formule en G7 (recopiée vers le bas jusqu'en G113) :

=SI(ET(E7="";F7="");"";E7+F7)

3) Sub Worksheet_BeforeDoubleClick()

* attention : tu avais mis dlg As Integer ; ça doit être un Long

Dim dlg& : c'est idem que Dim dlg As Long

* ton copier / coller valeurs pour une seule cellule est inutile !

il suffit de faire cellule destination = cellule source !

* c'est tes copier / coller avec format qui détruisent les bordures correctes !

là aussi, inutile de faire un copier / coller pour une seule cellule :

il suffit de faire cellule destination = cellule source !

* tu copies A en D, donc P/N en MM : FAUX ! ça doit être A en E : P/N en Reference

* tu copies B en E, donc MM en Reference : FAUX ! ça doit être B en D : MM en MM

* j'ai écrit cette sub très différemment, avec corrections et optimisation.

voici ton fichier modifié :

Alt F11 pour voir le code VBA, puis revenir sur Excel

regarde la sub Worksheet_BeforeDoubleClick(), puis tes 3 modules.

à te lire pour avoir ton avis.

dhany