[VBA-E] currentregion ou UsedRange

**sebi78** · 04/04/2007, 16h03

Bonjour,

Je voudrais savoir si le compteur peut-etre réinitialiser. Car la sélection que je souhaite n'est plus la bonne.

Je m'explique. J'ai un tableau qui commence en a3 - t5. Ligne de titre a3 et a4. ( a1 et a2 sont vide ). Je copie ma ligne a5 à l'infini. Je souhaite sélectionner ma ligne 5 + n . En faisant mes tests de copie de ligne ma selection à l'évolue. Par contre sur mon tableau de base ou j'ai pas encore inserer de ligne, il me garde en memoire la sélection a5- a12 par exemple.
Peut-on réinitialiser le compteur ?

Code :

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

ActiveSheet.UsedRange.Rows("5:" & ActiveSheet.UsedRange.Rows.Count).Select

J'ai essayer d'utiliser cette fonction par contre. Je n'arrive pas à sélectionner que ma ligne 5 + n apres ajout de ligne. J'ai essayer d'adapter le code1 avec mon deuxième code sans succes.

Code :

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

ActiveSheet.Range("A3").CurrentRegion.Select

Je n'ai rien trouve sur ce site ou sur d'autre site.
Avez-vous une idee ?

**ouskel'n'or** · 04/04/2007, 19h52

Tu n'as pas dû chercher beaucoup

Regarde ici et ça date d'aujourd'hui... et c'est la compile d'un GRAND nombre de discussions.

Edit
Je viens de tenter l'expérience d'une recherche sur le forum VBA en mettant UsedRange comme mot clé, et là j'ai 10 réponses
Avec currentregion, j'ai 45 réponses

Tu es sûr d'avoir cherché ?

**sebi78** · 05/04/2007, 00h00

Bonjour,

J'ai regarde ses lignes de codes mais c'est pas ce que je recherche. De plus, je ne suis pas un specialiste.

**ouskel'n'or** · 05/04/2007, 00h59

J'ai regarde ses lignes de codes mais c'est pas ce que je recherche.

Tu es sûr ? pourtant il me semble bien que cette ligne correspond exactement à ce que tu veux.

Code :

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

1
2
3
4
'Indique toute la plage renseignée ou modifiée
    DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
ou
ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).EntireRow.Select

Sélectionne la dernière ligne renseignée de ta feuille de calculs.

De plus, je ne suis pas un specialiste.

Si tu veux utiliser VBA, tu t'apercevras que le code qui se trouve à l'adresse indiqué évoque l'utilisation aussi bien d'usedrange que currentregion. C'était bien ta question ?
Es-tu vraiment aller voir le code à l'adresse que je t'ai indiquée ? Et l'as-tu lu ?

**sebi78** · 05/04/2007, 14h54

Bonjour,

J'ai trouvé un contournement mais c'est super lourd .
Je supprime les lignes au lieu de les effacer. Comme cela il ne me garde pas en memoire mes copier-coller.

Merci quand meme. Mais les réponses sur le forum ou FAQ ne m'ont vraiment pas aide.

**ouskel'n'or** · 05/04/2007, 15h17

Pour effacer, c'est .clearContents à la place de .delete
Dur, quand on sait pas, de le trouver quelque part

Bon courage

**sebi78** · 05/04/2007, 18h31

bonjour,

Je pense que tu n'as pas compris mon probleme . Ma resolu s'est faite par suppression de ligne manuellement sans programme VBA.

Un peu merdique, je pense. Mais il fallait que je presente mon projet aujourd'hui. Pas encore robuste mais cela va venir.
Mais j'ai passe pas mal de temps à lire les FAQ et les differentes discussion sur le sujet. Et je n'ai rien trouve d'exploitable et comprehensible. Le systeme D ca marche plutot bien.

Je ne suis pas trop bete car j'ai reussi à faire pas mal de chose par moi meme. Malgre mes lacunes en programmation vba. Je ne suis pas programmateur. Et oui les choses simples pour quelqu'un qui a l'habitude peuvent etre compliqué pour les autres.

Medite sur cela : se mettre au niveau de quelqu'un et une forme d'intelligence.

bonne soiree quand meme. Sans rancune.