Problème sur l'objet Range

Le
Changuy
Bonsoir à tous,
Dans le but d'optimiser une macro je souhaite supprimer les .Select, mais
cela ne marche pas !!
Quelqu'un peut il m'expliquer pourquoi la macro COPIE1() fonctionne
correctement, alors que la macro
COPIE2() plante !

Sub COPIE1()
Dim vProfil As Integer
vProfil = Range("B30").Value - 1
Range(Cells(5, 8 + vProfil), Cells(45, 8 + vProfil)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("OPTIMISATION").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
End Sub

Sub COPIE2()
Dim vProfil As Integer
vProfil = Range("B30").Value - 1
Range(Cells(5, 8 + vProfil), Cells(45, 8 + vProfil)).Copy ' ->
Problème sur l'objet Range ???
Sheets("OPTIMISATION").Range("C5").Paste Special Paste:=xlValues,
Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse
End Sub

Je ne vois pas d'où vient le problème !!!!!!

Merci par avance,

JC.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4612031
Bonsooir.
COPIE2 fonctionne chez moi. Qu'esst-ce que tu as comme erreur ?
Cordialement.
Daniel
"Changuy" eXYzGk%
Bonsoir à tous,
Dans le but d'optimiser une macro je souhaite supprimer les .Select, mais
cela ne marche pas !!
Quelqu'un peut il m'expliquer pourquoi la macro COPIE1() fonctionne
correctement, alors que la macro
COPIE2() plante !

Sub COPIE1()
Dim vProfil As Integer
vProfil = Range("B30").Value - 1
Range(Cells(5, 8 + vProfil), Cells(45, 8 + vProfil)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("OPTIMISATION").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
End Sub

Sub COPIE2()
Dim vProfil As Integer
vProfil = Range("B30").Value - 1
Range(Cells(5, 8 + vProfil), Cells(45, 8 + vProfil)).Copy ' ->
Problème sur l'objet Range ???
Sheets("OPTIMISATION").Range("C5").Paste Special Paste:=xlValues,
Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse
End Sub

Je ne vois pas d'où vient le problème !!!!!!

Merci par avance,

JC.



LSteph
Le #4612021
Bonsoir,
et ainsi:


Sub COPIE2()
Dim vProfil As Integer
vProfil = Range("B30").Value - 1
Application.CutCopyMode = False
Range(Cells(5, 8 + vProfil), Cells(45, 8 + vProfil)).Copy
Sheets("OPTIMISATION").Range("C5").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse
End Sub

'lSteph

Bonsoir à tous,
Dans le but d'optimiser une macro je souhaite supprimer les .Select, mais
cela ne marche pas !!
Quelqu'un peut il m'expliquer pourquoi la macro COPIE1() fonctionne
correctement, alors que la macro
COPIE2() plante !

Sub COPIE1()
Dim vProfil As Integer
vProfil = Range("B30").Value - 1
Range(Cells(5, 8 + vProfil), Cells(45, 8 + vProfil)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("OPTIMISATION").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
End Sub

Sub COPIE2()
Dim vProfil As Integer
vProfil = Range("B30").Value - 1
Range(Cells(5, 8 + vProfil), Cells(45, 8 + vProfil)).Copy ' ->
Problème sur l'objet Range ???
Sheets("OPTIMISATION").Range("C5").Paste Special Paste:=xlValues,
Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse
End Sub

Je ne vois pas d'où vient le problème !!!!!!

Merci par avance,

JC.




Changuy
Le #4611961
Je suis désolé ....
après avoir retapé (correctement) la macro COPIE2() fonctionne chez moi
aussi..

Mille excuses et encore merci à Daniel et LSteph.

JC

"LSteph" %23VwKcq%
Bonsoir,
et ainsi:


Sub COPIE2()
Dim vProfil As Integer
vProfil = Range("B30").Value - 1
Application.CutCopyMode = False
Range(Cells(5, 8 + vProfil), Cells(45, 8 + vProfil)).Copy
Sheets("OPTIMISATION").Range("C5").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse
End Sub

'lSteph

Bonsoir à tous,
Dans le but d'optimiser une macro je souhaite supprimer les .Select, mais
cela ne marche pas !!
Quelqu'un peut il m'expliquer pourquoi la macro COPIE1() fonctionne
correctement, alors que la macro
COPIE2() plante !

Sub COPIE1()
Dim vProfil As Integer
vProfil = Range("B30").Value - 1
Range(Cells(5, 8 + vProfil), Cells(45, 8 + vProfil)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("OPTIMISATION").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
End Sub

Sub COPIE2()
Dim vProfil As Integer
vProfil = Range("B30").Value - 1
Range(Cells(5, 8 + vProfil), Cells(45, 8 + vProfil)).Copy ' ->
Problème sur l'objet Range ???
Sheets("OPTIMISATION").Range("C5").Paste Special Paste:=xlValues,
Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse
End Sub

Je ne vois pas d'où vient le problème !!!!!!

Merci par avance,

JC.




Publicité
Poster une réponse
Anonyme