Discussion :

[ALEX80800]

Bonjour,

Je m'oppose à un souci pour des raisons de traitement j'ai réduit le nombre de données à 6 lignes car sinon j'ai un temps de traitement long pour 2500 lignes

J'ai effectué une boucle qui effectue la somme de plusieurs colonnes
puis je demande à ne récupérer que la valeur
puis je supprime les colonnes qui ne me serve pas.

Le résultat final me restitue que la valeur de la 6° ligne

Alors que si je ne mets pas Columns.delete
Les calculs s'effectuent bien sur toutes les lignes.

Je suis perplexe sur l'utilisation de Colimns.delete

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
25
26
27
Sub AjSup()
Dim i As Long, j As Long
Dim Trouve As Boolean
Dim Wb As Workbook
Dim Ws As Worksheet
 
For Each Wb In Application.Workbooks
    If Wb.Name Like "rcv*" Then
        Trouve = True
        Exit For
    End If
Next Wb
 
If Trouve Then
    Set Ws = Wb.Worksheets(1)
    i = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Row
    With Ws
     For k = 2 To i
    .Range("Q" & k).Value = "=SUM(I" & k & ":P" & k & ")"
    .Range("Q" & k).Value = Ws.Range("Q" & k).Value
    '.Columns("I:O").Delete
     Next k
    End With
    Set Ws = Nothing
    Set Wb = Nothing
End If
End Sub

Anoter qu' après traitement, je dois supprimer toutes les lignes dont le résultat affiche 0 pour Q avant suppression de colonnes ou I après suppression des colonnes

Si vous aviez également une solution pour raccourcir le temps de traitement de ma macro
Merci de votre aide

[casefayere]

Bonsoir,
essayes ce code (je n'ai pas testé)

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
Sub AjSup()
Dim i As Long
Dim Wb As Workbook
Dim Ws As Worksheet
 
For Each Wb In Application.Workbooks
  If Wb.Name Like "rcv*" Then
    Set Ws = Wb.Worksheets(1)
    i = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Row
    With Ws
      .Range("Q" & k).Value = WorksheetFunction.Sum(.Range("I2:P" & i))
      .Range("Q" & k).Value = Ws.Range("Q" & k).Value
      .Columns("I:O").Delete
    End With
    Set Ws = Nothing
    Set Wb = Nothing
  End If
Next Wb
Set Ws = Nothing
Set Wb = Nothing
End If
End Sub

[ALEX80800]

Hélas Non, toujours le même résultat

Voici le code rectifié

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
25
26
27
Sub AjSup()
Dim i As Long, j As Long
Dim Trouve As Boolean
Dim Wb As Workbook
Dim Ws As Worksheet
 
For Each Wb In Application.Workbooks
    If Wb.Name Like "rcv*" Then
        Trouve = True
        Exit For
    End If
Next Wb
 
If Trouve Then
    Set Ws = Wb.Worksheets(1)
    i = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Row
    With Ws
     For k = 2 To i
    .Range("Q" & k).Value = WorksheetFunction.Sum(.Range("i" & k & ":p" & k))
    .Range("Q" & k).Value = Ws.Range("Q" & k).Value
    .Columns("I:P").Delete
     Next k
    End With
    Set Ws = Nothing
    Set Wb = Nothing
End If
End Sub

[casefayere]

Avant de mieux te répondre, quand je vois ça

Code :

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

For Each Wb In Application.Workbooks

travailles-tu sur plusieurs classeurs ?

[ALEX80800]

Oui effectivement mais il n'y a qu'un seul classeur qui porte le nom de "rcv".

Mais je suis obligé d'effectuer une For Next car selon l'extraction du requêteur, il a une numérotation qui s'effectue après le mot "rcv"

[parmi]

Bonjour,

Pourquoi .Value plutôt que .Formula ?

Code :

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

.Range("Q" & k).Value = "=SUM(I" & k & ":P" & k & ")"

Une fois toutes tes formules inscrites, tu pourrais faire un copier/coller en valeur de la colonne avant de supprimer celle(s) que tu veux...

Mais j'ai peut-être manqué quelque chose...(?)

[ALEX80800]

Oui tu as raison mais j'avais pensé que en mettant value cela ne ressorté que la valeur et non pas la formule de calcul.
Et je n'ai pas rectifié après coup.

Mais même si je change j'ai toujours la même résultante

Et pour le copier coller c'est ce que j'ai fait non?

Code :

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

.Range("Q" & k).Value = Ws.Range("Q" & k).Value