Résultats pour "attendu expression"

28 résultats pour cette recherche

Hello,

Comme vous le voyez dans le sujet, une erreur ressort dans ma macro.

Encore une fois, tout fonctionnait avant cela

Voici la partie du code:

ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "ALERTE ROUGE"
Sheets(1).Cells(1, 1).EntireRow.Copy
Destination:=Sheets(2).Range("A1"))
c = 2
For l = y To 2 Step -1
        With Sheets(1)
            If client(l, 1).Value Like "FISH" Then
                Sheets(1).Cells(l, 1).EntireRow.Copy _
                Destination:=Sheets(2).Cells(c, 1)
                client(l, 1).EntireRow.Delete
                c = c + 1
            Else
            End If
        End With
    Next l
    If c > 2 Then MsgBox ("Alerte rouge, ce n'est pas un exercice!")
    With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    End With
    If c = 2 Then Sheets(2).Delete
    Application.ScreenUpdating = True

C'est cette partie qui dysfonctionne

Sheets(1).Cells(1, 1).EntireRow.Copy
Destination:=Sheets(2).Range("A1"))

Je ne sais pas si tout est nécéssaire, on ne sait jamais.

Je vous remercie d'avance de votre aide

Bonjour,

Je fais des tests unitaires dans mon programme VBA pour m'assurer que mes fonctions retourne bien les valeurs attendues. Pour cela j'utilise la méthode Debug.Assert.

J'ai une fonction "convertDiameter(ex_diameter As Double, ex_tolerance As Double, tolSymb As String)" qui va convertir le diamètre d'un cercle suivant certains arguments passés en paramètres pour un logiciel. J'ai utilisé une calculatrice pour m'assurer du résultat que cette fonction devra retournée avec certaines valeurs spécifiques comme arguments et j'ai obtenu "0.0009275", ce qui est correct. Ma fonction retourne également la même valeur.

Mon problème est le suivant, l'assert indique que ma comparaison est fausse :

Debug.Assert 0.0009275 = convertDiameter(diameter, tolerance, tolSymb)

Pour ceux qui ont un doute par rapport à mes propos, voici une capture d'écran montrant les valeurs de mes variables.

probleme debug assert contenu variables

Je vous mets également mon fichier excel avec ses macros pour que vous testiez de votre côté si besoin. Mes fonctions devraient être facilement compréhensibles car elles sont commentés et le code n'est pas compliqué à comprendre.

Est-ce que quelqu'un connaît la solution à mon problème ? Si oui peut-il me la donner et me dire pourquoi on doit faire comme ça, s'il-vous-plaît ?

Merci par avance pour vos réponses et bonne journée.

Bonjour,

J'ai généré une requête via VBA et lorsque je veux l'exécuter j'obtient l'erreur indiquée dans le titre....

Ayant déja fait face à ce genre d'erreur, j'ai directement vérifier toute les en-tête des colonnes de ma base de données. Hélas toutes les références au colonne dans ma requête sont justes, je ne sais donc pas d'ou provient cette erreur.

Si quelqu'un a le courage de m'aider à trouver ces 17 erreurs ....

La requête :

UPDATE [cde en cours]
SET [DATE] = "07/01/2019" ,
 [secteur] = "WS" ,
 [numero de cde] = "1" ,
 [CLIENT] = "WS" ,
 [REF] = "BOLLIN" ,
 [Teinte Profil] = "0" ,
 [Nb Chassis Total] = "4" ,
 [Ch  Avec Accessoires] = "2" ,
 [Ch VR] = "0" ,
 [Ch ST] = "2" ,
 [PE] = "0" ,
 [PSK] = "0" ,
 [S-74] = "0" ,
 [S150] = "0" ,
 [HS-70] = "0" ,
 [Trapèze] = "0" ,
 [cintre] = "0" ,
 [Dont Seuil Alu] = "0" ,
 [CVR cde] = "0" ,
 [Nb de Cadres] = "9" ,
 [Nb UP PS] = "0" ,
 [Num CHACAL] = "ECC1811007" ,
 [Délai demandé (semaine)] = "5" ,
 [Délai confirmé (semaine)] = "5" ,
 [Lot] = "1" ,
 [de Fab] = "3" ,
 [Lancement] = "09/01/2019" ,
 [Relance VI] = "0" ,
 [Relance Cadre] = "0" ,
 [Délai Prév PRF, QUINC, ACC] = "0" ,
 [Info CVR] = "0" ,
 [Délai Prév panneau] = "0" ,
 [Attente PS] = "0" ,
 [Délai à suivre] = "00:00:00" ,
 [Pb sur cde] = "0" ,
 [Semaine] = "0" , 
 [Date de fin de Fabrication] = "17/01/2019" ,
 [Equ] = "1" ,
 [LIVRAISON PREVISIONNELLE] = "04/02/2019" ,
 [Livraison CHANTIER, Spéciale ou Enlèvement client] = "00:00:00" ,
 [Date de Liv] = "00:00:00" ,
 [Nb Chassis] = "0" ,
 [Date de Liv 2] = "00:00:00" ,
 [Nb Chassis 2] = "0" ,
 [Date de Liv du pann Definitif] = "00:00:00" ,
 [Retour pann Prov] = "0" ,
 [Chassis restant à livrer] = "0" ,
 [En facturation] = "X" ,
 [Date de Facturation] = "30/01/2019" ,
 [REMARQUE] = "0"
