[XL-2003] Macro VBA - fonction "Cells.Select" [Résolu]

[hunteshiva]

Bonjour,

je suis en train de refaire une macro pas trés propre,
seulement je me heurte à la fin à une fonction que je connais pas,
impossible se savoir ce qu'elle fait...

par exemple il y avait :

Code :

1
2
3
4
5
6
7
'Code projet
    Sheets("DATA").Select
    Range("C10").Select
    sel = ActiveCell
    Sheets("RESULTAT").Select
    Range("B7:C7").Select
    ActiveCell = sel

que j'ai simplement remplacé par

Code :

1
2
'Code projet
    Sheets("RESULTAT").Range("B7:C7") = Sheets("DATA").Range("C10")

pour moi beaucoup plus simple à lire,
et le code est 5 voir six fois moins long

Le soucis c'est qu'a la fin il y a ceci

Code :

1
2
3
4
5
6
7
8
    ' Effacement de la feuille de recupération
    Sheets("DATA").Select
    Cells.Select
    Selection.ClearContents
 
    ' Remise à l'état initiale des cellules de la feuille
    Cells.Select
    Selection.NumberFormat = "General"

j'ai peur qu'il prenne toutes les cellules qui ont étaient sélectionnées de la feuille DATA

Code :

1
2
Sheets("DATA").Select
Cells.Select

et qu'il les efface

Code :

Selection.ClearContents

aprés je ne sais pas ce qu'il fait par

Code :

Selection.NumberFormat = "General"

Voila si quelqu’un peut m'éclairer,
j'ai l'impression que se problème n'est pas compliqué mais je ne trouve pas d'explications sur
et aussi d’où sort le format "Général" ? on peut définir des formats?

[el_slapper]

J'ai joué un peu avec l'enregistreur de macro, j'ai selectionné toute la feuille, j'ai appuyé sur [suppr], puis j'ai été dans format-cellule, et j'ai mis un format standard. Résultat :

Code :

1
2
3
4
 
    Cells.Select
    Selection.ClearContents
    Selection.NumberFormat = "General"

je suppose que ça te donne un début de piste.....

[hunteshiva]

Ok, merci beaucoup el_slapper pour "l'enregistreur de macro" *j'ai découvert grâce à toi*

effectivement je confirme pour deux codes

Code :

1
2
Selection.ClearContents ' efface le contenu des cellules *évident*
Selection.NumberFormat = "General" ' Définit le format de cellules comme standart

le premier, "Cells.Select",
je pense qu'il reprend toutes les cellules qui on étés sélectionnées *ça m'arrange pas mais bon*
je confirme ça dès que je peux

[Theze]

Bonjour,

Je me mêle un peu ;o))

Je pense qu'il n'est pas nécessaire de travailler sur toutes les cellules de la feuille, seule la zone utilisée doit être modifiée. Donc, je pense que ceci serait mieux approprié que Cells :

Code :

1
2
3
4
5
 
With Sheets("DATA").UsedRange
    .clearcontent
    .NumberFormat = "General"
End With

Hervé.

[Ormonth]

bonjour,

je suis en train de refaire une macro pas trés propre

=> je veux faire propre :

Code :

1
2
3
4
    ' Effacement de la feuille de recupération
    Sheets("DATA").Select
    Cells.Select
    Selection.ClearContents

est très sale...

Code :

1
2
3
Sub toto()
    Worksheets("Data").Cells.ClearContents
End Sub

Fait la même chose en ne demandant même pas que la feuille cible soit celle active, on gagne encore un Select..

Voir les tutoriels DVP dans la section adéquate pour les bons conseils comme :

• Connaître la différence entre Sheets et Worksheeets (... Si le document actif n'est pas une feuille de calcul, cette propriété échoue (aide VBA à Cells.)
• La propriété Cells (collection de Range)
• l'instruction With qui permet de poursuivre sur les formats en code propre cf : Theze

cordialement,

PS : l'enregistreur de macro n'est pas un mauvais élève, il ne fait que transcrire les actions manuelles effectuées, rien à voir avec un code optimisé

Didier

[hunteshiva]

Envoyé par Ormonth

Code :

est très sale...

Tout à fait d'accord

c'est le code que j’essayais de comprendre mais en voyant ta ligne de code

Code :

Worksheets("Data").Cells.ClearContents

tout est claire maintenant, en fesant le paralléle avec ce qu'a dit el_slapper

j'ai sélectionné toute la feuille

Le code devient simplement: *ludique*

Code :

1
2
3
4
5
    ' Effacement de la feuille de recupération
    Sheets("DATA").Cells.ClearContents
 
    ' Remise à l'état initiale des cellules de la feuille
    Sheets("DATA").Cells.NumberFormat = "General"

Merci beaucoup les gars !!!

PS: je suis contre les select, c'est comme les GoTo, c'est à bannir

[Ormonth]

Le code devient simplement: *ludique*

... cf Hervé

Code :

1
2
3
4
5
6
Sub MrPropre()
With Sheets("DATA").Cells
    .ClearContents ' Effacement de la feuille de recupération
    .NumberFormat = "General" ' Remise à l'état initiale des cellules de la feuille
End With
End Sub

cordialement,

Didier