Discussion :

[tytos]

Bonjour,
J'ai un problème avec mon code écrit sous un bouton de commande de la feuille 7.
j'ai récupéré le code grace un enregistrement de macro mais quand je l'exécute ca me renvoie l'erreur d'exécution '1004' : La méthode select de la classe range à échoué et il sélection la ligne 2 en jaune. Merci pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sheets("VENTE").Select
    Range("A3").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
Sheets("DETAILS").Select
Range("A3").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
Feuil7.Select

[joe.levrai]

Bonjour,

la feuille n'est pas protégée avec désactivation des cellules verrouillées ?

Par ailleurs, l'enregistreur de macro est très peu optimisé et capture tes actions au pied de la lettre... alors qu'il est parfaitement inutile d'activer une feuille et de sélectionner une cellule pour réaliser une action dessus :

un exemple à adapter, je ne connais pas la configuration de tes données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Sheets("VENTE")
    .Range(.Range("A3"), .Range("A3").CurrentRegion.SpecialCells(xlLastCell)).ClearContents
End With

[unparia]

Bonjour
J'ajoute à ce que joe.levrai (que je salue) a exprimé à fort juste titre ceci :
le fait de "sélectionner" une feuille ne rend pas celle-ci active pour autant et ton :

Range("A3").Select

ne correspond dans ce cas à aucune feuille active.
tu n'aurais eu aucun problème en écrivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Feuil1").Activate
    ActiveSheet.Range("A3").Select

mais ce "genre" est abusif et doit être délaissé au profit d'un travail direct sur les objets de Excel (voir le codee de Joe.levrai).

[tytos]

merci d’être sur mon cas . ca a marché