Discussion :

[Sebphyto]

Bonsoir à tous,

Aller encore un défi pour moi même avec votre aide,

Voici comment cela se présente:



Comme vous pouvez le voir sur l'image, dans certaine case, j'ai des "calculs", et j'aimerai savoir comment l'appliquer sur une feuille entière à chaque ligne sans devoir l'étirer à chaque fois.

une function peut-être?

Je bosse de mon côté pour vous dire...

Seb

[tamtam64]

voici pour toi

Code :

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

1
2
3
4
5
6
7
8
9
10
    'recopie formule
Sub RecopyFormula(ByVal xlsheet As Worksheet)
    Dim lastRow As Long
    Dim MyRange As Range
    With xlsheet
        lastRow = .Cells(1, 2).End(xlDown).Row
        .Range("A3").AutoFill Destination:=.Range(.Range("A3"), .Range("A" & lastRow)), Type:=xlFillDefault
        Calculate
End With
End Sub

voila n'oublie pas de mettre résolu

[Sebphyto]

Merci pour ta participation,

si je comprends bien, ton code recopie une formule située en A3 et l'applique à toute la colonne A?

Donc il faut que j'applique ton code à chaque "colonne" contenant une formule!!!

Et si je fait comme cela j'ai pas testé encore:

Code :

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

1
2
3
4
5
6
7
8
9
10
'recopie formule
Sub RecopyFormula(ByVal xlsheet As Worksheet)
    Dim lastRow As Long
    Dim MyRange As Range
    With xlsheet
        lastRow = .Cells(1, 2).End(xlDown).Row
        .Range("A3:AR3").AutoFill Destination:=.Range(.Range("A3:AR3"), .Range("A" & lastRow)), Type:=xlFillDefault
        Calculate
End With
End Sub

Bon WE
Seb

[tamtam64]

Code :

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

1
2
3
4
5
6
7
8
9
10
'recopie formule
Sub RecopyFormula(ByVal xlsheet As Worksheet)
    Dim lastRow As Long
    Dim MyRange As Range
    With xlsheet
        lastRow = .Cells(1, 2).End(xlDown).Row
        .Range("A3:AR3").AutoFill Destination:=.Range(.Range("A3:AR3"), .Range("A" & lastRow)), Type:=xlFillDefault
        Calculate
End With
End Sub

c'est exactement ca c'est super pour mettre un graphique a jour c'est la methode autofill

[Sebphyto]

Re,

Il risque d avoir un problème ici je pense:

Code :

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

Range("A3:AR3").AutoFill Destination:=.Range(.Range("A3:AR3"), .Range("A" & lastRow)), Type:=xlFillDefault

Avec le

Code :

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

.Range("A" & lastRow)),

Seb

[tamtam64]

je l'ai definie comme la derniere ligne pourquoi il y aurait un pb ?
par contre c'est

Code :

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

Range("A3:AR3").AutoFill Destination:=.Range(.Range("A3:AR3"), .Range("AR" & lastRow)), Type:=xlFillDefault

tu veux prendre la derniere ligne de ton range si je ne me trompe pas . Explique moi car ca marche , apres c'est vrai que je l'ai pas adapté , mais si vraiment tu galere passe moi les données je vais l'adapter , c'est un copié d'un de mes code , je m'en sert pour mettre a jour des graphiques