counterbob
XLDnaute Nouveau
Bonjour
j'ai réalisé ce code mais je le trouve assez lent à se dérouler.
Il y a-t-il un moyen efficace pour que ce code s'exécute plus rapidement ?
Merci
Sub FormOKKO()
'sélection de la cellule H2
Range("H2").Select ' curseur sur A2
'compteur de 1 à 100 à changer jusque 1000
For compteur = 1 To 100
'insere la formule si la valeur de la cellule de gauche est égale à la date du jour
If ActiveCell.Offset(0, -1) = Date Then
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>TODAY(),""KO"",""OK"")"
' sinon si vide la valeur est vide
If ActiveCell.Offset(0, -1) = "" Then
ActiveCell = ""
End If
End If
ActiveCell.Offset(1, 0).Select
Next compteur
'sélection cellule I2
Range("I2").Select ' curseur sur A1
For compteur = 1 To 100
'si la valeur de la cellule -é de gauche = date du jour
If ActiveCell.Offset(0, -2) = Date Then
ActiveCell.FormulaR1C1 = "=IF(SUM(RC[2]:RC[14])=1,""OK"",IF(RC[-3]=1,""OK"",""KO""))"
If ActiveCell.Offset(0, -2) = "" Then
ActiveCell = ""
End If
End If
ActiveCell.Offset(1, 0).Select
Next compteur
End Sub
j'ai réalisé ce code mais je le trouve assez lent à se dérouler.
Il y a-t-il un moyen efficace pour que ce code s'exécute plus rapidement ?
Merci
Sub FormOKKO()
'sélection de la cellule H2
Range("H2").Select ' curseur sur A2
'compteur de 1 à 100 à changer jusque 1000
For compteur = 1 To 100
'insere la formule si la valeur de la cellule de gauche est égale à la date du jour
If ActiveCell.Offset(0, -1) = Date Then
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>TODAY(),""KO"",""OK"")"
' sinon si vide la valeur est vide
If ActiveCell.Offset(0, -1) = "" Then
ActiveCell = ""
End If
End If
ActiveCell.Offset(1, 0).Select
Next compteur
'sélection cellule I2
Range("I2").Select ' curseur sur A1
For compteur = 1 To 100
'si la valeur de la cellule -é de gauche = date du jour
If ActiveCell.Offset(0, -2) = Date Then
ActiveCell.FormulaR1C1 = "=IF(SUM(RC[2]:RC[14])=1,""OK"",IF(RC[-3]=1,""OK"",""KO""))"
If ActiveCell.Offset(0, -2) = "" Then
ActiveCell = ""
End If
End If
ActiveCell.Offset(1, 0).Select
Next compteur
End Sub