WHERE [numero de cde] = "1"

Cordialement,

Arthur

Bonjour,

Je vous contacte, car je rencontre un problème dans ma macro.

Je suis novice dans le domaine, donc mon descriptif ne sera pas très constructif. Désolée

Pour vous expliquer le projet, je suis en train de faire une tableau de suivi des activités pour des pilotes.

Ils devront saisir leurs activités via le formulaire, en cliquant sur le bouton "saisir une action".

Dans la macro, j'ai mis des champs à saisir obligatoirement, des champs à valeurs numériques uniquement et des listes déroulantes.

Ci-dessous mes petits problèmes rencontrés :

- pour personnaliser davantage ce formulaire, j'ai voulu mettre les labels en rouge lorsque le pilote n'aurait pas saisit un champ obligatoire. Mais cela ne fonctionne pas

- si le formulaire est complet, il insère les valeurs sur la feuille. Par contre, lorsqu'il est incomplet, les valeurs sont quand même intégrées. Hors, je voulais le contraire

- si le pilote a plusieurs activités à saisir, au lieu d'enregistrer, fermer et rouvrir le formulaire, j'ai crée le bouton dupliquer. En cliquant sur ce bouton, les valeurs qui ont été saisies s'effacent tout en stockant les valeurs saisies précédemment

- j'aimerais créer une macro pour additionner le temps total estimé des heures travaillées, mais je ne sais pas comment faire... Pourriez-vous me suggérer la fonction, formule ?

- si vous avez des suggestions ou des remarques, je suis preneuse !

Merci à vous pour votre aide précieuse

Un bon courage dans vos fonctions.

Cordialement,

Bonjour,

Je code actuellement un programme en VBA, où je dois créer plusieurs colonnes avec différentes formules, donc toujours la même technique. Et pour l'une d'entre elles j'ai :

Sheets("Reporting A_M").Cells(2, Nb_Colonne_Reporting_A + 10).FormulaR1C1 = "=IF( ABS ( ABS (RC[-2]) - ABS ( RC[-1] ) ) < Seuil ," "OK" "," "KO" ")"

Et lorsque je compile, j'ai une erreur disant "Attendu : fin d'instruction" en sélectionnant le "OK". Mais impossible de mettre la main si l'erreur, si vous pouvez m'aider...

Bonsoir,

Je suis entrain de faire un fichier pour recenser les heures de travail de mon équipe, les plages horaires sont 24/24 h, tous les jours de la semaine peuvent être un jour de travail, pas facile cette boite !

De ce fait, on peut prendre un repos "RP" n'importe quand, un repos férié "RF" n'importe quand, un repos compensateur "RC" n'importe quand.

Les jours de travail (le type de JS) avec les horaires de prise et fin de sce sont mentionnées soit pas "journée CRL" ou "journée AFS" ou "journée bureau"

Dans le fichier joint, je cherche entre autre à calculer le temps de repos en h/mn entre la FS précédente et la PS suivante mais ces journées de service peuvent être entrecoupées de RP, RF ou RC et mon calcul s'en trouve erronée (colonne R), en rouge, les cellules ou il y a des cookies forcément, je ne tiens pas compte des RP et je ne trouve pas de solution.

Merci pour aide.

3test-decembre.xlsm (22.54 Ko)

Bonsoir à tous !

J'essaye de m'initier au Vba avec Excel et je rencontre quelques problèmes...

J'ai suivi le cours sur VBA proposé sur le site et lorsque vous parlez des boîtes de dialogues vous proposez d'ajouter un second argument sur les MsgBox : https://www.excel-pratique.com/fr/vba/boites_de_dialogue.php

Mon problème : Lorsque je veux ajouter le point d'exclamation sur ma MsgBox, VBA me sort un message d'erreur avec marqué "Erreur de compilation

Attendu : ="

Même avec l'exemple donné dans votre cours : MsgBox("Texte", vbYesNoCancel + vbExclamation + vbDefaultButton2, "Titre")

J'ai tout essayé, la MsgBox s'affiche très bien quand il n'y a que l'argument Prompt, mais quand je rajoute un MsgBoxStyle, il ne veut rien entendre !

Merci de votre aide

Bonjour,

