Discussion :

[Remi_54500]

Bonjour,

Voila j'ai commencé une macro mais je suis bloqué.

Ce que je voudrais c'est :
Si ma cellule A72 est vide, alors aller à la cellule N+1
Si ma cellule n'est pas vide, alors excuter la formule "IF(RC[-11]=""ITEM"",""Unit price"",VLOOKUP(RC[-3],[Electrical_codebook_SES.xlsx]Codebook!C1:C6,6,FALSE))"


Savez vous ce que je dois rajouter ?

Je suppose que je dois ajouter du VBA juste en dessous du "10" mais je ne sais pas quoi.

Ma macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test()
'
' test Macro
'
i = 0
'
For i = 72 To 12000
 
Sheets("BOM").Select
'
    Cells(i, 1).Select
    If ActiveCell = "" Then GoTo 10
'
 Cells(i, 12).Select
ActiveCell.FormulaR1C1 = "=IF(RC[-11]=""ITEM"",""Unit price"",VLOOKUP(RC[-3],[Electrical_codebook_SES.xlsx]Codebook!C1:C6,6,FALSE))"
 
Next i
 
10
 
 
 
End Sub

Merci d'avance pour votre aide.

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
With Sheets("BOM")
    For i = 72 To 12000
        If Trim("" & .Cells(i, 1)) <> "" Then
            .Cells(i, 12).FormulaR1C1 = "=IF(RC[-11]=""ITEM"",""Unit price"",VLOOKUP(RC[-3],[Electrical_codebook_SES.xlsx]Codebook!C1:C6,6,FALSE))"
        End If
    Next i
End With

[Marc-L]

Salut Robert !

Au lieu d'une usine à gaz avec une boucle, vaut mieux affecter à la plage entière une formule contenant la condition,
l'exécution serait bien plus rapide …


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Invité]

Salut Marc,
D'accord avec toi il faut juste modifier la formule pour tester les nuls!

[Remi_54500]

Super ca marche

Par contre comment faire pour la même chose mais dans la colonne d'après ?
Du style
Si ma cellule A72 est vide, alors aller à la cellule N+1
Si ma cellule n'est pas vide, alors excuter la formule "IF(RC[-11]=""ITEM"",""Unit price"",VLOOKUP(RC[-3],[Electrical_codebook_SES.xlsx]Codebook!C1:C6,6,FALSE))" dans la colonne L et la formule ..... (pas encore defini) dans la colonne M ?

[Philippe Tulliez]

Bonjour,

Au lieu d'une usine à gaz avec une boucle, vaut mieux affecter à la plage entière une formule contenant la condition, l'exécution serait bien plus rapide …

Je ne peux qu'abonder dans le sens de Marc.

Par contre comment faire pour la même chose mais dans la colonne d'après ?
Du style
Si ma cellule A72 est vide, alors aller à la cellule N+1
Si ma cellule n'est pas vide, alors excuter la formule "IF(RC[-11]=""ITEM"",""Unit price"",VLOOKUP(RC[-3],[Electrical_codebook_SES.xlsx]Codebook!C1:C6,6,FALSE))" dans la colonne L et la formule ..... (pas encore defini) dans la colonne M ?

Ces deux billets pourront t'aider sans doute à comprendre comment écrire une formule à l'aide VBA Ecrire une formule dans Excel à l'aide d'une procédure VBA et la suite Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2)