Erreur 1004 VBA
gigi
-
Thorak83 Messages postés 1140 Statut Membre -
Thorak83 Messages postés 1140 Statut Membre -
Bonjour,
J'ai crée une macro permettant de calculer des devis sous certaines conditions. Pour selectionner ces conditions il faut mettre la lettre x dans certaines cellules.
Voici la ligne qui ne marche pas
J'ai testé la formule en dédoublant les guillemets des x sur excel directement et la formule marche très bien. Je ne comprends donc pas d'où vient l'erreur, peut être de la selection mais j'ai déjà plusieurs autres lignes faites sous le meme format qui marche très bien !! C'est donc pdv sans marge qui ne marche pas
'marge
Sheets("PAC").Range("r7:r2000").FormulaLocal = "=SI(A7=""x"";0,2;SI(C7=""x"";0,15;0,05))"
'PdV sans marge
Sheets("PAC").Range("u7:u2000").FormulaLocal = "=SI(ET(B7<>""x"";E7<>""x"";F7<>""x"");"";SI(F7=""x"";P7;SI(OU(A7=""x"";B7=""x"";C7=""x"";E7=""x"");N7;"")))"
'PdV
Sheets("PAC").Range("ad7:ad2000").FormulaLocal = "=sierreur(U7 * (1 + R7);"""")"
Merci d'avance :)
J'ai crée une macro permettant de calculer des devis sous certaines conditions. Pour selectionner ces conditions il faut mettre la lettre x dans certaines cellules.
Voici la ligne qui ne marche pas
J'ai testé la formule en dédoublant les guillemets des x sur excel directement et la formule marche très bien. Je ne comprends donc pas d'où vient l'erreur, peut être de la selection mais j'ai déjà plusieurs autres lignes faites sous le meme format qui marche très bien !! C'est donc pdv sans marge qui ne marche pas
'marge
Sheets("PAC").Range("r7:r2000").FormulaLocal = "=SI(A7=""x"";0,2;SI(C7=""x"";0,15;0,05))"
'PdV sans marge
Sheets("PAC").Range("u7:u2000").FormulaLocal = "=SI(ET(B7<>""x"";E7<>""x"";F7<>""x"");"";SI(F7=""x"";P7;SI(OU(A7=""x"";B7=""x"";C7=""x"";E7=""x"");N7;"")))"
'PdV
Sheets("PAC").Range("ad7:ad2000").FormulaLocal = "=sierreur(U7 * (1 + R7);"""")"
Merci d'avance :)
A voir également:
- Erreur 1004 VBA
- Incompatibilité de type vba ✓ - Forum Programmation
- Erreur t32 ✓ - Forum Livebox
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows