what's wrong with that code?

[Jonas]

Bonjour,
j'arrive pas à exécuter le code suivant, pouvez vous me dire ce qui ne va pas, merci

Dim Nom, TCD As String


Nom = ActiveSheet.Name

Sheets("Recapitulatif").Select
Cells("A7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
ActiveCell.Select



Edit : Explications
sur l'onglet production, j'ai plusieurs noms qui se repète et que je dois copier dans l'onglet récapitulatif. l'idée que j'ai eu est de copier la liste que j'ai du premier onglet au second et puis appliquer la suppression de doublons, sauf que ça n'a pas marché, on me surligne tjs la ligne Cells("A7").

 

[MJ13]

Re : what's wrong with that code?

Bonjour Jonas

Cells("A7").Select

Cela ne doit pas le faire, c'est Range normalement.

 

[Jonas]

Re : what's wrong with that code?

même en remplaçant avec Range, ça ne marche pas

 

[mutzik]

Re : what's wrong with that code?

bonjour,

cells demande une numéro de ligne et de colonne
donc : range("A7").select
sinon :
sheets("Recapitulatif").range("A7",range("A7").end(xldown)).clearcontents
devrait fonctionner sans aucun select ...

 

[Pierrot93]

Re : what's wrong with that code?

Bonjour,

essaye peut être ceci :

With Sheets("Recapitulatif")
.Range("A7", .Range("A7").End(xlDown)).ClearContents
End With

A noter en vba nul besoin de sélectionner...
Pas top ton titre....
bonne journée
@+

Edition : AArf, bonjour à tous🙂.... un peu à la bourre moi....

 

[CBernardT]

Re : what's wrong with that code?

Bonjour Jonas,

Ce post et le code sont difficilement exploitables telquels :

Donc, à toi de voir pour mieux nous expliquer.

 

[Jonas]

Re : what's wrong with that code?

merci pour votre aide, mais ça n'a tjrs pas voulu marcher,

j'ai mis dans le premier message le fichier joint. la macro est dans un bouton à droite de la feuille production

 

[job75]

Re : what's wrong with that code?

Bonjour,

Le fichier joint est un fichier .xlsx.

Pour qu'il puisse contenir une macro, il faut l'enregistrer sous .xlsm

Par ailleurs, lorsqu'une macro est dans le code d'une feuille, Range se rapporte toujours à cette feuille si l'on ne précise pas la feuille.

Dans votre cas il faut donc écrire :

Sheets("Recapitulatif").Range("A7", Sheets("Recapitulatif").Range("A7").End (xlDown)).ClearContents

A+

 

[Pierrot93]

Re : what's wrong with that code?

Re,
bonsoir Job🙂, Aarf bien vu... j'ai édité mon code...

 

[job75]

Re : what's wrong with that code?

Salut Pierrot 🙂

Tu peux le rééditer, il manque encore un point devant le 2ème Range.

A+

 

[Pierrot93]

Re : what's wrong with that code?

Re,

euh...., chaque range a son point🙂 ou alors je suis mal voyant...

 

[job75]

Re : what's wrong with that code?

Re,

ou alors je suis mal voyant...

Ben... Tu as mis 3 Range, le 2ème (qui cloche) étant d'ailleurs inutile 😎

A+

 

[Pierrot93]

Re : what's wrong with that code?

Re,

Aarf, tu as raison Job🙂, je suis vraiment mal voyant... Merci d'avoir rectifié mon horreur🙂
bonne soirée
@+

 

[Philippe68]

Re : what's wrong with that code?

Bonsoir à tous,

Si Jonas pouvait changer son titre, ça serait mieux pour les résultats de recherches futures...