Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Problème sur l'objet Range

Problème sur l'objet Range

3 réponses
Avatar
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:=False, Transpose:=False
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:=False, Transpose:=False
End Sub

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

Merci par avance,

JC.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonsooir.
COPIE2 fonctionne chez moi. Qu'esst-ce que tu as comme erreur ?
Cordialement.
Daniel
"Changuy" a écrit dans le message de news:
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.



Avatar
LSteph
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.




Avatar
Changuy
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" a écrit dans le message de news:
%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.