Je chercher à isoler un terme précis dans la fonction chercher / remplacer.

Exemple :

Les personnes nées le 1 janvier 1970

--> je cherche à passer le texte sous cette forme :

Les personnes nées le 1er janvier 1970

Problème :

Si j'applique un RECHERCHER "1 janvier" et REMPLACER par "1er janvier", Excel va effectuer l'opération également sur le terme 11 janvier 1970. Celui-ci va donc devenir "11er janvier 1970".

Est-il possible d'indiquer à Excel de chercher dans l'expression exacte "1 janvier" ?

La fonction "totalité du contenu de la cellule" ne correspond pas exactement à mes attentes.

Merci et bonne journée

Hello Everyone or Anyone.

Can You help me out with something.

I am trying to refresh my data links.

But I am getting an error that says: "expression.error the column of the table wasn't found"

How can I fix this?

Please if you are welling, please view.

Thanks in advance....

78anton-heatwave.xlsm (145.41 Ko)

Bonjour, j'aimerais savoir s'il est possible d'ajouter de la mise en forme conditionnelle pour un mot ou une expression dans une cellule. Par exemple, j'aimerais qu'à toutes les fois que le mot "rires" apparaît dans une cellule, il soit d'une couleur différente.Je ne veux pas que ce soit tout le texte de la cellule qui change de couleur. Est-ce possible de faire cela ?

Merci à l'avance pour vos réponses !

Bonjour,

je me retrouve sur un petit problème.

J'ai un tableau dans lequel il y a ma liste de pattern.

sauf que dans cette liste j'ai des 10 et des 100.

lorsque je boucle sur une valeur de 100 ou de 1000 j'ai les deux valeurs qui me ressortent en "True"

Je voulais savoir s'il existait un paramètre comme dans la méthode find pour savoir si le pattern est strictement trouvé ou pas....

En vous remerciant par avance.

Bonjour les amis,

J'ai une petite question :

Alors voilà, j'ai une table Access qui contient plusieurs champs, je veux l'exporter dans un TCD, mais afficher les mêmes enregistrements sans autant effectuer des opérations, ni sommes, ni max, ni moy ni rien juste afficher le nombre.

J'explicite :

En figure 1, ces mes enregistrements, je voudrai que quand je les exporte sur le TCD, ce dernier ne fera qu'afficher la valeur.

Merci d'avance !

1

Bonjour,

J'ai récupéré une fonction RegExDate en VBA qui me permet de récupérer une date sur une série de données Texte.

Seulement, cette fonction ne me récupère plus les dates à partir du 12/01/18 sur mon fichier, le champ reste à "vide".

J'ai beau eu cherché, je ne vois pas ou se trouve l'anomalie, merci d'avance à celles ou ceux qui se pencheront sur mon souci.

Fichier en PJ, un simple appuie sur le bouton vous démontre que ligne 1728 cela fonctionne mais ligne 1729 cela ne récupère plus rien !

Cordialement,

Bonjour bonjour !

Je travail sur un vba qui doit calculer les facteurs de différentes régressions linéaires.

Dans ma feuille Excel j'utilise cette formule qui marche nickel :

=INDEX(DROITEREG(D3:D8;C3:C8^{1.2};1;1);1;1)

Du coup je veux utiliser la même dans mon vba ce qui donne :

Cells(K, 5).Formula = "= INDEX(DROITEREG(D" & K & ":D" & p & ";C" & K & ":C" & p & "^{1.2};1;1);1;1)"

avec K et p des entiers qui changent avec une boucle .

Sauf que excel dit non " ERREUR DÉFINIE PAR L'APPLICATION OU PAR L'OBJET "

Merci d'avance

Bonjour à tous,

Je reste toujours aussi ignorant du VBA et le graveur de macro ne m'est d'aucune utilité pour ce que je veux faire.

J'ai déterminé un certain nombre de formules qui entrainent que sous certaines conditions de calcul, certaines cellules vont afficher le texte 'EFFACER' en lieu et place d'un résultat numérique.

A prendre en compte que le texte 'EFFACER' apparaît selon une condition de format conditionnel qui recouvre le contenu de la case elle-même.

Comme il va y avoir de façon assez récurrente un grand nombre de cases formatées ainsi (de A1 à AZ150), je souhaiterais qu'une macro se charge de chercher et supprimer le contenu de ces cellules spécifiques.

J'ai cherché et trouvé un certain nombre de sujets sur internet mais qui traite d'avantage sur l'élimination de lignes entières et non d'effacer un contenu de façon chirurgicale.

Une âme charitable pourrait-elle me venir en aide SVP ?

Merci.

Bonjour,

je souhaiterai que la cellule contenant un lien hyper texte se renomme suivant la valeur de la variable test

Range("A20").Select

Selection.Hyperlinks(1).Address = "fichier_image\GENTIANEAD85.pdf"

