Discussion :

[S l i d e]

Bonjour,

Dans un classeur de 2 feuilles,
sur la 2ème feuille, à la 2ème ligne, j'ai un ensemble de formule (une par colonne)

Ces formules sont en rapport avec la 1ére feuille.(meme ligne meme colonne)

Mon but est d'arriver à étirer les formules (dans la feuille 2) jusqu'au numero de ligne de la dernière ligne de la feuille 1

Ma 2eme feuille est une sorte de mirroir de ma feuille 1. la feuille 1 contient les données. la 2 contient le resultat des formules.


Quelqu'un aurait une p'tite idée?

Merci

[flo_flo]

Tu as fait une recherche avec "dernière ligne" ?

Si oui, tu es tombé sur cet excellent thread

Bonne lecture

[Oh!Tofocus]

Salut

Ces formules sont en rapport avec la 1ére feuille

les formules sont elles toutes identiques ?
si oui quelle est-elle ?

[S l i d e]

Merci flo_flo

Oh!Tofocus: Non chaque colonne a sa propre formule.

[Oh!Tofocus]

C'est peut être un peu lourd mais
tu peux toujours créer test propres fonction qui integreraient les bonnes info du tuto citées par flo_flo

Code :

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

1
2
3
4
 
Function MaBidouille1()
.........
End Function

[S l i d e]

Bon voila ce que j'ai trouvé:

Code :

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

1
2
3
4
5
6
7
Sub test()
 derligne_01 = Range("A65536").End(xlUp).Row
  Range("E1").Select
 Selection.AutoFill Destination:=Range("E1" & ":" & "E" & derligne_01)
 Range("E1" & ":" & "E" & derligne_01).Select
 
 End Sub

Ca marche niquel.

Maintenant je veu etirer la formule non pas a partir de la feuil1 mais de la feuil2.

Voila ce que j'ai trouvé:

Code :

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

1
2
3
4
5
6
7
8
Sub test()
 derligne_01 = Range("A65536").End(xlUp).Row
Sheets("Feuil2").Select 
Range("E1").Select
 Selection.AutoFill Destination:=Range("E1" & ":" & "E" & derligne_01)
 Range("E1" & ":" & "E" & derligne_01).Select
 
 End Sub

Et ca ne marche plus.

Quelqu'un a une idée?

[S l i d e]

Ba si en fait ca marche !!!!!!

C'est bon j'ai trouvé.

Merci à flo_flo et Oh!Tofocus pour leur aide.

[Oh!Tofocus]

BRAVO

pour ma part j'utilise aussi

Code :

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

1
2
 
Derniere_Ligne = Range("A65536").End(xlUp).Row

car avec

Code :

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

1
2
 
Derniere_Ligne = Range("A1").End(xlDown).Row

on ne détecte pas forcement la dernière ligne utilisée si une cellule vide s'intercale dans la colonne!

A+ et bon codage