Profil de penny05 - CodeS SourceS

User form sur excel et recherche de valeurs

bonjour tt le monde voila mon problème j'ai un tableau excel ou sont remplis divers champs à l'aide d'un userform seulement quand les valeurs rentrées sont incomplètes je voudrais avec à effectuer une recherche par un paramètre et affecter les valeurs manquantes par un userform. Sous vb je présente les choses de la manière suivante: ... Lire la suite

Et donc le programme qui marche pour cette application en se basant sur vos notes: Private Sub OK2_Click() MousePointer = 1 i = 1 'ça se lit comme ça "tant que lue est de cherchée et pas max" 'ça se documente comme ça "arrêt quand lue = cherchée ou max" While (Worksheets("Factures_2K7").Cells(i, 4) CStr(factnum2.Val...

bon à ma grande surprise il s'agit d'une incompatibilité de type je pense en effet à la place de rentrer des chiffres comme prévu j'ai mis du texte a la place et ca marche donc il fautt absolument convert en string pour que ca marche

Bonjour !!! Je pense que le problème se pose à la boucle while. Apparemment il ne trouve jamais la valeur quand on a While (Worksheets("Factures_2K7").Cells(i, 4) factnum2.Value) _ And (i < 65536) Alors que je fais des tests de valeur dans le fichier!!!! Pour info factnum2 que je rentre dans le userform est un numéro ex...

t'expliques un peu stp?????

quand y'a l'erreur i atteint apperement son max i = environ 657.. comme s'il parcourait toutes les cases suivantes jusqu'au max

i=6 est la premiere valeur ce qui correspond a la ligne 6 et colonne 4 pour commencer la recherche. ensuite on reste sur la ligne et on affecte litige2.value à la colonne 8 de la ligne6 Voila

alors merci de vos réponses D'abord petite erreur quand j'ai écrit Factures_2K7.Cells(8, i) il s'agit plutot de Worksheets("Factures_2K7").Rows(i).Columns(9) = litige2.Value l'erreur intervient à la ligne Do While Worksheets("Factures_2K7").Cells(i, 4) factnum2.Value ""factnum2 est une valeur rentrée que l'on recherche sur le fic...

Problème avec VBA et EXCEL Please Help!! Résolu

Bonjour à tous, J'avais un petit problème sur un fichier excel vba. J'ai créé un Userform dans lequel je rentre des données qui sont directement importées dans un tableau. Mais rien n'apparait dans le tableau... VOila le bout de code correspondant: Private Sub Record_Click() REMOVAL_RECORD.Show End Sub Public Sub ENTER_Click()... Lire la suite

ben erreur toute bete j'avais mis le programme dans la partie code de la feuille et non pas du user form donc normal que ca ne marche pas Mais merci quand meme, le fait que ca ait marché chez toi m'a aidé quand meme!!!

MERCI CA MARCHE!!!

Merci de ta réponse Mais dans mon user form quand je clique sur "entrer les valeurs" il ne se passe rien les données ne sont pas rentrées dans le tableau. Dois je initialiser le user form avant ou utiliser la fonction change pour lui spécifier que des valeurs ont bien été rentré? Qu'en penses tu? Merci !

Aidez moi sur les requetes VB Résolu

Bonjour à tous, Je souhaite effectuer un calcul après exécution d'une requete par code VB sous la forme suivante. Private Sub filtreflotte_AfterUpdate() ' calcul de valeurs Dim somh As Currency Dim dep As Currency Mise en place de la requete Dim Mabd As Database Dim requete1 As QueryDef Dim sql As String 'on effectue la base d... Lire la suite

Encore merci de votre contribution!!! Rvblog, the expert i tell u thanks again n again....

Je comprends pas ce que tu veux dire par d'ou vient la fonction Dsum... c'est une fonction VB disponible sur les applications access Peut tu etre plus clair

personnelementc'est plutot l'erreur object requis qui me dérange Qu'est ce que cela veut il dire réellement

comme expliqué sur l'aide: expr, Expression qui identifie le champ numérique dont vous voulez additionner les valeurs. Il peut s'agir d'une [javascript:HelpPopup('actip9.hlp','defNull'); Null.]

La fonction SomDom (DSum) calcule la somme d'un ensemble de valeurs relatives à un jeu d'enregistrements spécifié (un [javascript:HelpPopup('actip9.hlp','defDomain'); domaine]). Utilisez la fonction SomDom (DSum) dans Visual Basic, une [javascript:HelpPopup('actip9.hlp','defScript'); macro], une expression de requête ou un [javascript:Hel...

Cela ne marche pas pour autant j'ai l'erreur incompatibilité de type. si je l'a nomme pondere cette requete par Set requete1 = Mabd.CreateQueryDef("pondere", sql) ca ne devrait pas nécessiter de mettre somh = DSum(requete1!hours, requete1)

alors la fonction Dsum effectue la somme des champs d'une table ou formulaire etc.. elle se présente sous la forme suivante: Dsum ( champ , table, le critère si on veut) donc une fois que je crée la requete Set requete1 = Mabd.CreateQueryDef("pondere", sql) qui s'appelle donc pondere, je fais somh = DSum(pondere.hours, pondere) q...

requete sql Résolu

bonjour, je cherche à faire une requete sql mais j'ai l'eereur suivante: "impossible d'executer la requete selection" voila ce que j'ai ecrit sur vba: le principe est le suivant: je veux obtenir l'enregistrement d'une table correspondant à une valeur de mon modifiable, donc MyValRCN = CLng(Me![Modifiable45]) currentdb.Execute (... Lire la suite

Votes

Bonjour, aprés quelques recherches le meilleur moyen de faire appel a un enregistrement d'un champ sans se casser la tete avec des openrecord set c'est la fonction dlookup. DLookup("[sommedeSommedeoperational hours]", "extractionMssdb", "RCN=" & CStr(MyValRCN)) on obtient le résultat voulu! Encore merci de vos aides.

au niveau de ma table le champ RCN est défini comme entier long et c pourquoi j'ai fait myvalrcn= Clng(me!modifiable45) au préalable. j'ai meme fait des filtres avec qui marche à merveille. donc est ce un probleme qui peut se situer dasnla définition de la requete meme (ex: set rcd ou encore rcd= ...)

bon je ne pense pas que le probleme soit lié a la clause where rcn.. étatn donné que meme quand je fais un select * from extractionMssdb sans clause where ca me met une incompatibilité de type ce que je ne comprend pas?! Dim rcd As Recordset Set rcd = currentdb.OpenRecordset("SELECT * FROM extractionMssdb") J'ai rajouté set devant ...