Contributeur

Inscrit le :14/10/2014
Dernière activité :Jeudi à 20:46
Version d'Excel :Excel 2021 Fr
Emploi :Contributeur
Lieu :Bordeaux
Biographie :Je vous propose un peu plus d'une cinquantaine d'applications et de jeux (54), il y en a pour tous les goûts. A vous de les apprécier ou pas ! lol
Messages
13'621
Votes
2'107
Fichiers
54
Téléchargements
774'289
Fichiers ExcelFichiers Google SheetsSujetsMessagesStatistiquesVotes reçus

Messages postés par LouReeD - page 252

DateAuteur du sujetSujetExtrait du message
04/10/2015 à 10:45qchamb Rapidité boucleDe la même manière que vous dites à VBA de stoker en sheets(2) les nouvelles coordonnées. vous travailler avec ligne et colonne il faudrait un tableau(ligne,colonne) dimensionné de cette façon Dim jeu(19,19) avec deux variables supplémentaire tête(1,1) et queue(1,1) afin de connaître leur position s...
04/10/2015 à 09:55qchamb Rapidité boucleEt l'idée d'un tableau représentant le serpent avec de 1 (par exemple) et des 0 pour les cases où le serpent n'est pas et 2 pour la pomme et 3 trois pour la tête. ce tableau représenterait les 20 x 20 case du jeu c'est à dire 400 cases allant de la 1 en haut à gauche à la 400 en bas à droite. Les 40...
04/10/2015 à 07:16smorvan Relier des lignes de tableauLà je ne comprend pas... @ bientôt LouReeD...
04/10/2015 à 00:14Calou85 MFC en VBA ligne par ligneUne version qui met à jour automatiquement les couleurs même après un changement des couleurs de référence... soit quand on sort de la cellule, mais tout de même, c'est mieux qu'un malheureux bouton... @ bientôt LouReeD...
03/10/2015 à 23:31smorvan Relier des lignes de tableauAvec un bout de code les réponses sont parfois, souvent plus rapides!!! Donc voici, ci-joint, un essai, le code est expliqué afin d'être compréhensible @ bientôt LouReeD...
03/10/2015 à 22:05qchamb Rapidité boucleLe but n'étant pas de jouer mais de créer et de trouver des solutions à des problèmes, je dirait déjà une chose : Dim Coul_Serp as long Coul_Serp = Sheets(3).Cells(4, 2).Interior.Color est plus rapide en VBA que Sheets(3).Cells(4, 2).Interior.Color à tout bout de champ Il est plus difficile à VBA d'...
03/10/2015 à 21:52smorvan Relier des lignes de tableauUne solution VBA s'impose je pense afin de gérer la suppression d'une même ligne sur plusieurs feuilles, pour peu que l'on puisse filtrer ou trier les différentes feuilles indifféremment, il devient impossible par formule de connaître la ligne à supprimer. En plus par formule, on ne peut effacer une...
03/10/2015 à 21:33Calou85 MFC en VBA ligne par ligneMerci pour les mercis malgré le petit désagrément de fonctionnement Ceci dit ce n'est pas bon dans le temps de s'accommoder d'une solution un peu boiteuse... C'est pourquoi je vous livre cette version deux, qui met à jour les couleurs que les valeurs soient effacées ou modifiées dans le tableau de g...
02/10/2015 à 21:48theguilt Rollover, survol image zoomUne petite variation... @ bientôt LouReeD...
02/10/2015 à 20:00panda10VBA project mot de passeLe fichier est très gros ? plus de 300 ko je suppose. En fait il doit y avoir un bug, du peut-être à une date qui n'était pas prévu à l'époque de la création du fichier, et les années passant le bug ne pouvait qu'arriver ! Suite à ce bug, excel ouvre VBA éditeur pour que vous le corrigiez, mais le c...
02/10/2015 à 19:54MARTI MARTI Changer un checkboxContent pour vous @ bientôt LouReeD...
02/10/2015 à 18:32Kisscool25 Affiche résultat en focntion d'une dateUn autre essai @ bientôt LouReeD...
02/10/2015 à 17:53MARTI MARTI Changer un checkboxLe hic est que je n'ai pas ces caractère sur mon ordi... Par contre vous vous les avez, et vous pouvez connaître le code associé dans la fenêtre d'insertion de caractères spéciaux, il se trouve en bas à gauche à coté du nom de la police. Regardez les deux codes de la police qu'il vous faut et modifi...
02/10/2015 à 17:44hvegung Problème avec un code VBA1/ c'est vrai c'est la même chose... la fatigue vous dites ?! 2/ c'est vrai c'est le même type de variable... la fatigue vous dites ?! je dirais oui 3/ c'est vrai ? pourtant c'est simple : Sheets("LRD").Select = va sélectionner la feuille qui porte le nom LRD mais encore ? Nom_feuille = "LRD" Sheets...
02/10/2015 à 06:02MARTI MARTI Changer un checkboxEntrez dans la formule, mettre le curseur sur le X l'effacer, puis insérez le caractère spécial du faux, je n'ai pas pu le faire car je ne l'ai pas trouvé chez moi dans Wingdings.... @ bientôt LouReeD...
01/10/2015 à 22:44Kisscool25 Affiche résultat en focntion d'une dateUn essai mais je dois être à coté de la plaque, la fatigue certainement ! @ bientôt LouReeD...
01/10/2015 à 22:25MARTI MARTI Changer un checkboxUn essai de réponse... @ bientôt LouReeD...
01/10/2015 à 22:07hvegung Problème avec un code VBACi joint le fichier avec le code qui marche pas mal je dois dire J'ai mis des commentaires pour la compréhension @ bientôt LouReeD...
01/10/2015 à 19:05theguilt Rollover, survol image zoomLà je suis perdu.... Désolé... LouReeD...
30/09/2015 à 23:53theguilt Rollover, survol image zoomEt si des pros vous répondent, il pourrait y avoir un système de zoom type loupe Windows... Oui en effet cela ferait un jolie effet. Mais pourquoi faire ? @ bientôt LouReeD...
30/09/2015 à 23:40DKL66Compter des plages de cellule variableLe code dans un fichier serait le bien venu... Ceci dit, je vous avoue m'être perdu dans le code... Désolé. @ bientôt LouReeD...
30/09/2015 à 23:39theguilt Rollover, survol image zoomAlors là il faudrait en parler aux pro du forum !!! Bon courage @ bientôt LouReeD...
30/09/2015 à 23:38Tournament974 Code valeur numériqueVu mon niveau je ne métrise pas encore ce sujet, mais il est vrai qu'il permet de réduire la taille des codes surtout s'il y a de la répétition. @ bientôt LouReeD...
30/09/2015 à 23:15jasonjacques Supprimer valeur dont la cellule est de couleurDésolé, chez moi cela marche bien... Avez-vous essayé de mettre en début de code : En effet sur le code exemple, la protection est mise... @ bientôt LouReeD...
30/09/2015 à 22:54hvegung Problème avec un code VBAPour moi il y a une erreur de format de variable et de test "mathématique" ici : En effet les valeurs de ces variables sont issue d'un VlookUp qui je crois revoit une valeur "String" c'est à dire alphanumérique. donc 9 en alphanumérique est il plus petit que 15 (par exemple) est bien non car par ord...
29/09/2015 à 22:46DKL66Compter des plages de cellule variableHummm Excel + CBA avec un fichier joint au format xlsX ? plus de VBA alors Bonsoir, veuillez joindre un fichier avec du VBA soit une extension de la forme xlsM, merci @ bientôt LouReeD...
29/09/2015 à 22:42bateme Indirect utilisant path contenu dans une celluleC'est en forgeant qu'on devient forgeron C'est en sciant que Léonard Devin Ci C'est en cherchant qu'on trouve ! @ bientôt LouReeD...
29/09/2015 à 22:38theguilt Rollover, survol image zoomFichier joint à voir... Attention c'est trouvé sur le net !!! Sur chaque image de la feuille, faire un clic droit et attribuer la macro : ZoomUnZoomImage @ bientôt LouReeD...
29/09/2015 à 22:24jasonjacques Supprimer valeur dont la cellule est de couleurDeux choses : 1 j'insiste sur le numéro de couleur qui n'est pas identique 2 en mettant .value="" ça marche @ bientôt LouReeD...
29/09/2015 à 21:05Calou85 MFC en VBA ligne par ligneMais de rien, bonne fin de soirée et @ bientôt LouReeD...
29/09/2015 à 21:02jasonjacques Supprimer valeur dont la cellule est de couleurAjoutez ce morceau de code avant la boucle et voyez ce qui est écrit ! En fait, il y a une erreur de numéro de couleur, donc ça n'efface pas... @ bientôt LouReeD...
29/09/2015 à 20:38Calou85 MFC en VBA ligne par ligneLe fait de "créer" des cellules de références avec les couleurs c'est une façon de ne pas se compliquer avec les index, et en plus le jour où vous voulez modifier les couleurs, il suffit de changer les couleurs de ces cellule et nul besoin de retoucher au code VBA... @ bientôt LouReeD...
29/09/2015 à 20:09Tournament974 Code valeur numériqueJe peux facilement répondre à votre dernière question A pplication P lanning AC tivité H orair E S crollmonth c'est pour suivre des personnels tant en position journalière qu'en activité horaire... Le mieux est de vous rendre sur le forum de l'application en suivant le lien sur ma signature Pour les...
29/09/2015 à 20:04etnogaGestionMerci à vous pour le suivi de votre post ! Ca fait toujours plaisir ! @ bientôt LouReeD...
28/09/2015 à 22:51Calou85 MFC en VBA ligne par ligneUn essai avec comme couleur les couleurs qui se trouvent en entête de colonne, comme cela pas besoin de connaître le code couleur, il suffit de prendre la couleur de la cellule. La mise en couleur se fait lors d'un changement de valeur d'une cellule de la feuille, après il est possible de le mettre...
28/09/2015 à 22:48Tournament974 Code valeur numériqueMerci pour la bonne soirée, je vous le retourne Réactivité !? on me le dit souvent, mais c'est presque en ma défaveur, car le jour où "ça traine un peu"... on me le fait remarquer, je parle pas ici mais à mon boulot ! Partage de mon savoir ? Ici c'est pour ça, cela dit mon savoir n'est pas si grand...
28/09/2015 à 21:33Calou85 MFC en VBA ligne par ligneQuitte à passer par VBA pourquoi ne pas faire les 5 conditions de couleur ? Alors quelles sont les trois autres couleurs ? @ bientôt LouReeD...
28/09/2015 à 21:17Tournament974 Code valeur numériqueAprès, il existe d'autre procédure "automatique" comme par exemple "Exit" Elle est lancée lorsque l'on quitte le textbox6 par exemple : une fois sorti, VBA lance cette procédure, on détecte le négatif, on affiche le message, l'utilisateur clic sur [OK], on efface la valeur de la textbox6, pu...
28/09/2015 à 21:00Tournament974 Code valeur numériqueJe dirais oui, en effet la procédure est dans : Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) donc à chaque fois que vous appuyez sur une touche alors que vous êtes dans Textbox6, la procédure est lancée. Premier caractère "-" pas d'annonce sur le négatif car "-" tout seul n...
28/09/2015 à 20:43Tournament974 Code valeur numériquePas grave.... (YES!!!!! ) @ bientôt LouReeD...
28/09/2015 à 20:12Tournament974 Code valeur numériqueAlors il faut trouver le code Ascii correspondant au "-" et faire <> ce chiffre comme pour l'espace... essayez le 45 au fait 8 c'est backspace et non space... donc le code accepte qu'on se trompe et qu'on efface le caractère inscrit suis-je bête ? @ bientôt LouReeD...
28/09/2015 à 20:01Tournament974 Code valeur numériqueEt ça marche ? comme quoi le "And KeyAscii <> 8" ne sert à rien à moins que l'espace ne soit pas "accepté" dans "InStr(1, "0123456789.,", Chr(KeyAscii)) = 0" @ bientôt LouReeD...
28/09/2015 à 19:31LouReeDSuivi du planning et de l'activité du personnelEt merci de l'intérêt que vous portez à l'application. Je peux éventuellement faire les modifications qu'il vous faut. Je l'ai déjà fait pour plusieurs internautes ravis par l'application. Voyez en MP merci @ bientôt LouReeD...
28/09/2015 à 19:00Tournament974 Code valeur numériqueRajoutez "-" à la suite numérique.... non ? @ bientôt LouReeD...
27/09/2015 à 22:24LouReeDSuivi du planning et de l'activité du personnelBonjour @ tous ! pour ceux qui n'ont pas froid aux yeux, il a une petite erreur à corriger sur le code VBA dans le Module6 : EDIT : la dernière version corrige ces erreurs !!!! En fait il y a des test sur le quatrième caractère d'un code et le test demande 4 fois si c'est égal à "P" hors le test 2 e...
27/09/2015 à 22:17Tournament974 Code valeur numériqueHumm, le surlignement n'a pas suffit le code Ascii 8 équivaut à la touche espace, donc le code interdi l'espace dans les décimales, il interdit aussi les moins... en fait interdit tout sauf la ligne de chiffre avec le point et la virgule... @ bientôt LouReeD...
27/09/2015 à 21:59Tournament974 Code valeur numériqueLa fonction InStr (In String ?) se pose la question de savoir si les valeurs "0123456789.," sont dans (In) Chr(KeyAscii) (où Chr = caractère en anglais et KeyAscii le code Ascii de la touche appuyée) et si c'est le cas elle renvoie sa position donc un résultat positif envoie 1 ou plus (dans notre ca...
27/09/2015 à 21:00Tonher Alerte "remplacer fichier" - macro "enregistrer sous" PDFAttention à ne pas confondre une valeur "String" = à "Faux" et une valeur "boolean" = False... donc : If Sauvegarde = "Faux" Then Exit Sub et voilà le tour est joué @ bientôt LouReeD Ps : merci à vous, je viens de dépasser les 1000 messages !!!...
27/09/2015 à 18:21de barrosDeterminer semaineOk... mois sur APACHES j'ai fait un tableau avec les 7 premier jour du premier mois du planning, et en deuxième colonne je regarde si c'est un lundi ou pas, ce qui me donne la date du premier lundi.... Bidouillage, quant tu nous tiens !!!!! @ bientôt LouReeD...
27/09/2015 à 17:40de barrosDeterminer semaineMaréchal, bien reçu ! je n'avais jamais fait la corrélation entre semaine 1 qui contient le premier jeudi et le fait que pour moi la semaine 1 était celle qui comportait 4 jours (4>3 donc on estime que c'est la première semaine). donc en gros on cherche le premier jeudi du mois de janvier et on n...