Discussion :

[jose23]

Bonjour,

Comment je pourrai faire une boucle qui se déplace vers la colonne suivante après avoir fini le calcul dans cette Colonne

Code :

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

1
2
3
4
Sub calcul_mom()
Dim DernLigne As Long
DernLigne = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row                        
Sheets("Sheet1").Range("D26").AutoFill Destination:=Range("D26: D" & DernLigne)                            'glisse la formule jusqu'à la dernière ligne

Merci pour votre aide

[Invité]

Bonjour,

qui se déplace vers la conne suivante

C'est qui ?

A tester :

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
24
 
Option Explicit
 
Sub Calcul_mom(ByVal FeuilleCalcul As Worksheet)
 
Dim DerniereLigne As Long, DerniereLigneColonne As Long, ColonneEnCours As Long
 
    With FeuilleCalcul
         DerniereLigne = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
         For ColonneEnCours = 4 To .UsedRange.SpecialCells(xlCellTypeLastCell).Column
             DerniereLigneColonne = .Cells(.Rows.Count, ColonneEnCours).End(xlUp).Row
             If DerniereLigne > DerniereLigneColonne Then
                .Cells(DerniereLigneColonne, ColonneEnCours).AutoFill Destination:=.Range(.Cells(DerniereLigneColonne, ColonneEnCours), .Cells(DerniereLigne, ColonneEnCours))
             End If
         Next ColonneEnCours
   End With
 
End Sub
 
Sub Test()
 
    Calcul_mom Sheets(1)
 
End Sub

[Menhir]

Comment je pourrai faire une boucle qui se déplace vers la colonne suivante après avoir fini le calcul dans cette Colonne

Dans ta dernière ligne, tu remplaces tes Range par des Cells (c'est bien plus pratique pour désigner une colonne par son numéro que par une lettre).
https://msdn.microsoft.com/fr-fr/VBA...e-object-excel

Tu fais une boucle For To sur le n° de colonne.
https://msdn.microsoft.com/fr-fr/VBA...next-statement

[jose23]

Vous pouvez retrouver une partie du fichier sur lequel je travaille en pièce jointe

Le but de la macro serai d'aller a la dernière ligne de A pour faire glisser la formule de D jusqu'en bas, après dernière ligne de E pour faire glisser la formule de H jusqu'en bas et ainsi de suite jusqu'à la colonne KS

Menhir, je ne peux pas remplacer pas Cells car il me dis que .AutoFill Destination n'est pas supporté par cells

[Invité]

As-tu au moins essayé le code fourni ?

[Menhir]

Vous pouvez retrouver une partie du fichier sur lequel je travaille en pièce jointe

J'ai l'impression que ça veut dire : "si vous pouviez faire mon travail à ma place, ça m'arrangerai, moi j'ai autre chose à faire que perdre mon temps à étudier vos solutions."

Pour ton info, deux lectures intéressantes :
https://www.developpez.net/forums/d8...s-discussions/
http://club.developpez.com/regles/#LIV-N

Menhir, je ne peux pas remplacer pas Cells car il me dis que .AutoFill Destination n'est pas supporté par cells

Bien sûr que si, à condition bien sûr de l'écrire correctement :

Code :

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

Sheets("Sheet1").Cells(26, 4).AutoFill Destination:=Sheets("Sheet1").Range(Sheets("Sheet1").Cells(26, 4), Sheets("Sheet1").Cells(DernLigne, 4))

ou bien, plus proprement :

Code :

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

1
2
3
With Sheets("Sheet1")
    .Cells(26, 4).AutoFill Destination:=.Range(.Cells(26, 4), .Cells(DernLigne, 4))
End With

Eric KERGRESSE ( ) t'avais d'ailleurs déjà montré comment faire dans son code.

[jose23]

Merci pour vos réponses,
mais ca ne marche pas vraiment car ca calcule jusqu'à la fin pour toutes les colonnes alors que le point d'arrêt est différent c'est pour ca que j'ai demandé de l'aide

Comme vous le voyez sur la pièce jointe il remplit les cellules pour arriver au même niveau sur chaque colonne

[Invité]

C'est quoi la formule ?

[Menhir]

mais ca ne marche pas vraiment car ca calcule jusqu'à la fin pour toutes les colonnes alors que le point d'arrêt est différent

Comment est déterminé ton "point d'arrêt" ?
Désolé mais cette copie d'écran ne permet pas de comprendre ce que tu veux faire.