Modification de script VBA

Version imprimable

Bonjour,

J'aimerai adapter le script suivant pour qu'il fasse l'opération que si la cellule A est non vide et la cellule L est vide.

Ceci pour éviter qu'il recalcule depuis le debut (+ de 120 000 lignes)

Code:

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
28
29
30
31
32
33
34
35
36
37
Sub Formule_Category()
Application.Calculation = xlCalculationManual
Dim tableau(143, 1) As String
'Le nombre de lignes de la page Erreurs doit aller jusqu'à la ligne 143, sinon, adapter la valeur ci-dessus
 
'Alimentation tableau
j = 0
While Not IsEmpty(Worksheets("Erreurs").Range("A" & j + 1))
    tableau(j, 0) = Worksheets("Erreurs").Range("A" & j + 1).Text
    tableau(j, 1) = Worksheets("Erreurs").Range("B" & j + 1).Text
    j = j + 1
Wend
MsgBox "Tableau de correspondances rempli... OK pour continuer"
 
Sheets("INCIDENTS").Select
i = 2
While Not IsEmpty(Range("A" & i))
j = 0
  corresp = 0
  While corresp = 0
     If Range("J" & i) = "test1" Or Range("J" & i) = "test2" Then
        Range("L" & i) = "Test"
        corresp = 1
     Else
 
        If InStr((LCase(Range("D" & i).Text)), LCase(tableau(j, 0))) Then
              Range("L" & i) = tableau(j, 1)
              corresp = 1
 
        End If
     End If
     j = j + 1
   Wend
i = i + 1
Wend
Application.Calculation = xlCalculationAutomatic
End Sub

03/10/2014, 11h43
Marc-L

Bonjour,

merci de clôturer le précédent post dans le forum Excel !

Sinon je commencerais par filtrer les colonnes selon les critères puis modifierais uniquement les cellules visibles,

voir l'aide de AutoFilter (sans compter le Générateur de macros offrant sur un plateau une base de code !)

et de SpecialCells (voir aussi les exemples dans les discussions de ce forum) …
03/10/2014, 11h48
joe.levrai
Bonjour

je n'ai pas tout compris, et je ne sais pas si la modif doit être placée dans la première boucle While, la seconde, voir les deux

Donc je te laisse voir si c'est ce que tu cherches.

Mais à mon avis il faut changer de méthode (utiliser des filtres par exemple ?)

Boucle 1 : remplacer la ligne 8 par
Code:

1 2 3 While (Not IsEmpty(Range("A" & i)) And IsEmpty(Range("L" & i)))
Boucle 2 : remplacer la ligne 17 par
Code:

1 2 3 While (Not IsEmpty(Range("A" & i)) And Not IsEmpty(Range("L" & i)))
18/10/2014, 12h54
laurent27530

Bonjour,

je viens de modifier la ligne 17 il ne passe rien. Avez vous une autre solution

Merci d'avance
20/10/2014, 09h25
Nico Chg

Bonjour,

Citation:

je viens de modifier la ligne 17 il ne passe rien.

ça veut dire quoi ? ton code ne s’exécute plus ? Ton code n'écrit plus rien sur ta feuille Excel ? Tu as un message d'erreur ?

Sinon, quitte à faire des i = i+1, je te conseil d'utiliser des boucles FOR, et pas des wend ...

Et je te suggère d'essayer :

Code:

While (Range("A" & i) <> "" And Range("L" & i) = "")
20/10/2014, 16h33
laurent27530

Mon code n'écrit plus rien. Même avec

Code:

While (Range("A" & i) <> "" And Range("L" & i) = "")

en ligne 17.

J'ai une feuille qui contient plus 128000 lignes
Ma macro remplit la colonne la colonne L, toutes les semaines je rajoute des valeurs.
Ma macro s'exécute sur la totalité de la feuille alors qu'il faudrait qu'elle s'exécute que sur les lignes rajoutées.

Merci d'avance