Selection.Hyperlinks(1).TextToDisplay Reference:="test"

End Sub

La boucle ci-avant bug au niveau de TextToDisplay

Concernant la cible du lien: J'envisage de créer le lien manuellement sur chaque ligne de mon catalogue

Après s'il est possible de pointer sur un fichier avec le même nom que la cellule Test

Je suis preneur.

Si vous avez la solution ?

Merci d'avance

Antoine

Bonjour

je m’emmelle un peu les pinceaux pour evaluer cette exression :

If Cint(1 / (TextBox1.text)) * (CInt(TextBox1.Text) * CInt(TextBox7.Text) - CInt(TextBox7.Text)) + (1 / CInt(TextBox2.Text)) * (0 - CInt(TextBox7.Text)) + (1 / CInt(TextBox3.Text)) * (0 - CInt(TextBox7.Text)) > 0 Then

qui doit me renvoyer une valeur decimale

Comment puis corriger cela , ? comprenant bien que je dois convertir des chaines de caractères en valeur

Merci à vous.

Bonjour je cherche une formule me permettant de récupérer une chaine de caractère qui suit une expression.

Je m'explique imaginons 4 lignes :

Farine de froment spéciale grise

Farine de blé spéciale T90 du sud

Riz récolte spéciale sauvage asie

Il faut que je récupère les données pour chaque ligne qui suivent la chaine de caractère "spéciale", c'est à dire ici "grise", "T90" et "sauvage". Sauf que les données à récupérer ne font pas le même nombre de caractères, il n'y a pas forcément le même nombre de mots avant le mot "spéciale" et les mots ne sont pas forcément suivis par le même nombre de mots et/ou de caractères.

Auriez-vous une idée qui pourrait m'aider à solutionner mon problème je vous avoue que je suis dans l'impasse. Je pourrais le faire à la main mais j'ai environ dix mille lignes comme celles-ci !

Bonjour,

Arrivant sur VBA avec un passé de PHP je connaissait REGEX sous PHP un outil magnifique qui semble exister en VBA sous le doux nom de Espression Regulière bref le soucis est que j'ai beau lire tout ce que je trouve je ne comprend rien j'ai une extraction web qui me donne se resultat

motos/1036072391.htm

et je voudrait recupéré la sequence numérique entre "motos/" et ".htm" bien evidement cet sequence n'a pas de longueur defini et encore moin une position fixe dans la chaîne je peut joindre mon classeur mais il est peu vide il possede just l'extraction du code source d'une page web

14classeur1.xlsm (47.38 Ko)

Bonjour à tous,

"Résolu, voir Edit en fin de page"

Petit message, parce que je tourne en rond, je tente des trucs mais ça ne veut jamais aller comme je souhaite.

La solution est surement très simple, mais j'avoue qu'étant débutant, j'ai encore du mal avec certaines facettes de VBA.

Mon problème est très simple :

1) Je souhaite trouver dans la feuille Macro BallyRagget et la colonne B, toutes les cases où il y'a une nombre à 6 chiffres.

2) Je dois parcourir la colonne et si il trouve un nombre correspondant, il me le recopie dans la feuille Data. J'ai spécifié un endroit au hasard.

==> le problème vient surtout du regular expression. J'ai déjà du en faire avec python, mais y'a longtemps et mes souvenirs sont maigres. De plus, j'ai l'impression de voir des choses différentes à chaque fois que j'essaye de trouver des exemples ^^

Après, y'a encore énormément de boulot pour ce à quoi je veux arriver, mais je ne vous solliciterai que si je bloque.

ps: 2ième question juste plus pour info. Quelle technique utiliser pour le débug? ici, j'ai juste utiliser la formule MsgBox, pour voir la valeur à chaque boucle et voir si je suis dans le bon. Mais dois surement avoir des outils plus pratique. Ici c'est juste pour me permettre d'avancer seul et résoudre mes problèmes seul ^^

Je joins le fichier.

Merci pour vos conseils et aide

EDIT: Je suis prêt à accepter les coups de fouets.... Ca fonctionnait en fait..... mais je renouvellais toujours mon code sans effacer ce qui avait été fait avant. et donc j'avais l'impression qu'il écrivait toujours tout sans faire de distinction entre texte et nombre mais ça fonctionne.....

Autant pour moi!!!

14exceltestre.xlsm (38.61 Ko)

Recherches récentes

liaison entre fichiers excelscomment saisir uniquement valeurs numeriquesfiltrer comboboxcombobox multiselectiontrier colonne listboxsimulation trainfractionner lignesoutlook vbacroise dynamiquedecalerformule conversion tempsregrouper feuillesconversion tempsconvertir tempscache edgeimporter classeur fermefiltre avanceclignotanteimporter classeur ferme fichier variablecoloriser ligne complete fonction variable liste