Discussion :

[Summer789]

Bonjour !

J'aimerai faire une macro permettant d'étirer une formule vers le bas jusqu'à la ligne 166. (de la feuille IMB)

La colonne est variable, j'effectue la manipulation chaque semaine.

Pour cela j'ai préparé une formule dans la lignes 3 de chaque colonne, ensuite j'effectue une recherche de la première cellule vide sur la ligne 4 et je sélectionne la cellule au-dessus, ce qui me ramène à la cellule contenant la formule à étirer.

C'est là que je bloque, je ne sais pas comment étirer jusqu'à la ligne 166 sans définir la colonne.

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Etirer les formules
 
    Sheets("IMB").Select
 
    Dim li3 As Integer
 
    li3 = ActiveCell.Row
 
    Cells(li3, 256).End(xlToLeft).Offset(0, 1).Select
 
    ActiveCell.Offset(-1, 0).Select

ainsi que le fichier Excel si besoin !

PM.xlsx

[Invité]

Bonjour,

Essayez ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub EtirerLesFormules()
 
Dim DerniereColonne As Integer, DerniereLigne As Integer, ColonneLigne4 As Integer
Dim AireSelectionnee As Range
 
  With Sheets("IMB")
 
       DerniereColonne = .Cells(3, .Columns.Count).End(xlToLeft).Column
       ColonneLigne4 = .Cells(4, .Columns.Count).End(xlToLeft).Column
       DerniereLigne = 166 ' .Cells(4, ColonneLigne4).End(xlDown).Row + 1
 
       If DerniereColonne > ColonneLigne4 Then
            Set AireSelectionnee = .Range(.Cells(3, ColonneLigne4 + 1), .Cells(DerniereLigne, DerniereColonne))
            AireSelectionnee.FillDown
            Set AireSelectionnee = Nothing
       Else
           MsgBox "Cellules déjà remplies !", vbCritical
       End If
 
  End With
 
End Sub

[Summer789]

Merci, ça fonctionne mais la macro étire les formules de plusieurs colonnes or j'aimerai qu'à chaque fois que j'applique la macro, seule la dernière colonne vide (à partir de la ligne 4) s'étire.

L'erreur : Variable objet ou variable de bloc With non définie m'est retournée :/

[Invité]

Merci, ça fonctionne mais la macro étire les formules de plusieurs colonnes or j'aimerai qu'à chaque fois que j'applique la macro, seule la dernière colonne vide (à partir de la ligne 4) s'étire.

Bonjour,

D'après vous, que faut-il modifier dans cette ligne ?

Code :

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

 Set AireSelectionnee = .Range(.Cells(3, ColonneLigne4 + 1), .Cells(DerniereLigne, DerniereColonne))

[Summer789]

Bonjour,

D'après vous, que faut-il modifier dans cette ligne ?

Code :

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

 Set AireSelectionnee = .Range(.Cells(3, ColonneLigne4 + 1), .Cells(DerniereLigne, DerniereColonne))

Ah super ! Je débute en VBA du coup ça m'a pris un peu de temps à comprendre la ligne mais j'ai trouvé !

Code :

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

 Set AireSelectionnee = .Range(.Cells(3, ColonneLigne4 + 1), .Cells(DerniereLigne, ColonneLigne4))

[/QUOTE]

Merci beaucoup pour vos réponses !

[Invité]

T'es sûre ?

Code :

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

Set AireSelectionnee = .Range(.Cells(3, DerniereColonne), .Cells(DerniereLigne, DerniereColonne))

[niniefen]

Bonjour,

Ce code marche très bien .

Mais je ne trouve pas la solution pour étirer jusqu'à la dernière ligne remplie en colonne A.

Auriez vous une solution? Merci pour votre aide

Essayez ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub EtirerLesFormules()
 
Dim DerniereColonne As Integer, DerniereLigne As Integer, ColonneLigne4 As Integer
Dim AireSelectionnee As Range
 
  With Sheets("IMB")
 
       DerniereColonne = .Cells(3, .Columns.Count).End(xlToLeft).Column
       ColonneLigne4 = .Cells(4, .Columns.Count).End(xlToLeft).Column
       DerniereLigne = 166 ' .Cells(4, ColonneLigne4).End(xlDown).Row + 1
 
       If DerniereColonne > ColonneLigne4 Then
            Set AireSelectionnee = .Range(.Cells(3, ColonneLigne4 + 1), .Cells(DerniereLigne, DerniereColonne))
            AireSelectionnee.FillDown
            Set AireSelectionnee = Nothing
       Else
           MsgBox "Cellules déjà remplies !", vbCritical
       End If
 
  End With
 
End Sub

[marot_r]

Bonjour.

J'essaierai :

Code :

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

1
2
3
4
dim colonne as long : colonne = activecell.column 'Détermine la colonne en cours
dim zone as range : zone=activesheet.range(activesheet.cells(4, colonne), activesheet.cells(166, colonne)) 'Détremine la zone où on doit appliquer la formule
zone.formulaR1C1=activesheet.cells(3, colonne).FornulaR1C1 'Applique la formule à la zone
set zone=Nothing 'Signale qu'on a plus besoin de zone

A+