Passionné d'Excel

Inscrit le :29/05/2018
Dernière activité :02/10/2022 à 13:51
Version d'Excel :Ex.365 fr 64bits
Emploi :Traité à nouveau
Lieu :Bas-St-Laurent
Messages
5'032
Votes
934
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par ric - page 60

DateAuteur du sujetSujetExtrait du message
29/11/2019 à 13:32php28Protection celulleVoici une façon de protéger les feuilles sans empêcher le code de fonctionner. Exemple : https://forum.excel-pratique.com/viewtopic.php?p=813968#p813968 Avec mot de passe Ws.Protect "MonPrécieux", UserInterfaceOnly:=True Sans mot de passe Ws.Protect UserInterfaceOnly:=True Étudie "UserInterfaceOnly"...
28/11/2019 à 19:49atlonia Remplir un listview dynamiquement... ?@atlonia ... ta méthode Do Until IsEmpty(rg.Offset(0, i)) , pour dynamiser la dimension du tableau de données, fonctionne seulement s'il n'y a aucune cellule vide. La méthode (DernièreLigne et DernièreColonne), pour dynamiser la dimension du tableau de données, fonctionne même si certaines cellules...
27/11/2019 à 14:25fronck Private sub ou sub...
27/11/2019 à 13:32fronck Private sub ou subLes parties du code qui boguent sont dans des modules. Les références manquent ... Exemple : Sheets("BD").Range("M1") = TextBoxCptKms1.Value Suggestion Sheets("BD").Range("M1") = Worksheets("saisie").TextBoxCptKms1.Value Il faudrait réviser le code ... ric...
26/11/2019 à 15:45ludeaux OuvertureIl faut scrupuleusement écrire nos mots de passe dans un beau petit carnet jaune à fleurs roses pour ne plus les perdre. ric...
26/11/2019 à 15:13ludeaux OuvertureUne chose à tenter ... maintient la touche Majuscule enfoncée et double clique sur le fichier. Ne lâche pas la touche majuscule tant que tu n'as pas repris le contrôle du fichier. Dans ThisWorkbook, il y a 2 fois la macro : Sub DéprotégerToutesLesFeuilles() . Il y a même 2 End Sub Pense à faire régu...
24/11/2019 à 18:14eole-33 Plantage Excel à cause macroUn essai ... Mais les lignes fusionnées, c'est triste ... ric...
24/11/2019 à 17:24eole-33 Plantage Excel à cause macroExcel plante avec ta macro, car tu as une boucle sans fin .... Si j'ai bien compris ce que tu veux faire... Un essai ... ric...
22/11/2019 à 16:59pouliteEnregistreur de macro pour enregistrer en pdfLe code fonctionne ... L'erreur en question ... tu tentes d'écrire dans le dossier Onedrive ... https://support.microsoft.com/fr-ca/help/849179/run-time-error-2147417848-80010108-automation-error-the-object-invoked ric...
22/11/2019 à 09:46MahatmaMàj d'une macro et la transformer sur ExcelLe mot de passe n'est pas à l'ouverture du classeur, mais ce sont les feuilles qui sont protégées contre les modifications. ric...
22/11/2019 à 09:14MahatmaMàj d'une macro et la transformer sur ExcelLes feuilles sont protégées pas un mot de passe. Peut-on avoir un copie déprotégée ? ric...
21/11/2019 à 21:48pouliteEnregistreur de macro pour enregistrer en pdfL'enregistreur n'a pas tout capté le nécessaire. Regarde au bas de cette page, dans Sujets similaires , il y a plusieurs fils qui en discutent. ric...
21/11/2019 à 21:12JeremyW Tester deux feuillesUn essai ... ric...
21/11/2019 à 19:46infolarive Entrer plusieurs mots dans une celluleLe code que je t'ai fait parvenir, c'est lui qui gère le cas et il ajoute au besoin le double apostrophe. Donc, les gens peuvent saisir un nom contenant une apostrophe et ça va fonctionner. ric...
21/11/2019 à 13:05dav86 Erreur 1004 avec une méthode not intersectIl semble y avoir de la confusion à l'exécution du code. Le code, en écrivant dans la feuille, déclenche à répétition l'exécution Private Sub Worksheet_Change(ByVal Target As Range) . Les Unprotect et Protect finissent par se mêler et le code bogue en tentant d'écrire dans une feuille protégée. Je t...
21/11/2019 à 12:34bofala Macro ne fonctionne pas sur tous les PCsLa suggestion d'X Cellus en pas-à-pas détaillé... Sur l'ordinateur de ta collègue où l'exécution pose problème ... Ouvre les deux fichiers : 1- Planning_Equipe ......... puis, macro_planning........ Ouvre la fenêtre "Microsoft Visual Basic pour Applications" (raccourci ALT-F11) . Va dans le Module1...
21/11/2019 à 09:52Noctam Copie-colle VBA sous conditionRic...
21/11/2019 à 09:47infolarive Entrer plusieurs mots dans une celluleSi le nom comporte une apostrophe, il faut doubler l'apostrophe dans la formule ... Un essai ... Voir deux lignes avant le "End Sub". ric...
20/11/2019 à 18:22redj12Pièce jointe vérouilléeCela sert quelques lignes plus bas à extraire le nom du fichier sans son chemin. MonFich = Right(Source_File, Len(Source_File) - Len(LeNom)) Ensuite, avec le nom du fichier, l'on peut lire dedans. Montant = Workbooks(MonFich).ActiveSheet.Range("E" & dlig).Value Pour inclure le Montant dans le co...
20/11/2019 à 16:34infolarive Entrer plusieurs mots dans une cellule@Xmenpl ... tout à fait d'accord. Le fichier d'origine était tout autre, je constate qu'il a été adapté à de nouveaux besoins. ric...
20/11/2019 à 16:25infolarive Entrer plusieurs mots dans une celluleCurieux, l'on dirait qu'il y a eu des changements dans le code depuis. Quoiqu'il en soit .... Un essai de correction ... Dans la feuille "Accueil" ... remplace ... ric...
20/11/2019 à 13:12redj12Pièce jointe vérouilléeUn essai ... Remarque : j'ai ajouté le symbole euro à la suite du montant dans le texte du corps du message ... ric...
19/11/2019 à 22:36mc guill Imprimer un tableauRic...
19/11/2019 à 22:36Soph_Girl Formulaire saisie de données - Écrase toujours la ligne malgré le codeRic...
19/11/2019 à 19:43mc guill Imprimer un tableauUn essai ... Dans "Mise en page" > Ajuster à 1 page de largeur sur 1 page en hauteur. J'ai diminué les marges à 1 cm. ric...
19/11/2019 à 19:12rvoogProblème de défilement au dessus de la 1e ligne (Excel 2016)Un essai ... Quand Excel est fermé ... Va dans le dossier caché : C:\Users\ ... ton nom d'usager ... \AppData\Roaming\Microsoft\Excel Il y a le fichier Excel15.xlb (le chiffre 15 peut varier selon la version d'Excel). Supprime-le ou renomme-le ... genre Excel15.xlb.old C'est le fichier de personnali...
19/11/2019 à 19:03Soph_Girl Formulaire saisie de données - Écrase toujours la ligne malgré le codeUn souci, la méthode pour ajouter une ligne au tableau avant d'y inscrire les données. Pour une autre feuille, il suffit d'adapter le nom du tableau au besoin (2 endroits) Essai ainsi ... ric...
19/11/2019 à 17:56Noctam Copie-colle VBA sous conditionDans ton fichier exemple, il n'y avait pas de code différent pour tester ... Un essai ... Ce n'est peut-être pas le code le plus rapide ... ric...
19/11/2019 à 16:54Noctam Copie-colle VBA sous conditionSi le masterkey est déjà présent, l'on écrase les données ? Si le masterkey n'est pas présent, l'on ajoute au bas ... Est-ce bien cela ?? ric...
19/11/2019 à 16:27redj12Pièce jointe vérouilléeEst-ce qu'Excel est bien l'application par défaut pour le type de fichier .xlsx ? Le problème ne provient pas du code ... mais, éventuellement de la sécurité d'Excel ou d'Outlook; sécurité qui a éventuellement pu être modifiée sur ma machine. Mais là, je n'ose pas suggérer quoique ce soit concernant...
19/11/2019 à 14:46redj12Pièce jointe vérouilléeLa version 16 est proche de la version 365 (laquelle évolue sans cesse). Ici, ton code fonctionne. Une fois le courriel à l'écran, je peux ouvrir la pièce jointe, puis la fermer et finalisé l'envoi du courriel. Un renseignement que tu n'as pas mentionné ... est-ce des fichiers Excel (.xlsx ou .xlsm)...
19/11/2019 à 13:25redj12Pièce jointe vérouilléeNi ton profil, ni ton message ne mentionnent quelle version de la Suite Office tu utilises. Ici sur Office 365 ... ça fonctionne correctement. ric...
19/11/2019 à 12:51ilienfrancois Arrondir une formule et la mettre en €Ca ressemble à un chiffrier qui concernerait des paris. Si c'est le cas, cela est contre mes valeurs. ric...
19/11/2019 à 12:03ilienfrancois Arrondir une formule et la mettre en €Un essai ... =CONCATENER((ARRONDI(0,646161;2)*100);" ";"€") ric...
19/11/2019 à 11:45yanou1664Supprimer les lignes suivant sélection d'une listboxUne interrogation ... T3 = Array(Sheets("Feuil1").Range("B500").Value) Un Array ne devrait-il pas contenir plusieurs valeurs pour y boucler ? T3 = Array(Sheets("Feuil1").Range("B500:B502").Value) ne serait-il pas ce que tu cherchais à obtenir ? Quelles données faut-il coller dans B5 pour que les mac...
19/11/2019 à 09:13jonat28 Actualiser une feuil Excel aideExcuser mon erreur ... ric...
18/11/2019 à 23:46thespeedy20N'affiche pas les bonnes données en fonction d'une sélection dans 1 listboxDis-moi, dis-moi ... S'il peut y avoir de la multisélection dans "Choix du degré", y aura-t-il en même temps de la multisélection dans "Choix de cours ? Où même encore plus ... de la multisélection en même temps dans "Choix du professeur" ?? ric...
17/11/2019 à 22:01thespeedy20N'affiche pas les bonnes données en fonction d'une sélection dans 1 listboxJe m'y suis essayé et je m'y suis cassé les dents. ric...
17/11/2019 à 21:49Cedcel85CheckboxAussi, je modifierais les 3 blocs de macro ainsi : ric...
17/11/2019 à 21:45Cedcel85CheckboxLes hauteurs des CB ne sont pas toutes identiques, certaines sont trop haute. Mets les hauteurs (height) à 12,5 et les hauteurs de lignes à 15,75. Puis les Top ne sont pas tous égaux : CB_TC47 et CB_TC47 CB_TC48 et CB_TC48 CB_TC012 et CB_TC012C Assures-toi aussi que les CB sont bien centrés en haute...
17/11/2019 à 13:53Andre13 Toggle bouton Up et Down modifier direction au clic boutonIl suffit de lier les macros aux flèches. J'ai aussi simplifié le code ... ce qui arrête le défilement rendu à la limite. Si tu supprimes les boutons, il faudra modifier le code. Voir si ça convient... ric...
17/11/2019 à 13:31Andre13 Toggle bouton Up et Down modifier direction au clic boutonCoder pour arrêter arrivé à la fin ou au début selon le bouton. Sinon ainsi, c'est une boucle. ric...
17/11/2019 à 13:29Andre13 Toggle bouton Up et Down modifier direction au clic boutonJe n'ai pas trop compris ta demande ... Mais quand même ... un essai ... Je n'ai qu'inversé les 2 codes ... J'ai remplacé les données pour voir le mouvement. ric...
15/11/2019 à 16:23Floki_94 Temps d’exécution trop longSi tu as des formules et des macros événementielles ... Un essai ... ric...
15/11/2019 à 15:42Floki_94 Temps d’exécution trop longRic...
15/11/2019 à 15:04Floki_94 Temps d’exécution trop longDans le code de Galopin ... As-tu remarqué a = Range("A1:A91001").Value et For i = 91000 To 1 Step -1 qu'il y une ligne de moins dans la boucle "For". Sinon tu auras l'erreur 9 Ce qui n'a rien à voir avec l'erreur 9, une petit coquille à corriger : ......... a et a ....................................
15/11/2019 à 09:51Nowhereman Problème userform sur deux écransRic...
14/11/2019 à 20:35redj12 Envoi emailUn essai ... La ligne ChDrive "T" n'est pas nécessaire si tu restes sur le même lecteur. Sinon, adapter à la lettre d'unité désirée. ric...
14/11/2019 à 20:24thespeedy20 2 Listes déroulantes en conflit ?Ric...
14/11/2019 à 19:39thespeedy20 2 Listes déroulantes en conflit ?Si tu tiens à faire effectuer le trie ... place la ligne en dernier, juste avant le Application.EnableEvents = True Je ne l'ai pas testé, mais je crois que ça devrait faire l'affaire. ric...