#1
Bonjour à tous,
J'ai essayé de modifier une macro qui fonctionnait très bien et depuis le message "Erreur 400" apparait. Je n'arrive pas à trouver d'où vient l'erreur surtout que quand je force la lecture de la macro l'action est parfaitement exéctuée. Si quelqu'un a un peu de temps pour regarder... Merci d'avance. Voivi le code pour ceux qui n'ouvrent pas les fichiers de n'importe qui:
Private Sub ListBox1_Click()
Dim WS As Worksheet
For Each WS In Sheets
If = stBox1 Then
MsgBox "Procédure annulée Feuille " & & " Existante! ", vbCritical, "Alert!!! " Exit Sub
End If
Next
Sheets("Matrix") After:=Sheets()
Sheets() = stBox1
End Sub
Sub Feuille()
'
' Feuille Macro
' Création des feuilles agents
' Touche de raccourci du clavier: Ctrl+Maj+Q
Set ListF = CreateObject("Scripting. Dictionary")
reenUpdating = False
ListF() =
Next WS
For Each c In Sheets("Liste")("A2:A" & Sheets("Liste")("A18")(xlUp))
If () Then msg = "La feuille " & & " existe déjà! ": Exit For
Sheets("Modèle") After:=Sheets()
Sheets() =
Sheets().
Erreur 400 Va Bien
Appuyer sur le premier bouton (le plus à gauche) puis celui du milieu, et là, l'erreur 400 apparaît. £ Merci! Dernière édition: le 26/12/2013 à 00:28 Banzai64 Fanatique d'Excel Messages 16'690 Votes 1'956 Excel 2003 FR (learning 2010 - 2013) Inscrit 21. 2010 Lieu Jurançon Bonsoir Désolé je ne t'aiderai pas sur ce problème, car l'erreur survient lors de l'interprétation de Worksheets(2)(i, 2) = (1 / 2) * ((a ^ 2 + b ^ 2 - n ^ 2) / (2 * a * b)) - (g * ()) / 360 'Valeur de alpha en radians' Et pour moi c'est aussi limpide que du café Bon Noël j jc27 Jeune membre Messages 17 Excel 2007 FR Donc en fait ce serait plus un problème de calcul plutôt qu'on problème de programmation ou lié à Excel réellement? Comment avez-vous su que le problème se situait à ce niveau? Merci Banzai64 Fanatique d'Excel Messages 16'690 Votes 1'956 Excel 2003 FR (learning 2010 - 2013) Inscrit 21. 2010 Lieu Jurançon Bonsoir Comme tu avais marqué que le problème arrivait suite à l'appuie sur le second bouton, j'ai fait du pas à pas dans la macro associée à ce bouton et de lors de l'exécution de la ligne ---> Plantage En faisant des recherches j'ai trouvé La syntaxe de la fonction Microsoft Excel ACOS est: ACOS (nombre) Paramètres ou arguments nombre est un nombre compris entre -1 et 1.
Erreur 400 Via Mobilis
Bonjour,
alors je vous explique mon problème:
j'ai fais une application excel qui comporte des liens avec plusieurs autres classeurs excel. J'ai un message d'erreur 400 quand je clique sur mon bouton "Quitter" qui ouvre puis remplit une feuille excel d'un autre classeur et ferme le classeur principal. Quand j'ouvre le classeur principal (sans faire aucune manip) et que je clique sur le bouton "Quitter" ça marche sans problème, par contre quand j'ouvre le classeur principal et que j'utilise l'application, après quand je clique sur "Quitter", j'ai "erreur 400". ça m'ennerve parce que je passe mes journées à trouver ce qu'il ne va pas et quand j'arrive à le faire marcher, le lendemain ça ne marche plus et re-erreur 400!!! Voici la macro qui est derrière le bouton "Quitter":
les variables visa, unit et colis sont des variables globales. visa as string, colis et unit as integer
Sub cmd_quitter_click()
'cette procédure vide entièrement les cellules de la feuille et enregistre puis ferme les classeurs excel puis ouvre et rempli celui des activités
'on enlève la protection de la feuille
Unprotect Password:="retours"
visa = Workbooks("").
J'avoue, c'est une macro copiée sur internet et je ne suis pas au bout de mes peines car je voudrais trier les données (colonne 1 puis colonne 2) afin de faire des si qqu'un peut m'aider déjà pour cette é D'AVANCE! nb59