Optimiser macro

[roisabri]

Salut les amis,
Je débute en VBA.
je veux bien optimiser cette macro, vu que le temps d’exécution est trop grand.

Merci d'avance.🙂

Sub calcul()
Dim Ma_Variable As String
Dim Cell As Range
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Colonne As Integer

Ma_Variable = ActiveCell.Value

For Each Cell In Sheets("Feuil5").Range("B:B")

If Cell.Value <> "" And Cell.Value = Ma_Variable Then
     
        Colonne = Cell.Column

        If Cell.Offset(0, Colonne - 1).Value = "1" Then
            i = i + 1
              
        ElseIf Cell.Offset(0, Colonne - 1).Value = "2" Then
            j = j + 1
              
        ElseIf Cell.Offset(0, Colonne - 1).Value = "3" Then
            k = k + 1
        
        End If
        
    End If
     
Next

  MsgBox i
       MsgBox j
             MsgBox k

End Sub

 

[pierrejean]

Re : Optimiser macro

Bonjour roisabri

Peut etre en limitant Range("B:B") dans le genre:

Range("B1:B" & range("B" & rows.count).end(xlup).row)

NB: Pas testé (et pour cause !!!!)

 

[roisabri]

Re : Optimiser macro

Merci beaucoup,
C'était bien ça , le temps de la réponse est devenue plus rapide.
En fait , j'essaye de comprendre ce que vous avez fait, j'ai mal à voir les choses.
Vous pouvez me commenter votre ligne de code?
Range("B1:B" & range("B" & rows.count).end(xlup).row)
row: ligne
end(xlup): la case la plus haute
range: cellule de case
!!
En tous cas merci 🙂

 

[pierrejean]

Re : Optimiser macro

Re

range("B" & rows.count).end(xlup).row

Est le numero de la derniere (end) ligne (row) de la colonne B non nulle par une recherche en remontant a partir de la cellule B65536 pour Xl2003 et B10....... (rows.count) pour XL2007 et Xl2010

 

[roisabri]

Re : Optimiser macro

Merci beaucoup pierrejean 🙂 géniale

 

[roisabri]

Re : Optimiser macro

Range("B1:B" & Range("B" & Rows.Count).End(xlUp).row)

A la place de la colonne B , je veux bien qu'elle soit la colonne de la cellule active.
J'ai modifié B par ActiveCell.Column et c'est un grand erreur.

Solution SVP?
Merci d'avance

 

[roisabri]

Re : Optimiser macro

Pour la modification
Range("B1:B" & Range("B" & Rows.Count).End(xlUp).row) ===> Range(ActiveCell, ActiveCell.End(xlDown))

c4EST PAS VRAIMENT CE QUE JE VEUX ? !!!

 

[pierrejean]

Re : Optimiser macro

Re

Teste:

Range(Cells(1, ActiveCell.Column).Address & ":" & Cells(Rows.Count, ActiveCell.Column).End(xlUp).Address)

 

[roisabri]

Re : Optimiser macro

Merci Beaucoup.
ça fait plus que 3 heures que je bloque sur ça .
une autre fois ,Merci beaucoup .

 

[ILAKAISER]

Re : Optimiser macro

Bonsoir à tout le monde et
Un Grand Merci à Pierrejean pour les explications et l'aide qu'il nous a toujours prodiguées.
Encore une fois, merci et toute ma reconnaissance. Grâce à vous, j'ai pu améliorer mes connaissances d'excel.
Ali

 

[ILAKAISER]

Re : Optimiser macro

Bonsoir à tout le monde et
Un Grand Merci à Pierrejean pour les explications et l'aide qu'il nous a toujours prodiguées.
Encore une fois, merci et toute ma reconnaissance. Grâce à vous, j'ai pu améliorer mes connaissances en excel.
Ali