Macro VBA - fonction "Cells.Select"

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 :mrgreen:

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

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 :google:
et aussi d’où sort le format "Général" ? on peut définir des formats?

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.....

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

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 ;)

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é.

bonjour,

Citation:

---

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

Citation:

---

Envoyé par Ormonth

Code:

---

1 2 3 4

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

---

est très sale...

---

Tout à fait d'accord :mouarf:

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

Citation:

---

j'ai sélectionné toute la feuille

---

Le code devient simplement: *ludique* :mrgreen:

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 !!! :ccool:

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

Citation:

---

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