c

Membre impliqué

Inscrit le :09/10/2008
Dernière activité :07/05/2022 à 07:16
Version d'Excel :2003 FR PC
Emploi :Retraité
Lieu :Ile de la Réunion
Messages
1'678
Votes
1
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par cfn3cfn

DateAuteur du sujetSujetExtrait du message
21/03/2022 à 13:32balthier44Faire la somme de plusieurs plages sur ExcelVoici un bout de code en VBA Sheets("Données").Range("B1") = WorksheetFunction.Sum(Sheets("Données").Range("a1:a12"))...
21/03/2022 à 13:24balthier44Faire la somme de plusieurs plages sur ExcelSalut, Comment le veux tu en vba ou un calcul sur la feuille...
14/07/2020 à 05:58cfn3cfn Ouvrir un fichier dans VBABonjour à tous, J'ai trouvé la solution...
12/07/2020 à 07:02cfn3cfn Ouvrir un fichier dans VBABonjour ric, Je suis désolé, j'avais déjà essayé cela e laisse l'erreur suivant :" Argument ou appel de procèdure incorrect". Je te remercie mais une autre solution cela m'arrangerai. Merci d'avance Amicalement Noel...
07/07/2020 à 11:50cfn3cfn Ouvrir un fichier dans VBAJ'aimerai pouvoir ouvrir un fichier qui se trouve sur mon bureau avec shell Exmp: Dim RetVal RetVal = _ Shell("putty.exe", 1) ou shell("C:\Users\CHANE FO\Desktop putty.exe" Dans ces 2 exemples je n'arrive pas à ouvrir. Quelqu'un aurait-il une solution? Merci d'avance Amicalement Noel...
20/10/2019 à 09:54cfn3cfnCalculette à saisie clavier numériqueC'est bien gentil de me fournir un tout fait que je te remercie. Mais c'est pas ce que je recherche. J'ai déjà une calculette qui la saisie je suis obligé de faire la saisie non pas au clavier mais sur les boutons. Je voudrai faire saisie au clavier. Merci Amicalement Noel...
20/10/2019 à 09:18cfn3cfnCalculette à saisie clavier numériqueJe voudrai créer une calculette dont la saisie se fait par clavier numérique. Exp en cliquant sur le bouton qui est égal à 1 il me donne 1 mais je voudrai au lieu de faire la saisie par click je souhaiterai le faire par le clavier. Celui qui a la solution pourrait-il me donner l'astuce. Merci beauco...
11/10/2019 à 09:58cfn3cfn SelectionC'est bon j'ai trouvé a solution. Merci...
11/10/2019 à 09:13cfn3cfn SelectionLe fichier est sur le fil procédure trop longue. Il suffit de rajouter un bouton avec le code. merci @+...
11/10/2019 à 08:38cfn3cfn SelectionJe voudrai sur le click d'un bouton pouvoir sélectionner tous les textbox d'une même rangée est ce possible? J'ai fait un essai le fond de mon tx reste en noir malgré la couleur que je voudrai Sur ma ligne j'ai les Tx n° T1, T32, T61, t92, T122 etc Exp :Private Sub CommandButton1_Click() T1.BackColo...
08/10/2019 à 14:29cfn3cfn Procedure trop grandeRe, Je n'ai pas eu le fichier corrigé...
08/10/2019 à 08:07cfn3cfn Procedure trop grandeLe fichier est trop volumineux, Je l'ai compréssé...
08/10/2019 à 08:04cfn3cfn Procedure trop grandeRe galopin, Voici le fichier. Merci...
08/10/2019 à 05:55cfn3cfn Procedure trop grandeBonjour Galopin, Bonjour AlgoPlus, Merci pour ton bout de code AlgoPlus. Ca fonctionne mais que sur 1 mois. J'ai fait pour les autres mois tous mes Tx sont grisés. Bien sure j'ai repris ton code en l'adaptant sur les autres Tx exp : 'Janvier For i = 1 To 31 'adapter 100 au nombre de Tx Me("T" &...
07/10/2019 à 13:32cfn3cfn Procedure trop grandeJe suis confronté à cette erreur. C'est vrai dans cette procèdure j'ai près de 400 ligne composée comme ceci: Quelqu'un aurait la solution pour m'éviter cette erreur? Merci d'avance Amicalement Noel...
06/10/2019 à 14:09cfn3cfn Textbox egal format et contenuJe te remercie pour le code. Ça fonctionne bien. Amicalement Noel...
04/10/2019 à 05:12cfn3cfn Textbox egal format et contenuBonjour H²so4, Merci pour ton aide. Mais si je veux également avoir la même couleur de s "Fonts" que dois-je faire? Merci d'avance. Amicalement Noel...
02/10/2019 à 11:48cfn3cfn Textbox egal format et contenuEffectivement ça fonctionne mais il faut obligatoirement l'installer dans le code du textbox. Peut on l'installer dans Initialize? Merci de ton aide Amicalement Noel...
02/10/2019 à 11:04cfn3cfn Textbox egal format et contenuJe suis un peu perdu avec T1.BackColor = Range("B3").BackColor Je n'arrive pas à comprendre le message propriété ou méthode non géré par cet objet. Le code je l'ai placé en "Initialize" peut être qu'il faut le placer ailleurs. Quelqu'un pourrait-il éclairé ma lanterne. Merci d'avance Amicalement noe...
18/09/2019 à 09:34cfn3cfnProbleme calculetteEffectivement il se positionne à droite de ton écran car je l'ai positionné manuellement. Par contre ton code ne fonctionne pas il me donne compatibilité Essaye de ton coté à rectifier le code tu verras. merci Amicalement Noel...
18/09/2019 à 08:04cfn3cfnProbleme calculetteJ'ai crée une calculette de toute pièce mais j'ai un souci. Je pensais que ça allait bien mais non. Quand je mets la virgule cela me pose des chiffres bizarres. Mais cela reste dans les montants qui commencent par 1 ou 2 allant jusqu'à 2 chiffres. pour que cela soit plus parlant je vais vous donner...
13/09/2019 à 15:55cfn3cfnCopier un bouton avec son codeJe ne comprends pas trop ce que tu me demande Il faut passer par un bouton "contrôle de formulaire "et non "Active X". Donne moi un exemple. Merci d'avance Noel...
13/09/2019 à 15:14cfn3cfnCopier un bouton avec son codeComment dupliquer un bouton avec le contenu de son code. Bien entendu je connais le copier/coller mais je voudrai savoir s'il y a une astuce pour copier le bouton avec le contenu du code. Merci de votre aide Amicalement Noel...
03/09/2019 à 07:58IrishLilyPasser à la ligne dans une listboxBonjour Iris, Je suis confronté au même problème. Peux tu m'apporter un peu plus de précision sur ce code : Où le positionner par rapport à la ListBox. Merci d'avance Amicalement Noel...
02/09/2019 à 05:52cfn3cfn Recherche en VBAJ'ai bien reçu tes recommandations. Pour moi il a fallut que je commence par décortiquer ton code pour arriver au résultat escompté. Je suis arrivé et je m'en félicite. Grace à toi j'ai pu arrivé à ce que j'attendais. Merci encore de ton aide Et je remercie par la même occasion, Ric de son aide. Ami...
01/09/2019 à 14:10cfn3cfn Recherche en VBARe, OK normalement c'est bon. Mais maintenant je voudrai rajouter une ou 2 colonnes en avant dans ListBox. Comment faire. Sachant que j'ai essayé de mettre dans les propriétés le nombre de colonne désiré. Merci Amicalement Noel...
01/09/2019 à 10:57cfn3cfn Recherche en VBAJe te remercie, mais ma listbox ne se rempli pas. Je voudrai un exemple que lorsque je tape EXP: "Ingrid" qu'il rempli la listBox avec la phrase qui contient Ingrid. Merci Amicalement Noel...
01/09/2019 à 08:59cfn3cfn Recherche en VBARe, J'ai oublié de joindre mon fichier Milles excuses...
01/09/2019 à 08:58cfn3cfn Recherche en VBAJe vous joints mon fichier sur lequel j'ai un petit problème que je n'arrive pas à résoudre. Je souhaiterai faire une recherche d'un mot dans une zone de texte et qu'il affichera dans ma ListBox1. Ca coince. quand je tape le 1er caractère il m'affiche tous les mots contenant le caractère rechercher...
26/08/2019 à 11:14cfn3cfnFaire clignoter une partie du texte dans un TextBoxRe, Ou éventuellement le mettre en gras ou changer de couleur. Merci encore de votre dévouement. Amicalement...
26/08/2019 à 11:13cfn3cfnFaire clignoter une partie du texte dans un TextBoxAurait-il une solution pour faire clignoter sur une partie d'un texte dans un textBox ou dans un Label. Celui qui sait le faire. Je suis preneur et je lui remercie d'avance Amicalement Noel...
25/08/2019 à 13:46cfn3cfn Label m^me couleur que TextboxC'est bon j'ai pu contourné la difficulté. Ca fonctionne très bien. Merci @+ Amicalement Noel...
24/08/2019 à 10:06cfn3cfn Label m^me couleur que TextboxMerci pour le code. Cela fonctionne mais il faut que je fasse une saisie dedans le TextBox. Sauf que moi le Textbox à l'ouverture prend une couleur et que j'aimerai le Label prend la même couleur. Amicalement Noel...
24/08/2019 à 06:46cfn3cfn Label m^me couleur que TextboxJ'ai bien vu dans le fichier rxpédié. Mais voilà, c'est que lors de la création de l'USF tu donnes la couleur à ton TextBox. Mais moi c'est le cas. A la création mon TextBox et le Label sont normaux au moment des saisies mes TextBox prennent une couleur déjà différents entre eux selon la saisie. C'e...
23/08/2019 à 10:53cfn3cfn Label m^me couleur que TextboxCe code je l'avais déjà essayé. Il me donne une couleur blanche alors que mon Textbox et d'une autre couleur. Merci Amicalement Noel...
23/08/2019 à 09:54cfn3cfn Label m^me couleur que TextboxPour mieux repérer je souhaiterai que label prenne la même couleur que mon TextBox. Que faut-il faire. Amicalement Noel...
23/08/2019 à 08:15cfn3cfn Saisie point ou virguleTa réponse rapide me ravi. Je voudrai surtout une explication. Bonjour m3ellem1, Merci pour ton lien. Mais c'est quand même Theze qui l'a répondu . Bonne journée à vous deux Amicalement Noel...
23/08/2019 à 07:24cfn3cfn Saisie point ou virguleLors d'une saisie sur un projet je ne peux pas saisir un point il me faut absolument la virgule pour qu'il puisse faire le calcul. Qu'est ce que j'ai loupé en terme de code dans un textbox Merci de votre aide. Amicalement Noel...
22/08/2019 à 09:15cfn3cfn Transformer alphabumérique en dateJe te remercie pour ta réponse très rapide. J'ai essayé ça fonctionne super bien Amicalement Noel...
22/08/2019 à 06:54cfn3cfn Transformer alphabumérique en dateJe ne sais si c'est possible de transformer l'alphanumérique en date Exp : 19/8/2019 qui est de l'alphanumérique. J'ai récupéré un fichier avec une colonne "A" : jour une autre avec le "B" : Mois et une 3ème "C" : année . Bien entendu j'ai du réunir ces 3 colonnes pour me donner le résultat ci-dessu...
29/07/2019 à 14:48cfn3cfnTextbox clignotantRe, Je pense que j'ai trouvé la solution. voici le code : Sub Clignote() Dim I As Integer Dim Bcolor Bcolor = Me.Label1.BackColor Do Until I = 5 Me.Label1.BackColor = vbRed Minuterie 500 Me.Label1.BackColor = Bcolor Il faut changer cette ligne au lieu de BackColor on remplace par Bcolor Minuterie 50...
29/07/2019 à 14:42cfn3cfnTextbox clignotantRe, Ca commence à voir le jour. Il ne reste plus que lors du clignotement le Label garde sa couleur d'origine en clignotant. c'est à die du rouge au vert. Merci de ton aide si précieuse. Amicalement Noel...
29/07/2019 à 14:08cfn3cfnTextbox clignotantJe te remercie pour ton code. Mais à la fin il me change la couleur du Label, alors que je voudrai qu'il garde la même couleur de fond quabd c'est fini. Je t’envoie le fichier que j'ai chargé que j'ai mis au format. Merci d'avance Amicalement Noel...
28/07/2019 à 16:20cfn3cfnTextbox clignotantJ'ai pu trouver sur le site ce bout de code : Sub Clignote2() Dim I As Integer Do Until I = 5 Me.TextBox2.BackColor = vbRed Minuterie 500 TextBox2.BackColor = vbGreen Minuterie 500 I = I + 1 Loop 'remets à automatique une fois fini Me.TextBox2.BackColor = vbGreen '&H8000000F End Sub Dans mon cas...
27/07/2019 à 14:08cfn3cfn Valeur de spinbutton dans une celluleRe, C'est ce que j'ai fait je n'ai rien trouvé dans ce gout là. tampis je ne pourrai pas le créer. Encore merci Gyrus. @+Amicalement Noel...
27/07/2019 à 11:05cfn3cfn Valeur de spinbutton dans une celluleRe, J'ai bien reçu le fichier exemple que je te remercie. Mais cela ne me dis pas comment ça marche. Je ne vois aucun code. Déjà se serait souhaitable de savoir comment le créer car je suis un ignare dans ce domaine. De plus je suis sur 2003, je ne sais pas si je peux créer un SpinButton. Merci pour...
27/07/2019 à 09:30cfn3cfn Valeur de spinbutton dans une celluleTu as bien compris ma demande. La propriété LinkedCell je ne sais pas l'utiliser. Peux tu me montrer comment l'utiliser dans un textbox ou dans une cellule. Merci de ton aide. amicalement Noel...
27/07/2019 à 08:09cfn3cfn Valeur de spinbutton dans une celluleComment copier la valeur d'un SpinButton dans une cellule bien entendu en texte. Se serait des notes que j'aurai dans un SpinButton que je voudrai le récupérer dans une cellule de mon fichier. merci de votre aide. Amicalement Noel...
18/07/2019 à 05:54cfn3cfnTransformer un code longRe, Je crois avoir trouvé la solution. Il faut remplacer Fore par Font @+ Chers amis...
18/07/2019 à 05:52cfn3cfnTransformer un code longRe Galopin, Je te remercie de ces explications. j'ai besoin encore un petit renseignement Me.Controls("TextBox" & i).ForeColor = ActiveSheet.Range("B3").Offset(i - 1, j * 2).fore.Color Que faut-il mettre à la place de "ForeColor" pour avoir les polices de la même couleur que dans la cellule? Mer...