Bonjour à tous,
j'ai un code qui cherche la valeur qui se trouve à droite de la cellule active dans un autre onglet et qui vient ensuite inscrire une nouvelle valeur à droite de la valeur trouvée.
Jusque là tout va bien, ça fonctionne parfaitement .
Mon seul soucis est la lenteur de ce processus.
Voilà le code:
et voilà la ligne fautive:
et c'est plus spécialement le Columns.Count - 4 qui ralentit le processus.
Y'a t'il un moyen d'accélérer le process ?
Merci
j'ai un code qui cherche la valeur qui se trouve à droite de la cellule active dans un autre onglet et qui vient ensuite inscrire une nouvelle valeur à droite de la valeur trouvée.
Jusque là tout va bien, ça fonctionne parfaitement .
Mon seul soucis est la lenteur de ce processus.
Voilà le code:
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
If Not Application.Intersect(Target, Range("I:I")) Is Nothing Then
Call CouleurJaune
Call CopieImpression
End If
If Intersect(Target, [I:I]) Is Nothing Or CStr(Target(1, 3)) = "" Then Exit Sub
Cancel = True
With Feuil1
Set c = .Columns(5).Resize(, .Columns.Count - 4).Find(CStr(Target(1, 3)), , xlValues, xlWhole)
End With
If Not c Is Nothing Then Application.Goto c.Offset(, 2)
Worksheets("PLANNING").Activate
ActiveCell.Value = "PL"
Worksheets("TABLEAU DE BORD").Activate
End Sub
et voilà la ligne fautive:
Code:
Set c = .Columns(5).Resize(, .Columns.Count - 4).Find(CStr(Target(1, 3)), , xlValues, xlWhole)
et c'est plus spécialement le Columns.Count - 4 qui ralentit le processus.
Y'a t'il un moyen d'accélérer le process ?
Merci