Bonjour
Mon fichier comporte trois feuilles ( Total, Jacky et Minou)
Je sélectionne la feuille Jacky et je copie la valeur d'une cel dans une
autre.
-----
Sheets("Jacky").Select
Range("G10").Select
Selection.Copy
Range("I10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.CutCopyMode = False
------------
Jusque là, tout va bien.
Maintenant, je veux sélectionner la feuille "Minou" et y faire la même
chose.
Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me cale
sur la phrase "range("K10").select.
-----------
J'ai essayé avec l'enregistreur de macro, et celui-ci ne me resélectionne
pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky.
------------
J'en ai conclu qu'il ne sait pas sur quelle feuille il est.
Pouvez-vous éclairer ma lanterne, svp?
Un grand merci et bonne journée à tous
-
Jacquouille conseille : http://www.excelabo.net
Salut Jacquouille, Evite si c'est possible de sélectionner à chaque fois car ça marche très bien sans :
Sub CopierColler() With Worksheets("Jacky") .Range("G10").Copy .Range("I10").PasteSpecial End With Worksheets("Minou").Range("I10").PasteSpecial Application.CutCopyMode = False End Sub
Hervé.
"Jacquouille" a écrit dans le message news:
Bonjour Mon fichier comporte trois feuilles ( Total, Jacky et Minou) Je sélectionne la feuille Jacky et je copie la valeur d'une cel dans une autre. ----- Sheets("Jacky").Select Range("G10").Select Selection.Copy Range("I10").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: > _
False, Transpose:úlse Application.CutCopyMode = False ------------ Jusque là, tout va bien. Maintenant, je veux sélectionner la feuille "Minou" et y faire la même chose. Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me cale
sur la phrase "range("K10").select. ----------- J'ai essayé avec l'enregistreur de macro, et celui-ci ne me resélectionne pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky. ------------ J'en ai conclu qu'il ne sait pas sur quelle feuille il est. Pouvez-vous éclairer ma lanterne, svp? Un grand merci et bonne journée à tous - Jacquouille conseille : http://www.excelabo.net
Salut Jacquouille,
Evite si c'est possible de sélectionner à chaque fois car ça marche très
bien sans :
Sub CopierColler()
With Worksheets("Jacky")
.Range("G10").Copy
.Range("I10").PasteSpecial
End With
Worksheets("Minou").Range("I10").PasteSpecial
Application.CutCopyMode = False
End Sub
Hervé.
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message news:
OHkonlikDHA.2060@tk2msftngp13.phx.gbl...
Bonjour
Mon fichier comporte trois feuilles ( Total, Jacky et Minou)
Je sélectionne la feuille Jacky et je copie la valeur d'une cel dans une
autre.
-----
Sheets("Jacky").Select
Range("G10").Select
Selection.Copy
Range("I10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > _
False, Transpose:úlse
Application.CutCopyMode = False
------------
Jusque là, tout va bien.
Maintenant, je veux sélectionner la feuille "Minou" et y faire la même
chose.
Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me
cale
sur la phrase "range("K10").select.
-----------
J'ai essayé avec l'enregistreur de macro, et celui-ci ne me resélectionne
pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky.
------------
J'en ai conclu qu'il ne sait pas sur quelle feuille il est.
Pouvez-vous éclairer ma lanterne, svp?
Un grand merci et bonne journée à tous
-
Jacquouille conseille : http://www.excelabo.net
Salut Jacquouille, Evite si c'est possible de sélectionner à chaque fois car ça marche très bien sans :
Sub CopierColler() With Worksheets("Jacky") .Range("G10").Copy .Range("I10").PasteSpecial End With Worksheets("Minou").Range("I10").PasteSpecial Application.CutCopyMode = False End Sub
Hervé.
"Jacquouille" a écrit dans le message news:
Bonjour Mon fichier comporte trois feuilles ( Total, Jacky et Minou) Je sélectionne la feuille Jacky et je copie la valeur d'une cel dans une autre. ----- Sheets("Jacky").Select Range("G10").Select Selection.Copy Range("I10").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: > _
False, Transpose:úlse Application.CutCopyMode = False ------------ Jusque là, tout va bien. Maintenant, je veux sélectionner la feuille "Minou" et y faire la même chose. Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me cale
sur la phrase "range("K10").select. ----------- J'ai essayé avec l'enregistreur de macro, et celui-ci ne me resélectionne pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky. ------------ J'en ai conclu qu'il ne sait pas sur quelle feuille il est. Pouvez-vous éclairer ma lanterne, svp? Un grand merci et bonne journée à tous - Jacquouille conseille : http://www.excelabo.net
Marcel Narchi
-----Message d'origine----- Bonjour Mon fichier comporte trois feuilles ( Total, Jacky et Minou)
Je sélectionne la feuille Jacky et je copie la valeur d'une cel dans une
_ False, Transpose:úlse Application.CutCopyMode = False ------------ Jusque là, tout va bien. Maintenant, je veux sélectionner la feuille "Minou" et y faire la même
chose. Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me cale
sur la phrase "range("K10").select. ----------- J'ai essayé avec l'enregistreur de macro, et celui-ci ne me resélectionne
pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky.
------------ J'en ai conclu qu'il ne sait pas sur quelle feuille il est.
Pouvez-vous éclairer ma lanterne, svp? Un grand merci et bonne journée à tous - Jacquouille conseille : http://www.excelabo.net
.
vous pouvez essayer :
With Sheets("Jacky") .Range("K10")=Range("I10") cellule destinationÎllule source End With
c'est mieux que le copier coller
-----Message d'origine-----
Bonjour
Mon fichier comporte trois feuilles ( Total, Jacky et
Minou)
Je sélectionne la feuille Jacky et je copie la valeur
d'une cel dans une
_
False, Transpose:=False
Application.CutCopyMode = False
------------
Jusque là, tout va bien.
Maintenant, je veux sélectionner la feuille "Minou" et y
faire la même
chose.
Je reprends mot à mot la même phraséologie, mais il n'en
veut pas et me cale
sur la phrase "range("K10").select.
-----------
J'ai essayé avec l'enregistreur de macro, et celui-ci ne
me resélectionne
pas la feuille Minou, ni ne me désélectionne pas la
feuille Jacky.
------------
J'en ai conclu qu'il ne sait pas sur quelle feuille il
est.
Pouvez-vous éclairer ma lanterne, svp?
Un grand merci et bonne journée à tous
-
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
.
vous pouvez essayer :
With Sheets("Jacky")
.Range("K10")=Range("I10") cellule destination=cellule
source
End With
_ False, Transpose:úlse Application.CutCopyMode = False ------------ Jusque là, tout va bien. Maintenant, je veux sélectionner la feuille "Minou" et y faire la même
chose. Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me cale
sur la phrase "range("K10").select. ----------- J'ai essayé avec l'enregistreur de macro, et celui-ci ne me resélectionne
pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky.
------------ J'en ai conclu qu'il ne sait pas sur quelle feuille il est.
Pouvez-vous éclairer ma lanterne, svp? Un grand merci et bonne journée à tous - Jacquouille conseille : http://www.excelabo.net
.
vous pouvez essayer :
With Sheets("Jacky") .Range("K10")=Range("I10") cellule destinationÎllule source End With
corrigez l'emplacement des points(.), faute de frappe!!!!
ru-th
Salut Jacquouille
pourquoi ne pas faire sheets("Jacky").range("i10").value=sheets("Jacky").range("g10").value sheets("Minou").range("k10").value=sheets("Minou").range("g10").value
a+ rural thierry
"Jacquouille" a écrit dans le message de news:
Bonjour Mon fichier comporte trois feuilles ( Total, Jacky et Minou) Je sélectionne la feuille Jacky et je copie la valeur d'une cel dans une autre. ----- Sheets("Jacky").Select Range("G10").Select Selection.Copy Range("I10").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: > _
False, Transpose:úlse Application.CutCopyMode = False ------------ Jusque là, tout va bien. Maintenant, je veux sélectionner la feuille "Minou" et y faire la même chose. Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me cale
sur la phrase "range("K10").select. ----------- J'ai essayé avec l'enregistreur de macro, et celui-ci ne me resélectionne pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky. ------------ J'en ai conclu qu'il ne sait pas sur quelle feuille il est. Pouvez-vous éclairer ma lanterne, svp? Un grand merci et bonne journée à tous - Jacquouille conseille : http://www.excelabo.net
Salut Jacquouille
pourquoi ne pas faire
sheets("Jacky").range("i10").value=sheets("Jacky").range("g10").value
sheets("Minou").range("k10").value=sheets("Minou").range("g10").value
a+
rural thierry
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: OHkonlikDHA.2060@tk2msftngp13.phx.gbl...
Bonjour
Mon fichier comporte trois feuilles ( Total, Jacky et Minou)
Je sélectionne la feuille Jacky et je copie la valeur d'une cel dans une
autre.
-----
Sheets("Jacky").Select
Range("G10").Select
Selection.Copy
Range("I10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > _
False, Transpose:úlse
Application.CutCopyMode = False
------------
Jusque là, tout va bien.
Maintenant, je veux sélectionner la feuille "Minou" et y faire la même
chose.
Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me
cale
sur la phrase "range("K10").select.
-----------
J'ai essayé avec l'enregistreur de macro, et celui-ci ne me resélectionne
pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky.
------------
J'en ai conclu qu'il ne sait pas sur quelle feuille il est.
Pouvez-vous éclairer ma lanterne, svp?
Un grand merci et bonne journée à tous
-
Jacquouille conseille : http://www.excelabo.net
pourquoi ne pas faire sheets("Jacky").range("i10").value=sheets("Jacky").range("g10").value sheets("Minou").range("k10").value=sheets("Minou").range("g10").value
a+ rural thierry
"Jacquouille" a écrit dans le message de news:
Bonjour Mon fichier comporte trois feuilles ( Total, Jacky et Minou) Je sélectionne la feuille Jacky et je copie la valeur d'une cel dans une autre. ----- Sheets("Jacky").Select Range("G10").Select Selection.Copy Range("I10").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: > _
False, Transpose:úlse Application.CutCopyMode = False ------------ Jusque là, tout va bien. Maintenant, je veux sélectionner la feuille "Minou" et y faire la même chose. Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me cale
sur la phrase "range("K10").select. ----------- J'ai essayé avec l'enregistreur de macro, et celui-ci ne me resélectionne pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky. ------------ J'en ai conclu qu'il ne sait pas sur quelle feuille il est. Pouvez-vous éclairer ma lanterne, svp? Un grand merci et bonne journée à tous - Jacquouille conseille : http://www.excelabo.net
Modeste
Bonjour Jacky, (Fan de Brel je suppose ;-)))
peut etre en essayant ceci :
Option Base 1 '-- instruction ci-dessus est à préciser en début de module Sub jacquouille() mesfeuilles = Array("TOTAL", "JACKY", "MINOU") For i = 1 To 3 Sheets(mesfeuilles(i)).Select '=== ici j'ai repris ton code Range("G10").Select Selection.Copy Range("I10").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse Application.CutCopyMode = False '=== fin du code à jacky ! Next
End Sub
@+ NB:>Jacquouille conseille : http://www.excelabo.net ---------------------------------------------- Conseiller, c'est presque aider ...... Qui monet quasi adjuvat. Plaute 254-184 av. J.-C. (Titus Maccius Plautus)
Bonjour Jacky,
(Fan de Brel je suppose ;-)))
peut etre en essayant ceci :
Option Base 1
'-- instruction ci-dessus est à préciser en début de
module
Sub jacquouille()
mesfeuilles = Array("TOTAL", "JACKY", "MINOU")
For i = 1 To 3
Sheets(mesfeuilles(i)).Select
'=== ici j'ai repris ton code
Range("G10").Select
Selection.Copy
Range("I10").Select
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'=== fin du code à jacky !
Next
End Sub
@+
NB:>Jacquouille conseille : http://www.excelabo.net
----------------------------------------------
Conseiller, c'est presque aider
...... Qui monet quasi adjuvat.
Plaute 254-184 av. J.-C. (Titus Maccius Plautus)
Option Base 1 '-- instruction ci-dessus est à préciser en début de module Sub jacquouille() mesfeuilles = Array("TOTAL", "JACKY", "MINOU") For i = 1 To 3 Sheets(mesfeuilles(i)).Select '=== ici j'ai repris ton code Range("G10").Select Selection.Copy Range("I10").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse Application.CutCopyMode = False '=== fin du code à jacky ! Next
End Sub
@+ NB:>Jacquouille conseille : http://www.excelabo.net ---------------------------------------------- Conseiller, c'est presque aider ...... Qui monet quasi adjuvat. Plaute 254-184 av. J.-C. (Titus Maccius Plautus)
AV
Ave Secrétaire (qui assure pas tellement ces temps ci !)
Pour faire concis : un petit coup d'Evaluate avec des références 3d :
pourquoi ne pas faire sheets("Jacky").range("i10").value=sheets("Jacky").range("g10").value sheets("Minou").range("k10").value=sheets("Minou").range("g10").value
a+ rural thierry
"Jacquouille" a écrit dans le message de news:
Bonjour Mon fichier comporte trois feuilles ( Total, Jacky et Minou) Je sélectionne la feuille Jacky et je copie la valeur d'une cel dans une autre. ----- Sheets("Jacky").Select Range("G10").Select Selection.Copy Range("I10").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: > > _
False, Transpose:úlse Application.CutCopyMode = False ------------ Jusque là, tout va bien. Maintenant, je veux sélectionner la feuille "Minou" et y faire la même chose. Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me cale
sur la phrase "range("K10").select. ----------- J'ai essayé avec l'enregistreur de macro, et celui-ci ne me resélectionne
pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky. ------------ J'en ai conclu qu'il ne sait pas sur quelle feuille il est. Pouvez-vous éclairer ma lanterne, svp? Un grand merci et bonne journée à tous - Jacquouille conseille : http://www.excelabo.net
Ah, mon Père
Ce sont toujours les histoires les plus courtes qui sont les meilleures
Un grand merci
NoSpam_j.thiernesse@skynet.be
"ru-th" <ailleurs@nowhere> a écrit dans le message news:
u8blcAjkDHA.2416@TK2MSFTNGP10.phx.gbl...
Salut Jacquouille
pourquoi ne pas faire
sheets("Jacky").range("i10").value=sheets("Jacky").range("g10").value
sheets("Minou").range("k10").value=sheets("Minou").range("g10").value
a+
rural thierry
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: OHkonlikDHA.2060@tk2msftngp13.phx.gbl...
Bonjour
Mon fichier comporte trois feuilles ( Total, Jacky et Minou)
Je sélectionne la feuille Jacky et je copie la valeur d'une cel dans une
autre.
-----
Sheets("Jacky").Select
Range("G10").Select
Selection.Copy
Range("I10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > > _
False, Transpose:úlse
Application.CutCopyMode = False
------------
Jusque là, tout va bien.
Maintenant, je veux sélectionner la feuille "Minou" et y faire la même
chose.
Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me
cale
sur la phrase "range("K10").select.
-----------
J'ai essayé avec l'enregistreur de macro, et celui-ci ne me
resélectionne
pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky.
------------
J'en ai conclu qu'il ne sait pas sur quelle feuille il est.
Pouvez-vous éclairer ma lanterne, svp?
Un grand merci et bonne journée à tous
-
Jacquouille conseille : http://www.excelabo.net
pourquoi ne pas faire sheets("Jacky").range("i10").value=sheets("Jacky").range("g10").value sheets("Minou").range("k10").value=sheets("Minou").range("g10").value
a+ rural thierry
"Jacquouille" a écrit dans le message de news:
Bonjour Mon fichier comporte trois feuilles ( Total, Jacky et Minou) Je sélectionne la feuille Jacky et je copie la valeur d'une cel dans une autre. ----- Sheets("Jacky").Select Range("G10").Select Selection.Copy Range("I10").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: > > _
False, Transpose:úlse Application.CutCopyMode = False ------------ Jusque là, tout va bien. Maintenant, je veux sélectionner la feuille "Minou" et y faire la même chose. Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me cale
sur la phrase "range("K10").select. ----------- J'ai essayé avec l'enregistreur de macro, et celui-ci ne me resélectionne
pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky. ------------ J'en ai conclu qu'il ne sait pas sur quelle feuille il est. Pouvez-vous éclairer ma lanterne, svp? Un grand merci et bonne journée à tous - Jacquouille conseille : http://www.excelabo.net
Jacquouille
Bonjour Hervé Je prends bonne note de ce truc with ... Merci et bonne journée
Salut Jacquouille, Evite si c'est possible de sélectionner à chaque fois car ça marche très bien sans :
Sub CopierColler() With Worksheets("Jacky") .Range("G10").Copy .Range("I10").PasteSpecial End With Worksheets("Minou").Range("I10").PasteSpecial Application.CutCopyMode = False End Sub
Hervé.
"Jacquouille" a écrit dans le message news:
Bonjour Mon fichier comporte trois feuilles ( Total, Jacky et Minou) Je sélectionne la feuille Jacky et je copie la valeur d'une cel dans une autre. ----- Sheets("Jacky").Select Range("G10").Select Selection.Copy Range("I10").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: > > _
False, Transpose:úlse Application.CutCopyMode = False ------------ Jusque là, tout va bien. Maintenant, je veux sélectionner la feuille "Minou" et y faire la même chose. Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me cale
sur la phrase "range("K10").select. ----------- J'ai essayé avec l'enregistreur de macro, et celui-ci ne me resélectionne
pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky. ------------ J'en ai conclu qu'il ne sait pas sur quelle feuille il est. Pouvez-vous éclairer ma lanterne, svp? Un grand merci et bonne journée à tous - Jacquouille conseille : http://www.excelabo.net
Bonjour Hervé
Je prends bonne note de ce truc with ...
Merci et bonne journée
NoSpam_j.thiernesse@skynet.be
"Hervé" <hmsilve@wanadoo.fr> a écrit dans le message news:
etT$f#ikDHA.2772@TK2MSFTNGP10.phx.gbl...
Salut Jacquouille,
Evite si c'est possible de sélectionner à chaque fois car ça marche très
bien sans :
Sub CopierColler()
With Worksheets("Jacky")
.Range("G10").Copy
.Range("I10").PasteSpecial
End With
Worksheets("Minou").Range("I10").PasteSpecial
Application.CutCopyMode = False
End Sub
Hervé.
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message
news:
OHkonlikDHA.2060@tk2msftngp13.phx.gbl...
Bonjour
Mon fichier comporte trois feuilles ( Total, Jacky et Minou)
Je sélectionne la feuille Jacky et je copie la valeur d'une cel dans une
autre.
-----
Sheets("Jacky").Select
Range("G10").Select
Selection.Copy
Range("I10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > > _
False, Transpose:úlse
Application.CutCopyMode = False
------------
Jusque là, tout va bien.
Maintenant, je veux sélectionner la feuille "Minou" et y faire la même
chose.
Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me
cale
sur la phrase "range("K10").select.
-----------
J'ai essayé avec l'enregistreur de macro, et celui-ci ne me
resélectionne
pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky.
------------
J'en ai conclu qu'il ne sait pas sur quelle feuille il est.
Pouvez-vous éclairer ma lanterne, svp?
Un grand merci et bonne journée à tous
-
Jacquouille conseille : http://www.excelabo.net
Salut Jacquouille, Evite si c'est possible de sélectionner à chaque fois car ça marche très bien sans :
Sub CopierColler() With Worksheets("Jacky") .Range("G10").Copy .Range("I10").PasteSpecial End With Worksheets("Minou").Range("I10").PasteSpecial Application.CutCopyMode = False End Sub
Hervé.
"Jacquouille" a écrit dans le message news:
Bonjour Mon fichier comporte trois feuilles ( Total, Jacky et Minou) Je sélectionne la feuille Jacky et je copie la valeur d'une cel dans une autre. ----- Sheets("Jacky").Select Range("G10").Select Selection.Copy Range("I10").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: > > _
False, Transpose:úlse Application.CutCopyMode = False ------------ Jusque là, tout va bien. Maintenant, je veux sélectionner la feuille "Minou" et y faire la même chose. Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me cale
sur la phrase "range("K10").select. ----------- J'ai essayé avec l'enregistreur de macro, et celui-ci ne me resélectionne
pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky. ------------ J'en ai conclu qu'il ne sait pas sur quelle feuille il est. Pouvez-vous éclairer ma lanterne, svp? Un grand merci et bonne journée à tous - Jacquouille conseille : http://www.excelabo.net
Jacquouille
Bonjour Marcel C'est presque comme celle de notre Père, mais avec du with. Quant à l'histoire des points, je me suis permis d'en enlever du bulletin. Merci pour la promptitude à répondre. Bonne fin de journée.
False, Transpose:úlse Application.CutCopyMode = False ------------ Jusque là, tout va bien. Maintenant, je veux sélectionner la feuille "Minou" et y faire la même
chose. Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me cale
sur la phrase "range("K10").select. ----------- J'ai essayé avec l'enregistreur de macro, et celui-ci ne me resélectionne
pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky.
------------ J'en ai conclu qu'il ne sait pas sur quelle feuille il est.
Pouvez-vous éclairer ma lanterne, svp? Un grand merci et bonne journée à tous - Jacquouille conseille : http://www.excelabo.net
.
vous pouvez essayer :
With Sheets("Jacky") .Range("K10")=Range("I10") cellule destinationÎllule source End With
c'est mieux que le copier coller
Bonjour Marcel
C'est presque comme celle de notre Père, mais avec du with. Quant à
l'histoire des points, je me suis permis d'en enlever du bulletin.
Merci pour la promptitude à répondre.
Bonne fin de journée.
False, Transpose:úlse
Application.CutCopyMode = False
------------
Jusque là, tout va bien.
Maintenant, je veux sélectionner la feuille "Minou" et y
faire la même
chose.
Je reprends mot à mot la même phraséologie, mais il n'en
veut pas et me cale
sur la phrase "range("K10").select.
-----------
J'ai essayé avec l'enregistreur de macro, et celui-ci ne
me resélectionne
pas la feuille Minou, ni ne me désélectionne pas la
feuille Jacky.
------------
J'en ai conclu qu'il ne sait pas sur quelle feuille il
est.
Pouvez-vous éclairer ma lanterne, svp?
Un grand merci et bonne journée à tous
-
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
.
vous pouvez essayer :
With Sheets("Jacky")
.Range("K10")=Range("I10") cellule destinationÎllule
source
End With
Bonjour Marcel C'est presque comme celle de notre Père, mais avec du with. Quant à l'histoire des points, je me suis permis d'en enlever du bulletin. Merci pour la promptitude à répondre. Bonne fin de journée.
False, Transpose:úlse Application.CutCopyMode = False ------------ Jusque là, tout va bien. Maintenant, je veux sélectionner la feuille "Minou" et y faire la même
chose. Je reprends mot à mot la même phraséologie, mais il n'en veut pas et me cale
sur la phrase "range("K10").select. ----------- J'ai essayé avec l'enregistreur de macro, et celui-ci ne me resélectionne
pas la feuille Minou, ni ne me désélectionne pas la feuille Jacky.
------------ J'en ai conclu qu'il ne sait pas sur quelle feuille il est.
Pouvez-vous éclairer ma lanterne, svp? Un grand merci et bonne journée à tous - Jacquouille conseille : http://www.excelabo.net
.
vous pouvez essayer :
With Sheets("Jacky") .Range("K10")=Range("I10") cellule destinationÎllule source End With
c'est mieux que le copier coller
Jacquouille
Bonjour Gilbert Ta procédure est bien, mais elle copie la même cel dans les 3 feuilles. Je ne sais si je me suis mal exprimé ou si tu as mal compris ... Nous mettrons cela sur le compte des ans ( à tous deux) Merci pour ton clin d'oeil à ma signature, mais je n'ai rien trouvé qui réponde à ma question. Une bonne fin de journée et bise à madame.
"Modeste" a écrit dans le message news: 111901c39231$baa8e6f0$ Bonjour Jacky, (Fan de Brel je suppose ;-)))
peut etre en essayant ceci :
Option Base 1 '-- instruction ci-dessus est à préciser en début de module Sub jacquouille() mesfeuilles = Array("TOTAL", "JACKY", "MINOU") For i = 1 To 3 Sheets(mesfeuilles(i)).Select '=== ici j'ai repris ton code Range("G10").Select Selection.Copy Range("I10").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse Application.CutCopyMode = False '=== fin du code à jacky ! Next
End Sub
@+ NB:>Jacquouille conseille : http://www.excelabo.net ---------------------------------------------- Conseiller, c'est presque aider ...... Qui monet quasi adjuvat. Plaute 254-184 av. J.-C. (Titus Maccius Plautus)
Bonjour Gilbert
Ta procédure est bien, mais elle copie la même cel dans les 3 feuilles.
Je ne sais si je me suis mal exprimé ou si tu as mal compris ...
Nous mettrons cela sur le compte des ans ( à tous deux)
Merci pour ton clin d'oeil à ma signature, mais je n'ai rien trouvé qui
réponde à ma question.
Une bonne fin de journée et bise à madame.
NoSpam_j.thiernesse@skynet.be
"Modeste" <GeeDee@msixnet.fr> a écrit dans le message news:
111901c39231$baa8e6f0$a101280a@phx.gbl...
Bonjour Jacky,
(Fan de Brel je suppose ;-)))
peut etre en essayant ceci :
Option Base 1
'-- instruction ci-dessus est à préciser en début de
module
Sub jacquouille()
mesfeuilles = Array("TOTAL", "JACKY", "MINOU")
For i = 1 To 3
Sheets(mesfeuilles(i)).Select
'=== ici j'ai repris ton code
Range("G10").Select
Selection.Copy
Range("I10").Select
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
'=== fin du code à jacky !
Next
End Sub
@+
NB:>Jacquouille conseille : http://www.excelabo.net
----------------------------------------------
Conseiller, c'est presque aider
...... Qui monet quasi adjuvat.
Plaute 254-184 av. J.-C. (Titus Maccius Plautus)
Bonjour Gilbert Ta procédure est bien, mais elle copie la même cel dans les 3 feuilles. Je ne sais si je me suis mal exprimé ou si tu as mal compris ... Nous mettrons cela sur le compte des ans ( à tous deux) Merci pour ton clin d'oeil à ma signature, mais je n'ai rien trouvé qui réponde à ma question. Une bonne fin de journée et bise à madame.
"Modeste" a écrit dans le message news: 111901c39231$baa8e6f0$ Bonjour Jacky, (Fan de Brel je suppose ;-)))
peut etre en essayant ceci :
Option Base 1 '-- instruction ci-dessus est à préciser en début de module Sub jacquouille() mesfeuilles = Array("TOTAL", "JACKY", "MINOU") For i = 1 To 3 Sheets(mesfeuilles(i)).Select '=== ici j'ai repris ton code Range("G10").Select Selection.Copy Range("I10").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse Application.CutCopyMode = False '=== fin du code à jacky ! Next
End Sub
@+ NB:>Jacquouille conseille : http://www.excelabo.net ---------------------------------------------- Conseiller, c'est presque aider ...... Qui monet quasi adjuvat. Plaute 254-184 av. J.-C. (Titus Maccius Plautus)