[VBA-E]Eviter les selections

Salut,

j'ai vu que les selections pernaient du temps et je voudrais donc voir si il etait possible d'ameliorer ca :

Code:

---

1 2 3

Worksheets("noms1").Select [A1].Select PremiereLigneLibre = Selection.CurrentRegion.End(xlDown).Row

---

sachant que j'ai des valeurs de A1 à C5 (pour le moment, ensuite des lignes comprenant toutes 3 colonnes peuvent se rajouter)

c'est pourquoi je selectionne une cellule qui est sure d'avoir une valeur. juste avant cela je rend la page "noms1" visible pourtant, il semble qu'elle n'est pas automatiquement selectionnée car sans les 2 premieres lignes de mon code, j'ai une erreur (depassement de capacité) ce qui montre qu'il ne selectionne pas la bonne page et reste sur feuil1 qui est vierge.

au moins est-il possible de regrouper mes 2 premieres ligne en 1 seule?

Code:

---

Worksheets("noms1").range("A1").Select

---

un truc comme ca mais qui ne me met pas d'erreur sur l'utilisation de "range"

voilà, mon conde fonctionne je voudrais juste voir si c'est possible de l'ameliorer. :)

Code:

---

1 2 3

Worksheets("noms1").Select [A1].Select PremiereLigneLibre = Selection.CurrentRegion.End(xlDown).Row

---

Tu l'a essayé cette ligne de code ? ça te fait quoi ?

Sinon ce que tu peux faire aussi c'est une définition de variable :

Code:

---

1 2 3 4 5

dim f as worksheet dim p as range set f = worksheets("noms1") set p = f.range("A1:C5")

---

mais normalement ta ligne que tu as mise au dessus marche non ?

[LEFT]Je sais pas tester ici mais ca devrait être qqch du genre

Code:

---

1 2	Worksheets("noms1").cells(1,1).currentregion.End(xlDown).Row

---

ou

Code:

---

Worksheets("noms1").range("A1").currentregion.End(xlDown).Row

---

ou si ca va pas

Code:

---

Worksheets("noms1").range("A1:A1").currentregion.End(xlDown).Row

---

me revoilà,

PremiereLigneLibre donne ici le Num de la derniere ligne utilisée donc pour l'exemple il donne 5.

mon rang ne sera pas toujours A1:C5, et oui illight, ma derneire ligne marche comme jel'ai dit ! je cherche juste à améliorer !

alors pour toi vesta, ta solution :

Code:

---

1 2 3 4

DerniereLigne = Worksheets("noms1").Range("A1").CurrentRegion.End(xlDown).Row   MsgBox DerniereLigne

---

(j'ai renommé par derniereligne qui convient mieux)
elle convient mais il me compte le nombre de ligne de "noms1" (5) mais par exemple voici le code qui suit

Code:

---

1 2 3

If MenuGeneral.OptionButton1 = True Then Cells(DerniereLigne + 1, 3).Value = 1

---

(cette condition est vraie) il me copie "1" dans la ligne 6 de la colonne C, donc ce que je souhaite faire, sauf qu'il copie ca dans feuil1 et pas dans "noms1" donc je suis obligé de mettre

Code:

---

1 2	Worksheets("noms1").Select

---

avant ta ligne.
enfin cette solution me permet deja de ne plus avoir la ligne

Code:

---

1 2	[A1].Select

---

donc je "gagne" un select. J'attends encore un peu pour voir si personne n'a une meilleure idée mais là c'est déjà mieux :D