Bonjour à tous,
Je me permet de venir vers vous pour solliciter votre aide. Dans mon fichier excel j'ai besoin, via une macro, de remplacer toutes les cellules vides d'une plage par une formule RechercheV. J'ai construit une macro qui fonctionne (en cherchant sur internet), elle fonctionne, cependant je la trouve très lente car elle tourne environ 2 minutes pour une petite plage de 500 lignes au sein d'une colonne bien spécifique.
Voici le code :
Je ne m'y connais pas vraiment en macro. Voyez vous un moyen d’accélérer le processus ?
Le but étant de faire en sorte que si les cellules de la plage (S6;S505), S étant ma colonne 19, et bien le contenu soit automatiquement remplacé par la formule citée dans le code.
Avec mon code je pense que la macro check les cellules une par une, ce qui prend du temps.
Si vous avez un raccourci en tête je suis preneur.
Merci d'avance =)
Je me permet de venir vers vous pour solliciter votre aide. Dans mon fichier excel j'ai besoin, via une macro, de remplacer toutes les cellules vides d'une plage par une formule RechercheV. J'ai construit une macro qui fonctionne (en cherchant sur internet), elle fonctionne, cependant je la trouve très lente car elle tourne environ 2 minutes pour une petite plage de 500 lignes au sein d'une colonne bien spécifique.
Voici le code :
VB:
Sub VPcleaning()
'
'
Sheets("Detailed Assessment").Select
Dim I As Long
With Sheets("Detailed Assessment")
.Activate
For I = 6 To 505
If .Cells(I, 19) = "" Then
.Cells(I, 19).FormulaR1C1 = "=IF(RC[-17]="""","""",VLOOKUP(RC[-17],Data!C[-18]:C[9],28,FALSE))"
End If
Next I
End With
End Sub
Je ne m'y connais pas vraiment en macro. Voyez vous un moyen d’accélérer le processus ?
Le but étant de faire en sorte que si les cellules de la plage (S6;S505), S étant ma colonne 19, et bien le contenu soit automatiquement remplacé par la formule citée dans le code.
Avec mon code je pense que la macro check les cellules une par une, ce qui prend du temps.
Si vous avez un raccourci en tête je suis preneur.
Merci d'avance =)