VBA, erreur 1004
sharukh04
Messages postés
3
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
J'ai un problème avec une macro qui est censé mettre à jour une formule dans plusieurs cellule en fonction de la valeur d'une variable i. Voici le code :
""""
Sub MAJ()
Dim i As Integer
Dim k As Integer
' i = numéro de la journée
i = Cells(6, 21).Value
i = i + 1
k = (i - 1) * 10
Sheets(1).Activate
'Ajustement des formules
For j = 7 To 26
Cells(j, 73).Formula = "=IF(ISERROR(VLOOKUP(BC " & j & " ;$C$ " & k + 30 & " :$J$ " & k + 39 & " ;7;FALSE));VLOOKUP(BC " & j & " ;$G$ " & 30 + k & " :$J$ " & k + 39 & " ;4;FALSE);VLOOKUP(BC " & j & " ;$C$ " & k + 30 & " :$J$ " & k + 39 & " ;7;FALSE)) "
Next
Cells(6, 21).Value = i
Cells(1, 1).Select
Selection.Copy
End Sub
""""""
J'ai effectué des tests, et je me suis rendu compte que c'est le fait d'avoir un signe égale et des parenthèse dans la formule qui bloc ("=IF(.."). Par ailleurs si je met un espace entre le premier guillemet et le signe égale (ce qui donne " =IF(... ") sa marche. Mais alors excel ne le reconnaît plus comme étant une formule.
Voilà si vous pourriez m'aidez ??
Merci d'avance
Et si je ne suis pas clair, je m'en excuse et je peux vous éclaircir si vous m'en faites la demande !!
J'ai un problème avec une macro qui est censé mettre à jour une formule dans plusieurs cellule en fonction de la valeur d'une variable i. Voici le code :
""""
Sub MAJ()
Dim i As Integer
Dim k As Integer
' i = numéro de la journée
i = Cells(6, 21).Value
i = i + 1
k = (i - 1) * 10
Sheets(1).Activate
'Ajustement des formules
For j = 7 To 26
Cells(j, 73).Formula = "=IF(ISERROR(VLOOKUP(BC " & j & " ;$C$ " & k + 30 & " :$J$ " & k + 39 & " ;7;FALSE));VLOOKUP(BC " & j & " ;$G$ " & 30 + k & " :$J$ " & k + 39 & " ;4;FALSE);VLOOKUP(BC " & j & " ;$C$ " & k + 30 & " :$J$ " & k + 39 & " ;7;FALSE)) "
Next
Cells(6, 21).Value = i
Cells(1, 1).Select
Selection.Copy
End Sub
""""""
J'ai effectué des tests, et je me suis rendu compte que c'est le fait d'avoir un signe égale et des parenthèse dans la formule qui bloc ("=IF(.."). Par ailleurs si je met un espace entre le premier guillemet et le signe égale (ce qui donne " =IF(... ") sa marche. Mais alors excel ne le reconnaît plus comme étant une formule.
Voilà si vous pourriez m'aidez ??
Merci d'avance
Et si je ne suis pas clair, je m'en excuse et je peux vous éclaircir si vous m'en faites la demande !!
A voir également:
- VBA, erreur 1004
- Incompatibilité de type vba ✓ - Forum Programmation
- Erreur t32 ✓ - Forum Livebox
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Une erreur s'est produite instagram ✓ - Forum Instagram
- Erreur 0x80070643 - Accueil - Windows
j'ai essayé avec .formulalocal mais ça n marche toujours pas :(
t'as dautre idée ???