Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une feuille ?
Merci
"FFO" a écrit dans le message de news:
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une feuille ?
Merci
"FFO" <francois.forcet@wanadoo.fr> a écrit dans le message de news:
8078e094-6bcc-49fc-86bc-9c1b8319df7f@k30g2000vbn.googlegroups.com...
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une feuille ?
Merci
"FFO" a écrit dans le message de news:
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
Bonjour,
Cela pourrait ressembler à ceci
Créé la feuille si elle n'existe pas
A adapter
'-------------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("test", "test1", "test2", "test3")
For Each sh In fiches
On Error Resume Next
Sheets(sh).Activate
If Err <> 0 Then
Sheets.Add.Name = sh
End If
ActiveSheet.Paste
Next
End Sub
'-------------------
Nb:La feuille source n"a nullement besoin d"être visible
--
Salutations
JJ
a écrit dans le message de news:
4c908a02$0$12642$Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une
feuille ?
Merci
"FFO" a écrit dans le message de news:
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
Bonjour,
Cela pourrait ressembler à ceci
Créé la feuille si elle n'existe pas
A adapter
'-------------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("test", "test1", "test2", "test3")
For Each sh In fiches
On Error Resume Next
Sheets(sh).Activate
If Err <> 0 Then
Sheets.Add.Name = sh
End If
ActiveSheet.Paste
Next
End Sub
'-------------------
Nb:La feuille source n"a nullement besoin d"être visible
--
Salutations
JJ
<stef@nospam> a écrit dans le message de news:
4c908a02$0$12642$426a74cc@news.free.fr...
Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une
feuille ?
Merci
"FFO" <francois.forcet@wanadoo.fr> a écrit dans le message de news:
8078e094-6bcc-49fc-86bc-9c1b8319df7f@k30g2000vbn.googlegroups.com...
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
Bonjour,
Cela pourrait ressembler à ceci
Créé la feuille si elle n'existe pas
A adapter
'-------------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("test", "test1", "test2", "test3")
For Each sh In fiches
On Error Resume Next
Sheets(sh).Activate
If Err <> 0 Then
Sheets.Add.Name = sh
End If
ActiveSheet.Paste
Next
End Sub
'-------------------
Nb:La feuille source n"a nullement besoin d"être visible
--
Salutations
JJ
a écrit dans le message de news:
4c908a02$0$12642$Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une
feuille ?
Merci
"FFO" a écrit dans le message de news:
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
Merci tout d'abord , j'ai adapté votre proposition comme suit car je souhaite que l'objet soit copié à un
endroit précis. mais rien ne se produit ??
ou est mon erreur merci
Sheets("feuil1").Shapes("Image 6").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Activate
If Err = 0 Then
ActiveSheet.Range("H131").Paste
End If
Next
"Jacky" a écrit dans le message de news: i6q5hn$j87$Bonjour,
Cela pourrait ressembler à ceci
Créé la feuille si elle n'existe pas
A adapter
'-------------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("test", "test1", "test2", "test3")
For Each sh In fiches
On Error Resume Next
Sheets(sh).Activate
If Err <> 0 Then
Sheets.Add.Name = sh
End If
ActiveSheet.Paste
Next
End Sub
'-------------------
Nb:La feuille source n"a nullement besoin d"être visible
--
Salutations
JJ
a écrit dans le message de news: 4c908a02$0$12642$Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une feuille ?
Merci
"FFO" a écrit dans le message de news:
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
Merci tout d'abord , j'ai adapté votre proposition comme suit car je souhaite que l'objet soit copié à un
endroit précis. mais rien ne se produit ??
ou est mon erreur merci
Sheets("feuil1").Shapes("Image 6").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Activate
If Err = 0 Then
ActiveSheet.Range("H131").Paste
End If
Next
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: i6q5hn$j87$1@speranza.aioe.org...
Bonjour,
Cela pourrait ressembler à ceci
Créé la feuille si elle n'existe pas
A adapter
'-------------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("test", "test1", "test2", "test3")
For Each sh In fiches
On Error Resume Next
Sheets(sh).Activate
If Err <> 0 Then
Sheets.Add.Name = sh
End If
ActiveSheet.Paste
Next
End Sub
'-------------------
Nb:La feuille source n"a nullement besoin d"être visible
--
Salutations
JJ
<stef@nospam> a écrit dans le message de news: 4c908a02$0$12642$426a74cc@news.free.fr...
Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une feuille ?
Merci
"FFO" <francois.forcet@wanadoo.fr> a écrit dans le message de news:
8078e094-6bcc-49fc-86bc-9c1b8319df7f@k30g2000vbn.googlegroups.com...
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
Merci tout d'abord , j'ai adapté votre proposition comme suit car je souhaite que l'objet soit copié à un
endroit précis. mais rien ne se produit ??
ou est mon erreur merci
Sheets("feuil1").Shapes("Image 6").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Activate
If Err = 0 Then
ActiveSheet.Range("H131").Paste
End If
Next
"Jacky" a écrit dans le message de news: i6q5hn$j87$Bonjour,
Cela pourrait ressembler à ceci
Créé la feuille si elle n'existe pas
A adapter
'-------------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("test", "test1", "test2", "test3")
For Each sh In fiches
On Error Resume Next
Sheets(sh).Activate
If Err <> 0 Then
Sheets.Add.Name = sh
End If
ActiveSheet.Paste
Next
End Sub
'-------------------
Nb:La feuille source n"a nullement besoin d"être visible
--
Salutations
JJ
a écrit dans le message de news: 4c908a02$0$12642$Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une feuille ?
Merci
"FFO" a écrit dans le message de news:
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
R...
Que se passe 't-il avec ceci
'--------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Paste
Next
End Sub
'----------------
Sinon copier la cellule plutot que l'image
Absent jusqu'a ce soir
--
Salutations
JJ
a écrit dans le message de news:
4c90aa82$0$578$Merci tout d'abord , j'ai adapté votre proposition comme suit car je
souhaite que l'objet soit copié à un endroit précis. mais rien ne se
produit ??
ou est mon erreur merci
Sheets("feuil1").Shapes("Image 6").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Activate
If Err = 0 Then
ActiveSheet.Range("H131").Paste
End If
Next
"Jacky" a écrit dans le message de news:
i6q5hn$j87$Bonjour,
Cela pourrait ressembler à ceci
Créé la feuille si elle n'existe pas
A adapter
'-------------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("test", "test1", "test2", "test3")
For Each sh In fiches
On Error Resume Next
Sheets(sh).Activate
If Err <> 0 Then
Sheets.Add.Name = sh
End If
ActiveSheet.Paste
Next
End Sub
'-------------------
Nb:La feuille source n"a nullement besoin d"être visible
--
Salutations
JJ
a écrit dans le message de news:
4c908a02$0$12642$Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une
feuille ?
Merci
"FFO" a écrit dans le message de news:
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
R...
Que se passe 't-il avec ceci
'--------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Paste
Next
End Sub
'----------------
Sinon copier la cellule plutot que l'image
Absent jusqu'a ce soir
--
Salutations
JJ
<stef@nospam> a écrit dans le message de news:
4c90aa82$0$578$426a74cc@news.free.fr...
Merci tout d'abord , j'ai adapté votre proposition comme suit car je
souhaite que l'objet soit copié à un endroit précis. mais rien ne se
produit ??
ou est mon erreur merci
Sheets("feuil1").Shapes("Image 6").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Activate
If Err = 0 Then
ActiveSheet.Range("H131").Paste
End If
Next
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
i6q5hn$j87$1@speranza.aioe.org...
Bonjour,
Cela pourrait ressembler à ceci
Créé la feuille si elle n'existe pas
A adapter
'-------------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("test", "test1", "test2", "test3")
For Each sh In fiches
On Error Resume Next
Sheets(sh).Activate
If Err <> 0 Then
Sheets.Add.Name = sh
End If
ActiveSheet.Paste
Next
End Sub
'-------------------
Nb:La feuille source n"a nullement besoin d"être visible
--
Salutations
JJ
<stef@nospam> a écrit dans le message de news:
4c908a02$0$12642$426a74cc@news.free.fr...
Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une
feuille ?
Merci
"FFO" <francois.forcet@wanadoo.fr> a écrit dans le message de news:
8078e094-6bcc-49fc-86bc-9c1b8319df7f@k30g2000vbn.googlegroups.com...
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
R...
Que se passe 't-il avec ceci
'--------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Paste
Next
End Sub
'----------------
Sinon copier la cellule plutot que l'image
Absent jusqu'a ce soir
--
Salutations
JJ
a écrit dans le message de news:
4c90aa82$0$578$Merci tout d'abord , j'ai adapté votre proposition comme suit car je
souhaite que l'objet soit copié à un endroit précis. mais rien ne se
produit ??
ou est mon erreur merci
Sheets("feuil1").Shapes("Image 6").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Activate
If Err = 0 Then
ActiveSheet.Range("H131").Paste
End If
Next
"Jacky" a écrit dans le message de news:
i6q5hn$j87$Bonjour,
Cela pourrait ressembler à ceci
Créé la feuille si elle n'existe pas
A adapter
'-------------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("test", "test1", "test2", "test3")
For Each sh In fiches
On Error Resume Next
Sheets(sh).Activate
If Err <> 0 Then
Sheets.Add.Name = sh
End If
ActiveSheet.Paste
Next
End Sub
'-------------------
Nb:La feuille source n"a nullement besoin d"être visible
--
Salutations
JJ
a écrit dans le message de news:
4c908a02$0$12642$Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une
feuille ?
Merci
"FFO" a écrit dans le message de news:
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
Désolé j'ai du m'absenter
La copie se fait correctement mais sans précision de la cellule de
destination
"Jacky" a écrit dans le message de news:
i6qahu$3qr$R...
Que se passe 't-il avec ceci
'--------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Paste
Next
End Sub
'----------------
Sinon copier la cellule plutot que l'image
Absent jusqu'a ce soir
--
Salutations
JJ
a écrit dans le message de news:
4c90aa82$0$578$Merci tout d'abord , j'ai adapté votre proposition comme suit car je
souhaite que l'objet soit copié à un endroit précis. mais rien ne se
produit ??
ou est mon erreur merci
Sheets("feuil1").Shapes("Image 6").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Activate
If Err = 0 Then
ActiveSheet.Range("H131").Paste
End If
Next
"Jacky" a écrit dans le message de news:
i6q5hn$j87$Bonjour,
Cela pourrait ressembler à ceci
Créé la feuille si elle n'existe pas
A adapter
'-------------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("test", "test1", "test2", "test3")
For Each sh In fiches
On Error Resume Next
Sheets(sh).Activate
If Err<> 0 Then
Sheets.Add.Name = sh
End If
ActiveSheet.Paste
Next
End Sub
'-------------------
Nb:La feuille source n"a nullement besoin d"être visible
--
Salutations
JJ
a écrit dans le message de news:
4c908a02$0$12642$Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une
feuille ?
Merci
"FFO" a écrit dans le message de news:
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
Désolé j'ai du m'absenter
La copie se fait correctement mais sans précision de la cellule de
destination
"Jacky"<Dupond@marcel.fr> a écrit dans le message de news:
i6qahu$3qr$1@speranza.aioe.org...
R...
Que se passe 't-il avec ceci
'--------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Paste
Next
End Sub
'----------------
Sinon copier la cellule plutot que l'image
Absent jusqu'a ce soir
--
Salutations
JJ
<stef@nospam> a écrit dans le message de news:
4c90aa82$0$578$426a74cc@news.free.fr...
Merci tout d'abord , j'ai adapté votre proposition comme suit car je
souhaite que l'objet soit copié à un endroit précis. mais rien ne se
produit ??
ou est mon erreur merci
Sheets("feuil1").Shapes("Image 6").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Activate
If Err = 0 Then
ActiveSheet.Range("H131").Paste
End If
Next
"Jacky"<Dupond@marcel.fr> a écrit dans le message de news:
i6q5hn$j87$1@speranza.aioe.org...
Bonjour,
Cela pourrait ressembler à ceci
Créé la feuille si elle n'existe pas
A adapter
'-------------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("test", "test1", "test2", "test3")
For Each sh In fiches
On Error Resume Next
Sheets(sh).Activate
If Err<> 0 Then
Sheets.Add.Name = sh
End If
ActiveSheet.Paste
Next
End Sub
'-------------------
Nb:La feuille source n"a nullement besoin d"être visible
--
Salutations
JJ
<stef@nospam> a écrit dans le message de news:
4c908a02$0$12642$426a74cc@news.free.fr...
Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une
feuille ?
Merci
"FFO"<francois.forcet@wanadoo.fr> a écrit dans le message de news:
8078e094-6bcc-49fc-86bc-9c1b8319df7f@k30g2000vbn.googlegroups.com...
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
Désolé j'ai du m'absenter
La copie se fait correctement mais sans précision de la cellule de
destination
"Jacky" a écrit dans le message de news:
i6qahu$3qr$R...
Que se passe 't-il avec ceci
'--------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Paste
Next
End Sub
'----------------
Sinon copier la cellule plutot que l'image
Absent jusqu'a ce soir
--
Salutations
JJ
a écrit dans le message de news:
4c90aa82$0$578$Merci tout d'abord , j'ai adapté votre proposition comme suit car je
souhaite que l'objet soit copié à un endroit précis. mais rien ne se
produit ??
ou est mon erreur merci
Sheets("feuil1").Shapes("Image 6").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Activate
If Err = 0 Then
ActiveSheet.Range("H131").Paste
End If
Next
"Jacky" a écrit dans le message de news:
i6q5hn$j87$Bonjour,
Cela pourrait ressembler à ceci
Créé la feuille si elle n'existe pas
A adapter
'-------------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("test", "test1", "test2", "test3")
For Each sh In fiches
On Error Resume Next
Sheets(sh).Activate
If Err<> 0 Then
Sheets.Add.Name = sh
End If
ActiveSheet.Paste
Next
End Sub
'-------------------
Nb:La feuille source n"a nullement besoin d"être visible
--
Salutations
JJ
a écrit dans le message de news:
4c908a02$0$12642$Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une
feuille ?
Merci
"FFO" a écrit dans le message de news:
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
bonjour stef,
Sub jj()
Sheets("Feuil1").Shapes("Picture 1").Copy
fiches = Array("Feuil2", "Feuil3", "Feuil4")
For Each Sh In fiches
Application.Goto Sheets(Sh).Range("F2")
Sheets(Sh).Paste
Next
End Sub
isabelle
Le 2010-09-15 07:55, a écrit :Désolé j'ai du m'absenter
La copie se fait correctement mais sans précision de la cellule de
destination
"Jacky" a écrit dans le message de news:
i6qahu$3qr$R...
Que se passe 't-il avec ceci
'--------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Paste
Next
End Sub
'----------------
Sinon copier la cellule plutot que l'image
Absent jusqu'a ce soir
--
Salutations
JJ
a écrit dans le message de news:
4c90aa82$0$578$Merci tout d'abord , j'ai adapté votre proposition comme suit car je
souhaite que l'objet soit copié à un endroit précis. mais rien ne se
produit ??
ou est mon erreur merci
Sheets("feuil1").Shapes("Image 6").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Activate
If Err = 0 Then
ActiveSheet.Range("H131").Paste
End If
Next
"Jacky" a écrit dans le message de news:
i6q5hn$j87$Bonjour,
Cela pourrait ressembler à ceci
Créé la feuille si elle n'existe pas
A adapter
'-------------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("test", "test1", "test2", "test3")
For Each sh In fiches
On Error Resume Next
Sheets(sh).Activate
If Err<> 0 Then
Sheets.Add.Name = sh
End If
ActiveSheet.Paste
Next
End Sub
'-------------------
Nb:La feuille source n"a nullement besoin d"être visible
--
Salutations
JJ
a écrit dans le message de news:
4c908a02$0$12642$Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une
feuille ?
Merci
"FFO" a écrit dans le message de news:
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
bonjour stef,
Sub jj()
Sheets("Feuil1").Shapes("Picture 1").Copy
fiches = Array("Feuil2", "Feuil3", "Feuil4")
For Each Sh In fiches
Application.Goto Sheets(Sh).Range("F2")
Sheets(Sh).Paste
Next
End Sub
isabelle
Le 2010-09-15 07:55, stef@nospam a écrit :
Désolé j'ai du m'absenter
La copie se fait correctement mais sans précision de la cellule de
destination
"Jacky"<Dupond@marcel.fr> a écrit dans le message de news:
i6qahu$3qr$1@speranza.aioe.org...
R...
Que se passe 't-il avec ceci
'--------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Paste
Next
End Sub
'----------------
Sinon copier la cellule plutot que l'image
Absent jusqu'a ce soir
--
Salutations
JJ
<stef@nospam> a écrit dans le message de news:
4c90aa82$0$578$426a74cc@news.free.fr...
Merci tout d'abord , j'ai adapté votre proposition comme suit car je
souhaite que l'objet soit copié à un endroit précis. mais rien ne se
produit ??
ou est mon erreur merci
Sheets("feuil1").Shapes("Image 6").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Activate
If Err = 0 Then
ActiveSheet.Range("H131").Paste
End If
Next
"Jacky"<Dupond@marcel.fr> a écrit dans le message de news:
i6q5hn$j87$1@speranza.aioe.org...
Bonjour,
Cela pourrait ressembler à ceci
Créé la feuille si elle n'existe pas
A adapter
'-------------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("test", "test1", "test2", "test3")
For Each sh In fiches
On Error Resume Next
Sheets(sh).Activate
If Err<> 0 Then
Sheets.Add.Name = sh
End If
ActiveSheet.Paste
Next
End Sub
'-------------------
Nb:La feuille source n"a nullement besoin d"être visible
--
Salutations
JJ
<stef@nospam> a écrit dans le message de news:
4c908a02$0$12642$426a74cc@news.free.fr...
Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une
feuille ?
Merci
"FFO"<francois.forcet@wanadoo.fr> a écrit dans le message de news:
8078e094-6bcc-49fc-86bc-9c1b8319df7f@k30g2000vbn.googlegroups.com...
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
bonjour stef,
Sub jj()
Sheets("Feuil1").Shapes("Picture 1").Copy
fiches = Array("Feuil2", "Feuil3", "Feuil4")
For Each Sh In fiches
Application.Goto Sheets(Sh).Range("F2")
Sheets(Sh).Paste
Next
End Sub
isabelle
Le 2010-09-15 07:55, a écrit :Désolé j'ai du m'absenter
La copie se fait correctement mais sans précision de la cellule de
destination
"Jacky" a écrit dans le message de news:
i6qahu$3qr$R...
Que se passe 't-il avec ceci
'--------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Paste
Next
End Sub
'----------------
Sinon copier la cellule plutot que l'image
Absent jusqu'a ce soir
--
Salutations
JJ
a écrit dans le message de news:
4c90aa82$0$578$Merci tout d'abord , j'ai adapté votre proposition comme suit car je
souhaite que l'objet soit copié à un endroit précis. mais rien ne se
produit ??
ou est mon erreur merci
Sheets("feuil1").Shapes("Image 6").Copy
fiches = Array("feuil2", "feuil3", "feuil4")
For Each Sh In fiches
On Error Resume Next
Sheets(Sh).Activate
If Err = 0 Then
ActiveSheet.Range("H131").Paste
End If
Next
"Jacky" a écrit dans le message de news:
i6q5hn$j87$Bonjour,
Cela pourrait ressembler à ceci
Créé la feuille si elle n'existe pas
A adapter
'-------------------
Sub jj()
Sheets("Feuil1").Shapes("Image 1").Copy
fiches = Array("test", "test1", "test2", "test3")
For Each sh In fiches
On Error Resume Next
Sheets(sh).Activate
If Err<> 0 Then
Sheets.Add.Name = sh
End If
ActiveSheet.Paste
Next
End Sub
'-------------------
Nb:La feuille source n"a nullement besoin d"être visible
--
Salutations
JJ
a écrit dans le message de news:
4c908a02$0$12642$Merci pour cette réponse
Rendre visible la feuille puis la recacher est une solution.
Par contre auriez vous une autre idée pour le test d'existence d'une
feuille ?
Merci
"FFO" a écrit dans le message de news:
Salut à toi
Tu pourrais utiliser une boucle ainsi :
For i = 1 to Sheets.Count
If Sheets(i).Name = "Mafeuille" Then
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Range("H131").Activate
ActiveSheet.Paste
Sheets(i).Visible = False
Else
Range("H131").Activate
ActiveSheet.Paste
End If
Exit For
End If
Next
Je vérifie la présence de "Mafeuille"
Si elle est masquée je la démasque, je colle et je la remasque sinon
je colle
Celà devrait fonctionner
Dis moi !!!!!
bonjour stef,
si tu veut enlever le focus sur l'image,
Sub jj()
Sheets("Feuil1").Shapes("Picture 1").Copy
fiches = Array("Feuil2", "Feuil3", "Feuil4")
For Each Sh In fiches
Application.Goto Sheets(Sh).Range("F2")
Sheets(Sh).Paste
Application.Goto Sheets(Sh).Range("A1")
Next
End Sub
isabelle
bonjour stef,
si tu veut enlever le focus sur l'image,
Sub jj()
Sheets("Feuil1").Shapes("Picture 1").Copy
fiches = Array("Feuil2", "Feuil3", "Feuil4")
For Each Sh In fiches
Application.Goto Sheets(Sh).Range("F2")
Sheets(Sh).Paste
Application.Goto Sheets(Sh).Range("A1")
Next
End Sub
isabelle
bonjour stef,
si tu veut enlever le focus sur l'image,
Sub jj()
Sheets("Feuil1").Shapes("Picture 1").Copy
fiches = Array("Feuil2", "Feuil3", "Feuil4")
For Each Sh In fiches
Application.Goto Sheets(Sh).Range("F2")
Sheets(Sh).Paste
Application.Goto Sheets(Sh).Range("A1")
Next
End Sub
isabelle