Selection.CurrentRegion.Select

[goolawak]

Bonsoir, voici le code qui me pose problème :

Range("C18").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Checkout").Select
Range("C24").Select

Ce code génère une erreur de compilation: "Fonction ou variable attendue" (en surlignant la ligne Selection.CurrentRegion.Select au moment du débugage). Il devrait permettre de sélectionner la première cellule (C18) d'un tableau puis de sélectionner automatiquement le reste du tableau, de le copier pour enfin aller le coller dans la feuille Checkout à partir de la cellule C24.

Merci à tous ceux qui prendront le temps de m'aider,

Arnaud

 

[Dan]

Re : Selection.CurrentRegion.Select

Bonsoir,

essaie ceci :

Sheets("le nom de ta feuille").Range("C18").CurrentRegion.Copy Destination:=Sheets("Checkout").Range("C24")

Bon travail

 

[Pierrot93]

Re : Selection.CurrentRegion.Select

Bonsoir Arnaud,

oui a priori ca devrait marcher, masi faudrait voir ton code dans sa totalité, peut être une variable mal déclaré.

Sinon tu peux essayer la ligne de code ci dessous, elle doit faire ce que tu attends :

Range("C18").Copy Sheets("Checkout").Range("C24")

Bonne soirée
@+

 

[Pierrot93]

Re : Selection.CurrentRegion.Select

oups t'avais pas vu Dan, tu as raison faut voir aussi dans quel module est le code.... bonne soirée

 

[goolawak]

Re : Selection.CurrentRegion.Select

Merci à vous deux d'être si réactifs. Une dernière question : comment faut-il modifier le code pour que la copie soit collé avec l'option en valeur (sans la mise en forme)?

Merci encore et bonne soirée,

Arnaud

 

[Dan]

Re : Selection.CurrentRegion.Select

Re,

Pierrot le code que tu propose ne copie que la cellule C18. Si j'ai bien compris, c'est depuis la cellule C18 jusque la fin d'un tableau situé près de cette cellule. D'où le Current.region d'ailleurs.

sinon de fait, il parle aussi de variable. Là il ya peut être une erreur dans macro au départ.

A bientôt

 

[Pierrot93]

Re : Selection.CurrentRegion.Select

Re Arnaud, Dan

essaye le code ci dessous :

Range("C18").CurrentRegion.Copy
Sheets("Checkout").Select
Range("C24").PasteSpecial xlPasteValues

@+

 

[Pierrot93]

Re : Selection.CurrentRegion.Select

Oui Dan dans mon 1er code manque currentregionselect...

Erratum currentregion tout court

 

[goolawak]

Re : Selection.CurrentRegion.Select

Pierrot, j'ai testé ton code qui fonctionne car il ne copie pas la mise en forme automatique de la cellule. Par contre, il copie la mise en forme automatique. Comment faire pour que seul le contenu des cellules soit effectivement copié ?

Encore merci,

Arnaud

 

[Dan]

Re : Selection.CurrentRegion.Select

Re,

Bon tu avais pas expliqué qu'il fallait copier uniquement les valeurs....

Sub test()
Sheets("feuil1").Range("C18").CurrentRegion.Copy
Sheets("Checkout").Range("C24").PasteSpecial Paste:=xlValues
End Sub

feuil1 : le nom de ta feuille d'origine sur laquelle on copie les données

A bientôt

 

[goolawak]

Re : Selection.CurrentRegion.Select

Sheets("Basket").Range("C18").CurrentRegion.Copy
Sheets("Checkout").Range("C24").PasteSpecial Paste:=xlValues

Bonsoir, j'aurais besoin de préciser ce code que vous m'avez proposé. Comment faut-il le modifier pour que seules les cellules placées dans la même colonne que la cellule C18 soient copiées par la fonction CurrentRegion.Copy ? Toujours en sachant que la cellule C18 est la première d'un tableau de valeur.

Merci par avance,

Arnaud

 

[Pierrot93]

Re : Selection.CurrentRegion.Select

Bonjour Goolawak,

ci dessous code modifié pour copier lex cellules de la colone C à partir de la ligne 18, jusqu'à la dernière cellule renseignée de la colonne :

Sheets("Feuil1").Range("C18:C" & Range("C65536").End(xlUp).Row).Copy

Bonne journée
@+

 

[goolawak]

Re : Selection.CurrentRegion.Select

Merci encore Pierrot, j'aurais une ultime question à te soumettre si ce n'est pas abusé de toi : elle concerne toujours la même fonction, à savoir CurrentRegion et cette fois je voudrais connaitre le code qu'il faut utiliser pour supprimer uniquement les lignes situées en dessous de la cellule sélectionnée (car le code que j'utilise supprime la ligne des titres de mon tableau). Considérons que la cellule de départ est toujours C18.

Voilà, merci encore et à bientôt !

Arnaud

 

[Pierrot93]

Re : Selection.CurrentRegion.Select

Bonsoir Arnaud, Dan

tu peux utiliser le code ci dessous, supprime toutes les lignes à partir de la ligne 19 jusqu'à la dernière ligne renseignée :

Range("C19:C" & Range("C65536").End(xlUp).Row).EntireRow.Delete

Bonne soirée
@+