Copie de cellule

Ave Peponne31,

Au Québec, ta macro fonctionne parfaitement ;-)
(XL 2007, Windows XP)
Es-tu sûr que le nom de l'onglet est bien Devis1page ?

Serge

"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: D2EE2260-9C83-434A-8CBB-0925C23FEE5A@microsoft.com...

Bonjour,

Excel 2003

Je voudrais (en VBA) recopier le contenue d'une cellule (J3) dans une
autre
(J6)
Voici ce que j'ai trouvé mais cela ne fonctionne pas,
Sheets("Devis1page").Range("J3").Copy _
Destination:=Sheets("Devis1page").Range("J6")

Merci pour votre aide
Peponne31

Bonjour Garnote,

Merci pour ta réponse, longlet est bon, c' est peut-ètre dans son contexte
que ça ne va pas, j'ai rajouté cette ligne dans une procédure
je te la fais parvenir voi si tu peux me corriger.
Sub Réouvre1Devis(Fich)
'Met la date aujourdhui
ActiveSheet.Unprotect
Range("I12").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Value = ActiveCell.Value
'Transforme aujourdhui () en valeur
Range("date").Select
ActiveCell.Value = ActiveCell.Value
Dim Chemin As String, Ctr As Integer, Plage As Range, c As Range
Chemin = "C:FERRE Jean-Raimonddevis"
Ctr = 21
'Permet de contrôler si un N° de devis existe.
Err = 0
On Error Resume Next
Workbooks.Open Chemin & Fich & ".xls"
If Err = 1004 Then
Sheets("Devis1Page").Unprotect
zz_Clignote
Message = MsgBox("Ce N° de devis n'existe pas !", , "FERRE
Jean-Raimond")
Sheets("Devis1Page").Protect
Range("J3").Select
Selection.ClearContents
Range("J3").Activate
Sheets("Devis1page").Range("J3").Copy _ '--------voici ou je l'ai
rajouté------
Destination:=Sheets("Devis1page").Range("J6")


End If
Feuille = ActiveSheet.Name
With Workbooks("FERRE Jean-Raimond.xls").Sheets("Devis1page")
.Range("dnomcli1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dnomcli1")
.Range("numdevis1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("numdevis1")
.Range("code") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("code")
.Range("frue1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue1")
.Range("frue2") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue2")
.Range("fville") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("fville")
.Range("fcp") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("fcp")
.Range("téléphone") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("téléphone")
.Range("portable") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("portable")
.Range("fremise") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dremise")
.Range("B17") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("B17")
.Range("H4") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H4")
.Range("H5") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H5")
.Range("I51") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("I51")
Set Plage = Workbooks(Fich & ".xls").Sheets(Feuille).Range("A21:A50")
For Each c In Plage

.Range("A" & Ctr) = c.Value
.Range("F" & Ctr) = c.Offset(0, 1)
.Range("G" & Ctr) = c.Offset(0, 2)
.Range("H" & Ctr) = c.Offset(0, 3)
.Range("J" & Ctr) = c.Offset(0, 5)
Ctr = Ctr + 1

Next c

Workbooks(Fich & ".xls").Close False
ActiveSheet.Protect
End With
End Sub


"garnote" a écrit :

Ave Peponne31,

Au Québec, ta macro fonctionne parfaitement ;-)
(XL 2007, Windows XP)
Es-tu sûr que le nom de l'onglet est bien Devis1page ?

Serge

"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: D2EE2260-9C83-434A-8CBB-0925C23FEE5A@microsoft.com...
> Bonjour,
>
> Excel 2003
>
> Je voudrais (en VBA) recopier le contenue d'une cellule (J3) dans une
> autre
> (J6)
> Voici ce que j'ai trouvé mais cela ne fonctionne pas,
> Sheets("Devis1page").Range("J3").Copy _
> Destination:=Sheets("Devis1page").Range("J6")
>
> Merci pour votre aide
> Peponne31
>

Bonjour,

Et pourquoi pas simplement :

Range("J6").Value=Range("J3").Value

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

Peponne31 a écrit :

Bonjour Garnote,

Merci pour ta réponse, longlet est bon, c' est peut-ètre dans son contexte
que ça ne va pas, j'ai rajouté cette ligne dans une procédure
je te la fais parvenir voi si tu peux me corriger.
Sub Réouvre1Devis(Fich)
'Met la date aujourdhui
ActiveSheet.Unprotect
Range("I12").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Value = ActiveCell.Value
'Transforme aujourdhui () en valeur
Range("date").Select
ActiveCell.Value = ActiveCell.Value
Dim Chemin As String, Ctr As Integer, Plage As Range, c As Range
Chemin = "C:FERRE Jean-Raimonddevis"
Ctr = 21
'Permet de contrôler si un N° de devis existe.
Err = 0
On Error Resume Next
Workbooks.Open Chemin & Fich & ".xls"
If Err = 1004 Then
Sheets("Devis1Page").Unprotect
zz_Clignote
Message = MsgBox("Ce N° de devis n'existe pas !", , "FERRE
Jean-Raimond")
Sheets("Devis1Page").Protect
Range("J3").Select
Selection.ClearContents
Range("J3").Activate
Sheets("Devis1page").Range("J3").Copy _ '--------voici ou je l'ai
rajouté------
Destination:=Sheets("Devis1page").Range("J6")


End If
Feuille = ActiveSheet.Name
With Workbooks("FERRE Jean-Raimond.xls").Sheets("Devis1page")
.Range("dnomcli1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dnomcli1")
.Range("numdevis1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("numdevis1")
.Range("code") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("code")
.Range("frue1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue1")
.Range("frue2") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue2")
.Range("fville") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("fville")
.Range("fcp") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("fcp")
.Range("téléphone") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("téléphone")
.Range("portable") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("portable")
.Range("fremise") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dremise")
.Range("B17") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("B17")
.Range("H4") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H4")
.Range("H5") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H5")
.Range("I51") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("I51")
Set Plage = Workbooks(Fich & ".xls").Sheets(Feuille).Range("A21:A50")
For Each c In Plage

.Range("A" & Ctr) = c.Value
.Range("F" & Ctr) = c.Offset(0, 1)
.Range("G" & Ctr) = c.Offset(0, 2)
.Range("H" & Ctr) = c.Offset(0, 3)
.Range("J" & Ctr) = c.Offset(0, 5)
Ctr = Ctr + 1

Next c

Workbooks(Fich & ".xls").Close False
ActiveSheet.Protect
End With
End Sub


"garnote" a écrit :

Ave Peponne31,

Au Québec, ta macro fonctionne parfaitement ;-)
(XL 2007, Windows XP)
Es-tu sûr que le nom de l'onglet est bien Devis1page ?

Serge

"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: D2EE2260-9C83-434A-8CBB-0925C23FEE5A@microsoft.com...

Bonjour,

Excel 2003

Je voudrais (en VBA) recopier le contenue d'une cellule (J3) dans une
autre
(J6)
Voici ce que j'ai trouvé mais cela ne fonctionne pas,
Sheets("Devis1page").Range("J3").Copy _
Destination:=Sheets("Devis1page").Range("J6")

Merci pour votre aide
Peponne31

Re

ça fonctionne , en fait j'ai redémarrer le programme et je n'ai plus de
souçis.
Merci encore et bonne fin de soirée
Peponne31

"garnote" a écrit :

Ave Peponne31,

Au Québec, ta macro fonctionne parfaitement ;-)
(XL 2007, Windows XP)
Es-tu sûr que le nom de l'onglet est bien Devis1page ?

Serge

"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: D2EE2260-9C83-434A-8CBB-0925C23FEE5A@microsoft.com...
> Bonjour,
>
> Excel 2003
>
> Je voudrais (en VBA) recopier le contenue d'une cellule (J3) dans une
> autre
> (J6)
> Voici ce que j'ai trouvé mais cela ne fonctionne pas,
> Sheets("Devis1page").Range("J3").Copy _
> Destination:=Sheets("Devis1page").Range("J6")
>
> Merci pour votre aide
> Peponne31
>

Bonjour,

Excel 2003
Dans un formulaire, je voudrais recopier le contenue d'une cellule dans
une autre J3 dans J6 tout en sachant que lor de l'enregistrement
du formulaire le contenu de ces cellules va ètre effacé et je n'arrive pas
à trouver une formule qui puisse me le faire.
Si quelqu'un peut me renseigner
merci par avance
Peponne31

"FS" a écrit :

Bonjour,

Et pourquoi pas simplement :

Range("J6").Value=Range("J3").Value

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

Peponne31 a écrit :
> Bonjour Garnote,
>
> Merci pour ta réponse, longlet est bon, c' est peut-ètre dans son contexte
> que ça ne va pas, j'ai rajouté cette ligne dans une procédure
> je te la fais parvenir voi si tu peux me corriger.
> Sub Réouvre1Devis(Fich)
> 'Met la date aujourdhui
> ActiveSheet.Unprotect
> Range("I12").Select
> ActiveCell.FormulaR1C1 = "=TODAY()"
> ActiveCell.Value = ActiveCell.Value
> 'Transforme aujourdhui () en valeur
> Range("date").Select
> ActiveCell.Value = ActiveCell.Value
> Dim Chemin As String, Ctr As Integer, Plage As Range, c As Range
> Chemin = "C:FERRE Jean-Raimonddevis"
> Ctr = 21
> 'Permet de contrôler si un N° de devis existe.
> Err = 0
> On Error Resume Next
> Workbooks.Open Chemin & Fich & ".xls"
> If Err = 1004 Then
> Sheets("Devis1Page").Unprotect
> zz_Clignote
> Message = MsgBox("Ce N° de devis n'existe pas !", , "FERRE
> Jean-Raimond")
> Sheets("Devis1Page").Protect
> Range("J3").Select
> Selection.ClearContents
> Range("J3").Activate
> Sheets("Devis1page").Range("J3").Copy _ '--------voici ou je l'ai
> rajouté------
> Destination:=Sheets("Devis1page").Range("J6")
>
>
> End If
> Feuille = ActiveSheet.Name
> With Workbooks("FERRE Jean-Raimond.xls").Sheets("Devis1page")
> .Range("dnomcli1") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("dnomcli1")
> .Range("numdevis1") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("numdevis1")
> .Range("code") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("code")
> .Range("frue1") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("frue1")
> .Range("frue2") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("frue2")
> .Range("fville") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("fville")
> .Range("fcp") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("fcp")
> .Range("téléphone") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("téléphone")
> .Range("portable") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("portable")
> .Range("fremise") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("dremise")
> .Range("B17") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("B17")
> .Range("H4") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H4")
> .Range("H5") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H5")
> .Range("I51") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("I51")
> Set Plage = Workbooks(Fich & ".xls").Sheets(Feuille).Range("A21:A50")
> For Each c In Plage
>
> .Range("A" & Ctr) = c.Value
> .Range("F" & Ctr) = c.Offset(0, 1)
> .Range("G" & Ctr) = c.Offset(0, 2)
> .Range("H" & Ctr) = c.Offset(0, 3)
> .Range("J" & Ctr) = c.Offset(0, 5)
> Ctr = Ctr + 1
>
> Next c
>
> Workbooks(Fich & ".xls").Close False
> ActiveSheet.Protect
> End With
> End Sub
>
>
> "garnote" a écrit :
>
>> Ave Peponne31,
>>
>> Au Québec, ta macro fonctionne parfaitement ;-)
>> (XL 2007, Windows XP)
>> Es-tu sûr que le nom de l'onglet est bien Devis1page ?
>>
>> Serge
>>
>> "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
>> news: D2EE2260-9C83-434A-8CBB-0925C23FEE5A@microsoft.com...
>>> Bonjour,
>>>
>>> Excel 2003
>>>
>>> Je voudrais (en VBA) recopier le contenue d'une cellule (J3) dans une
>>> autre
>>> (J6)
>>> Voici ce que j'ai trouvé mais cela ne fonctionne pas,
>>> Sheets("Devis1page").Range("J3").Copy _
>>> Destination:=Sheets("Devis1page").Range("J6")
>>>
>>> Merci pour votre aide
>>> Peponne31
>>>
>>
>>

Bonjour FS

Merci de ton conseil, J'ai avancé un peu, dans le formulaire je peux
retranscrire
l'en tète, et la 1 ligne de mon devis, au delà ca plante.
Merci
Peponne31
"FS" a écrit :

Bonjour,

Et pourquoi pas simplement :

Range("J6").Value=Range("J3").Value

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

Peponne31 a écrit :
> Bonjour Garnote,
>
> Merci pour ta réponse, longlet est bon, c' est peut-ètre dans son contexte
> que ça ne va pas, j'ai rajouté cette ligne dans une procédure
> je te la fais parvenir voi si tu peux me corriger.
> Sub Réouvre1Devis(Fich)
> 'Met la date aujourdhui
> ActiveSheet.Unprotect
> Range("I12").Select
> ActiveCell.FormulaR1C1 = "=TODAY()"
> ActiveCell.Value = ActiveCell.Value
> 'Transforme aujourdhui () en valeur
> Range("date").Select
> ActiveCell.Value = ActiveCell.Value
> Dim Chemin As String, Ctr As Integer, Plage As Range, c As Range
> Chemin = "C:FERRE Jean-Raimonddevis"
> Ctr = 21
> 'Permet de contrôler si un N° de devis existe.
> Err = 0
> On Error Resume Next
> Workbooks.Open Chemin & Fich & ".xls"
> If Err = 1004 Then
> Sheets("Devis1Page").Unprotect
> zz_Clignote
> Message = MsgBox("Ce N° de devis n'existe pas !", , "FERRE
> Jean-Raimond")
> Sheets("Devis1Page").Protect
> Range("J3").Select
> Selection.ClearContents
> Range("J3").Activate
> Sheets("Devis1page").Range("J3").Copy _ '--------voici ou je l'ai
> rajouté------
> Destination:=Sheets("Devis1page").Range("J6")
>
>
> End If
> Feuille = ActiveSheet.Name
> With Workbooks("FERRE Jean-Raimond.xls").Sheets("Devis1page")
> .Range("dnomcli1") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("dnomcli1")
> .Range("numdevis1") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("numdevis1")
> .Range("code") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("code")
> .Range("frue1") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("frue1")
> .Range("frue2") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("frue2")
> .Range("fville") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("fville")
> .Range("fcp") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("fcp")
> .Range("téléphone") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("téléphone")
> .Range("portable") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("portable")
> .Range("fremise") = Workbooks(Fich &
> ".xls").Sheets(Feuille).Range("dremise")
> .Range("B17") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("B17")
> .Range("H4") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H4")
> .Range("H5") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H5")
> .Range("I51") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("I51")
> Set Plage = Workbooks(Fich & ".xls").Sheets(Feuille).Range("A21:A50")
> For Each c In Plage
>
> .Range("A" & Ctr) = c.Value
> .Range("F" & Ctr) = c.Offset(0, 1)
> .Range("G" & Ctr) = c.Offset(0, 2)
> .Range("H" & Ctr) = c.Offset(0, 3)
> .Range("J" & Ctr) = c.Offset(0, 5)
> Ctr = Ctr + 1
>
> Next c
>
> Workbooks(Fich & ".xls").Close False
> ActiveSheet.Protect
> End With
> End Sub
>
>
> "garnote" a écrit :
>
>> Ave Peponne31,
>>
>> Au Québec, ta macro fonctionne parfaitement ;-)
>> (XL 2007, Windows XP)
>> Es-tu sûr que le nom de l'onglet est bien Devis1page ?
>>
>> Serge
>>
>> "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
>> news: D2EE2260-9C83-434A-8CBB-0925C23FEE5A@microsoft.com...
>>> Bonjour,
>>>
>>> Excel 2003
>>>
>>> Je voudrais (en VBA) recopier le contenue d'une cellule (J3) dans une
>>> autre
>>> (J6)
>>> Voici ce que j'ai trouvé mais cela ne fonctionne pas,
>>> Sheets("Devis1page").Range("J3").Copy _
>>> Destination:=Sheets("Devis1page").Range("J6")
>>>
>>> Merci pour votre aide
>>> Peponne31
>>>
>>
>>