Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Copy/Paste Syntaxe de Range([range1]:[range2]) avec des variables

5 réponses
Avatar
Nicolas Scheibling
bonjour,
Voici un exmple de ce que je voudrais faire
(recuperer le numero de la ligne actuellment selectionnée l ajouter au
lettres de colones affin d operer une copie)

Dim NumLigne As Integer
Dim range1 As String
Dim range2 As String

NumLigne = Selection.Row
Range("Selection_active").Value = NumLigne
range1 = "A" & NumLigne
range2 = "F" & NumLigne
Range([range1]:[range2]).Copy<---le soucis: erreur de compilation
' Range("A22:F22").Copy
Range("A110").PasteSpecial xlPasteValues

je n arrive pas a m en sortir avec le copier/coller !
jai aussi essayé ca
Range("A81:F81").Select
Selection.Copy
Sheets("Devis_Auto").Activate
ActiveSheet.Paste

ou ca

Sheets("Liste_des_Postes").Activate
Range("A81:F81").Select
Selection.Copy
Sheets("Devis_Auto").Activate
Range("A20").Select
ActiveSheet.Paste
' Range("A20").Paste
ou ca
Range("A22:F22").Copy("A110")

bref je galere !
impossible de connaitre la syntaxe des fonctions et les protection ou
specifications de variables.
merci d'avance
Nico

5 réponses

Avatar
Nicolas B.
Salut,

Remplace
Range([range1]:[range2]).Copy
par

Range(range1 & ":" & range2).Copy

--
Nicolas B.

Nicolas Scheibling a récemment écrit dans un message de news :
bonjour,
Voici un exmple de ce que je voudrais faire
(recuperer le numero de la ligne actuellment selectionnée l ajouter au
lettres de colones affin d operer une copie)

Dim NumLigne As Integer
Dim range1 As String
Dim range2 As String

NumLigne = Selection.Row
Range("Selection_active").Value = NumLigne
range1 = "A" & NumLigne
range2 = "F" & NumLigne
Range([range1]:[range2]).Copy<---le soucis: erreur de compilation
' Range("A22:F22").Copy
Range("A110").PasteSpecial xlPasteValues

je n arrive pas a m en sortir avec le copier/coller !
jai aussi essayé ca
Range("A81:F81").Select
Selection.Copy
Sheets("Devis_Auto").Activate
ActiveSheet.Paste

ou ca

Sheets("Liste_des_Postes").Activate
Range("A81:F81").Select
Selection.Copy
Sheets("Devis_Auto").Activate
Range("A20").Select
ActiveSheet.Paste
' Range("A20").Paste
ou ca
Range("A22:F22").Copy("A110")

bref je galere !
impossible de connaitre la syntaxe des fonctions et les protection ou
specifications de variables.
merci d'avance
Nico


Avatar
Nicolas Scheibling
ok merci simplement maintenant je n arrive pas a coller ma selection
lorsque j execute mon code celui ci se bloque a Range("A20").Select (que
ce soit sur la meme feuille ou non )

Range(range1 & ":" & range2).Select
Selection.Copy
Sheets("Devis_Auto").Select
Range("A20").Select <------ Breakpoint *
Selection.Paste

* La methode Select de la classe Range a échouée
je ne comprend pas tres bien car ce code marche avec une macro faite en
clikouze.

Nico
Avatar
Nicolas B.
Je ne vois pas pourquoi ca bugue à range("a1").select, mais par contre la
ligne d'après est fausse.

Essaye ceci :

Range(range1 & ":" & range2).Select
Selection.Copy
Sheets("Devis_Auto").Select
Range("A20").Select
ActiveSheet.Paste


--
Nicolas B.

Nicolas Scheibling a récemment écrit dans un message de news :
ok merci simplement maintenant je n arrive pas a coller ma selection
lorsque j execute mon code celui ci se bloque a Range("A20").Select
(que ce soit sur la meme feuille ou non )

Range(range1 & ":" & range2).Select
Selection.Copy
Sheets("Devis_Auto").Select
Range("A20").Select <------ Breakpoint *
Selection.Paste

* La methode Select de la classe Range a échouée
je ne comprend pas tres bien car ce code marche avec une macro faite
en clikouze.

Nico


Avatar
Nicolas Scheibling
ActiveSheet.Paste
j ai aussi essayer ca mais rien a faire

j'execute mon code a la fin dune macro executer par un bouton
ny aurait t il pas un probleme de classe et de protection ?
dans VBA
mon code est dans Feuill2
le code que je fais avec une macro en clikouze est ds Module5

sinon comment puis je appeler une de mes routines en ayant tous les droits
sur le feuilles (si c est un probleme de droit)

Nico

Avatar
Nicolas Scheibling
bon jai fini par le faire marcher
mais en executant directement une macro depuis une sous routine et non pas
en colant le code de la macro ds cette routine.

Merci pour vos renseignements