J'ai le code suivant, qui est bien conforme. Cependant quand il fonctionne, il ajoute les bordures fines, mais la bordure épaisse me donne un Run-time 438 error. Border = ("A" &)(xlUp) Range("A3:H" & Border) With rders. LineStyle = xlContinuous = xlThin. ColorIndex = xlAutomatic End With Range("A3:H" & Border). BorderAround_ Weight = xlThick Mon objectif est de fournir des bordures autour de toutes les cellules, puis une bordure épaisse autour du bord. Toute aide est la bienvenue. Merci! Réponses: 4 pour la réponse № 1 Le problème résidait dans la différence entre le style de syntaxe de FrontièreAutour méthode et le Frontière objet. le Weight paramètre est une désignation de paramètre interne, pas une propriété (j'espère avoir décrit cela correctement! ). Dim border As Long border = ("A" &)(xlUp) With Range("A3:H" & border). Borders. Vba erreur 438 commands. LineStyle = xlContinuous Range("A3:H" & border). BorderAround Weight:=xlThick Notez l'utilisation de deux points égaux lors de l'attribution du poids à BorderAround.
Bonjour, Il y a quelques semaines j'ai développer une petite fonction dans un formulaire en access qui va chercher les mails dans une boite spécifique d'outlook et va vérifier et chercher des info de la base. Jusqu'à présent ca fonctionnait, mais depuis aujourd'hui rien va plus! J'ai chercher sur internet et trouver que cela pourrait venir de la securité des macro en outlook. Excel vba erreur 438. Le probleme c'est que le service concerné, m'assure qu'ils n'y a pas eu de changement (saurait pas le confirmer, j'avoue ne pas avoir été regarder auparravant à quel status était la sécurité). Pourtant j'ai bon regarder et ne trouve pas pourquoi j'ai maintenant l'erreur "Object doesn't support this property or method (Error 438)" qui apparait. Mon code est le suivant: Private Sub Bt_ExTransMail_Click() Dim olApp As New lication Dim olFold As IFolder Dim olItems As Dim olItem, nwItem As ilItem Dim Cmpt1, Cmpt2 As Integer Dim Rcd As Long Dim rst As cordset Cmpt1 = 0 Cmpt2 = 0 Set rst = Recordset("Qry_Supp_Pers") eFirst Set olApp = CreateObject("lication") Set olFold = tNamespace("MAPI").
Hyperlinks Worksheets("Feuil2")(i, 1). (1). Address A partir de quel moment ça pose pb? (j'ai remplacer Follow par Address car Follow est une méthode, donc pas de retour visualisable) Sinon, je ne comprend pas, follow est bien un membre de Hyperlink. Sinon, dans ton code, tu as toujours: Sans le (1), c'est normal? Excel - VBA erreur d'Exécution 438 apparaît lorsque “coller” fonctionne. 20 avril 2010 à 16:25 Re Le code suivant que j'essai tant bien que mal de "trafiquer" (étant donné mon niveau débutant) ne débugue plus mais rien ne se passe: Dim Lien As String Lien = If Cells(i, 13) = Lien Then Worksheets("Feuil2")(i, 13). (13). Address En réfléchissant, à ce que je veux atteindre, j'ai écris ce code "littéraire": "en cliquant sur la ligne i de ma listbox1 ((i)) Suivre le lien hypertexte de la cellule (i, 13) de la feuil2" J'ai donc tenté: Dim I as integer For i = 2 to 2000 (i)dress = Worksheet(? Feuil2? )(i, 13)dress Next Mais sans succès.... Que me conseils tu? 20 avril 2010 à 16:38 Je crois que tu ne m'a pas compris, quand je parlais de voir la valeur, c'était en utilisant l'espion (Shift+F9, puis "Ajouter") afin de voir si la méthode est gérée et où ça coince.
Bonjour J'ai une procédure VBA qui plante => erreur 438. Ce qui est surprenant c'est que selon la machine que j'utilise cela fonctionne alors que j'ai les mêmes versoin excel le débogueur me signale la fonction active sheet:If = "TOUTES REGIONS - 9999"... Avez vous une idée D'avance merci Private Sub Workbook_Open() 'MsgBox "Open 0" heets("SuiviActivité") 'WRegion = If = "TOUTES REGIONS - 9999" Then = "9999" = "TOUTES REGIONS - 9999" Else End If For i = 1 To 20 dItem tRegion(i, 2) & " - " & tRegion(i, 1) If tRegion(i + 1, 1) = "" Then i = 20 Next i ' = WRegion ActiveSheet. Unprotect Range("selREG"). FormulaR1C1 = Right(, 4) Range("selEDS"). FormulaR1C1 = Right(, 4) Range("SelEDSTit"). FormulaR1C1 = "Activité de la Caisse" Range("SelEDSTab"). Vba erreur 458 italia. FormulaR1C1 = "Régions" GoTo FinOpen
Je me demande bien... Je n'accepte pas de demande d' "amitié" individuelle. Tout développeur est pour moi un ami. Je n'ouvre AUCUN classeur tiers (avec ou sans macro ******). Ne m'en proposez donc pas. ******: Non, non... un classeur ne "peut" par exemple et entre autres pas contenir un activex (de surcroît invisible), "bien sûr"... Il est illusoire de penser que l'on saurait exprimer valablement et précisément en un langage (rigide) de développement ce que l'on peine à exprimer dans le langage naturel, bien plus souple. 10/05/2017, 11h20 #3 Bonjour Unparia, le sens de cette partie du code permet que la cellule de la feuille 6 prenne la valeur de la cellule de la feuille 1. Je viens de me rendre compte du problème que je rencontre. Visual Basic - Erreur 438, Propriété ou méthode non gérée par cet objet : Lien hypertexte dans. J'ai oublié le "Cells" (x, y) Je te remercie de ta réponse Unparia + Répondre à la discussion Cette discussion est résolue. Discussions similaires Réponses: 8 Dernier message: 26/01/2016, 14h42 Réponses: 5 Dernier message: 09/08/2014, 19h58 Réponses: 3 Dernier message: 08/03/2010, 20h27 Réponses: 9 Dernier message: 20/03/2007, 12h05 Dernier message: 13/09/2005, 17h08 × Vous avez un bloqueur de publicités installé.
Il te manque donc au moins un "End If". Ensuite, dans le deuxième bout de code, la méthode exacte est Cells (il manquait donc un "s") et nécessite deux entier (je pars du principe que z n'est pas une variable de type integer initialisée). La fameuse erreur 438. 21 novembre 2014 à 10:47:06 Pardon j'ai oublié de le précisé z est déclaré comme un entier. Je vais encore vérifier mais je vois pas ou le END IF est manquant. Mais merci quand même Edit: J'ai trouvé le END IF manquant, et merci pour la correction du CELLS. Note pour l'avenir penser à mieux se relire Merci encore - Edité par matthieu7cros 21 novembre 2014 à 10:58:13 6 juin 2017 à 21:23:05 Je suis aussi débutant en VBA sur Excel, J'ai une erreur: Erreur d'execution '438' Propriété ou méthode non gérée par cette objet sur la igne de code suivante after:=Feuil2 = "Saisie" Worksheets("Saisie"). Visible = True Worksheets("Saisie") (------ ici---------) - Edité par FouadMIMOUN 6 juin 2017 à 21:32:19 × Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
Bonjour tout le monde, Je suis en train de coder une fenêtre Userform et après avoir adapté mon code voilà qu'il ne marche plus... Et qu'une erreur 438: ''propriété ou méthode non gérée par cet objet'' apparaît. Vous trouverez ci-dessous le code de mon Userform mais j'aimerais vous expliquer un peu plus en détails ce que j'aimerais faire. Je voudrais que l'utilisateur puisse cocher tous les bouttons de type "Checkbox" qu'il veut puis un boutton dans le "frame" (qui sont tous des options button) pour finalement cliquer sur "show the data". Les différents options button vont chercher les data souchaitées dans differents onglets et il y a différents modules "tri... " car il y a certaines data qui possèdent un tri personnalisé. Je précise qu'une fois la macro lancée toutes les data sortent et lorsqu'elle a finit elle bloque sur le premier "If... " en affichant l'erreur 438.