Discussion :

[Elstak]

Salut,

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

Code :

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

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 :

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

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.

[illight]

Code :

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

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 :

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

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 ?

[Vesta]

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

Code :

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

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

ou

Code :

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

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

ou si ca va pas

Code :

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

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

[Elstak]

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 :

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

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 :

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

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 :

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

1
2
 
Worksheets("noms1").Select

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

Code :

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

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