Fin +1

V

Venitien

XLDnaute Occasionnel

• 21 Juin 2012

• #2

Re : Fin +1

salut,

ajoute A=Fin + 1 sous ton code, et utilise la variable A ainsi crée pour référence.

Bonne journée!

PS: Tu peux peut-être ajouter +1 après .Row dans Fin mais je ne suis pas sûr que ça marche, a tester.

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 21 Juin 2012

• #3

Re : Fin +1

Salut poipoi, le Forum

Peut-être comme cela

Fin = Range("A3").End(xlDown).Row + 1

Cliquez pour agrandir...

Edit: Salut Venitien

Bonne Journée

 

Vote positif 0 Vote négatif

P

poipoi59

Guest

• 21 Juin 2012

• #4

Re : Fin +1

Merci pour vos réponses
Je me doutais que ma question n'était pas complète
En fait, je travaille sur une boucle ou je sélectionne des cellules jusqu'à la dernière non vide dans la feuille 1 que je colle dans une feuille 2 puis après je sélectionne à nouveau des cellules dans la feuille 1 (avec des filtres différents) jusqu'à la dernière non vide et j'aimerais alors les coller dans la cellule 2 mais après la dernière cellule copiée.

Je pense qu'il ne faut donc pas modifier Fin mais peut-être ajouter une nouvelle variable A par exemple

Ce serait donc

Dim A as integer
A = Fin +1
Range (a & A).select


Mais je doute que "Range (a & A).select" fonctionne
Qu'en pensez-vous ?

Merci,

Merci

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 21 Juin 2012

• #5

Re : Fin +1

Bonjour poipoi, Bonjour Venitien, Bonjour Dull 🙂,

@Venitien : Outre la solution de Dull qui donne directement la bonne valeur, si tu as besoin d'ajouter 1 à la valeur d'une variable et que tu n'as plus besoin de l'ancienne valeur, pas besoin de passer par un seconde variable, tu peux directement faire

Code:

Fin = Fin + 1

Edit :

essaye

Code:

Range ("A" & A).select

 

Vote positif 0 Vote négatif

V

Venitien

XLDnaute Occasionnel

• 21 Juin 2012

• #6

Re : Fin +1

Salut,
j’admets que tu n'as pas tors Tototiti mais je ne savais pas si poipoi avait ou non besoin de sa variable fin après ça, et à lire son dernier message je pense que c'est le cas.

@poipoi, Range("A" & A) fonctionnera très bien

a+

Eddit: Range("A" & A).Select pardon

 

Vote positif 0 Vote négatif

P

poipoi59

Guest

• 21 Juin 2012

• #7

Re : Fin +1

Désolé pour ma non-expertise,

Mais comment écrire ?
Fin=Fin +1
Range("a1:" & Fin).Select

ne marche pas

Merci

 

Vote positif 0 Vote négatif

V

Venitien

XLDnaute Occasionnel

• 21 Juin 2012

• #8

Re : Fin +1

Fin = Fin +1
Range("A" & Fin).Select

 

Vote positif 0 Vote négatif

P

poipoi59

Guest

• 21 Juin 2012

• #9

Re : Fin +1

Merci beaucoup à tous

Bonne fin de journée

 

Vote positif 0 Vote négatif