XL 2010 Décaler d'une ligne vers le bas

[cysalea]

Bonjour à tous,

Je tourne mon problème dans tous les sens et je coince !

Je cherche à décaler de 2 lignes vers le bas à partir de ma dernière cellule active de mon fichier.

Dans mon exemple, je cherche à me positionner en A28.

Mais si mon tableau va jusqu'au la ligne 31, par exemple, je veux pouvoir me positionner en A33.

J'ai utilisé la fonction Offset mais je n'arrive pas à me positionner dans la dernière cellule active de mon tableau.

Merci pour votre aide.

 

[Modeste]

Bonjour cysalea,

Se décaler de 2 lignes, dans un fichier vide ... c'est un peu compliqué!
Tu cherches une formule ou une macro?
Se décaler de 2 lignes pour faire quoi?
Comment détermine-t-on que ton "tableau va jusqu'en ligne 31"?

Dis-nous en un peu plus!

 

[vgendron]

Bonjour

avec la fonction usedrange, excel est capable de te determiner la zone utilisée avec du contenu ET /OU de la mise en forme
(la fonction currentregion, ne regarde que les cellules contenant quelque chose (valeur ou formule)
et ta fonction offset, telle que tu dois certainement utiliser a besoin (comme la fonction currentregion) d'une cellule depart contenant quelque chose..

bref..
nb = ActiveSheet.UsedRange.Rows.Count
Cells(nb + 2, 1).Select

 

[cysalea]

Merci de ton aide, ça à l'air de fonctionner.
A bientôt !

 

[cysalea]

Bonjour,

Je suis toujours dans mon histoire de décaler vers le bas !

Cette fois il s'agit de concaténer les valeurs de la colonne A et celles de la colonne B (à mettre en C).

Je voudrais "tirer" cette formule vers le bas càd que la formule se fasse quelque soit mon nombre de ligne ou il y a des données (peut-être 1 ligne, ou 10 ...etc)

J'ai utilisé Selection.End(xlDown).Select et ActiveCell.Offset(1, 0) mais je ne dois pas faire comme il faut.

Peux tu m'aider encore ?

Merci

 

[vgendron]

Hello
Pourrais tu envoyer ton fichier AVEC les macros..
sinon, aller voir du coté de Filldown.

 

[cysalea]

Je remet un fichier avec plus d'explication (enfin j'espère !!)
Merci beaucoup pour ton aide

 

[vgendron]

Bon. je ne vois toujours pas de macro dans ton fichier...

à adapter

Sub tirerformule()

Range("C2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],"" "",RC[-1])"
Range("C2:C" & Range("A" & Rows.Count).End(xlUp).Row).FillDown

End Sub

 

[cysalea]

Merci beaucoup Vgendron
Tes petites astuces m'aident beaucoup.
J'ai adapté pour ma macro et ça fonctionne au top.

A bientôt

 

[Yurperqod]

Bonjour le forum

On peut aussi inscrire directement la formule sans utiliser filldown

Range("C2:C" & Range("A" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=CONCATENATE(RC[-2],"" "",RC[-1])"

 

[cysalea]

Bonjour le forum

On peut aussi inscrire directement la formule sans utiliser filldown

Range("C2:C" & Range("A" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=CONCATENATE(RC[-2],"" "",RC[-1])"

Merci de ton aide