Résultats de la recherche

Bonjour à tous Afin de contacter mes patients rapidement, j'ai besoin d'une macro pouvant faire ceci : Transposer toutes les 4 lignes dans 4 colonnes différentes A1 : Nom A2 : Adresse A3 : VILLE A4 : Tel A5 : Nom A6 : Adresse A7 : VILLE A8 : Tel etc jusqu'a 11 000 lignes Transposer dans une...

Bonjours à tous A l'ouverture d'un classeur, est-il possible de détecter si l'utilisateur à activer les macros (mode protégé)? Si le mode "protégé" n'est pas activer, inscrire dans A1 "Mode protégé activé - Activez le pour modification" Si le mode "protégé" est activer, ne rien inscrire Merci...

Bonjour à tous. Meilleurs Vœux ! Je lance cette procédure depuis un bouton de la feuille "Menu" Celui-ci fonctionne parfaitement mais j'aimerais y apporter quelques modifications. 1 - Ne plus voir la procédure s'effectuer et rester sur la feuille "MENU" 2 - Pour la version PDF : - seulement...

Bonjour à tous Encore ce maudit problème de date dans un UserForm J'initialise un UserForm avec ceci : Private Sub UserForm_Initialize() TextBox13.Text = (Format(CDate(Now), "dddd dd mmmm yyyy")) End Sub J'aimerais récupérer dans "TextBox14" juste le jour Private Sub TextBox13_Change()...

Bonjour à tous Dans TextBox1 j'ai une date. J'aimerais récupérer dans TextBox2, le jour correspondant (Lundi, Merdi, etc...) et dans TextBox3 le N° du jour (1er, 2ème, 3ème, 4ème, 5ème) jour du mois Ex : Le 25/12/2019 c'est un mercredi (TextBox2) et le 4ème (TextBox3) du mois Joyeux Noël ! David

Bonjour à tous J'utilise une "machine à gaz" depuis des années. Un décret vient de paraître m'obligeant à de réelle changement. Je ne pratique plus de VBA depuis ce temps donc j'ai besoin de votre aide. Bref..., mon problème. J'aimerais envoyer dans .Cell(ligne,10) ceci : .Cells(ligne, 10) =...

Bonsoir le Forum Juste pour la forme ! Est'il possible de supprimer un UserForm et d'en remettre un autre à la place ? en macro ! Je pensais à ça afin de mettre à jour cet UserForm dans un projet C'est à dire, j'ouvre mon "vrai" projet. Je lance une procédure qui supprime UsfTOTO et...

Bonsoir le Forum Comment identifier sur quel Label l'utilisateur à cliqué et lui attribuer une procédure J'ai une vingtaine de Label (Label1, Label2, etc) Sur Label1 ==> Tri de la colonne A Sur Label2==> Tri sur la colonne B Etc... Comment éviter de faire 20 fois le même code ...

Bonjour le Forum Au dessus de ma Listbox, j'ai un Label qui tri la colonne : Private Sub LblMotif_Click() Dim Tri As Integer Dim Plage As Range Tri = Feuil1.Range("A65536").End(xlUp).Row Set Plage = Feuil1.Range("A1:T" & Tri) Plage.Sort Feuil1.Columns("C"), Order1:=xlAscending...

Bonsoir le Forum J'ai un problème de format de date sur certaines conditions. J'ai mis une bonne partie de mon classeur en pièce jointe pour que vous voyez comment les données sont enregistrées. Explication : 1 - Ouverture de l'UserForm 2 - Cliquez sur Imprimer 3 - Une feuille...

Bonjour le Forum Je copie la largeur de colonne avec ce code Selection.PasteSpecial Paste:=xlPasteColumnWidths, SkipBlanks:=False, Transpose:=False Comment "compiler ces deux codes pour avoir également les bordures? Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone...

Bonjour le forum J'ai une fonction (connu de tous) qui fonctionne très bien sur XL 2003. Sur un autre PC avec XL 2010, ça ne marche plus. Je vous met 2 fichiers de démo en pièces jointes. Mettre ces 2 fichiers dans un répertoire ""c:\Fichtemp"" et ouvrir ""Classeur_Cible"" Merci...

Bonjour le forum J'ai cette fonction qui fonctionne bien sur Excel 2003 Je viens d'installer 2010 et ça bloque à cette ligne Error errnum Une idée ? Merci de votre aide David ' This function checks to see if a file is open or not. If the file is ' already open, it returns True...

Bonjour le Forum et meilleurs Vœux à tous. Cette erreur s’exécute suivant ce que l'on fait avant ! Avec erreur : 1 - Ouvrez le fichier 2 - Cliquez sur bouton 1 3 - Cliquez dans la TextBox Sans erreur : 1 - Ouvrez le fichier 2 - Cliquez dans n'importe quelle cellule 2 -...

Bonjour le Forum J'avais un problème. Je voulais récupérer dans un label un nombre d’occurrences d'un tableau. J'ai donc essayé toute la journée de moi-même et cela fonctionne ! Mais je suis sûre qu'il y a plus simple ! ? L'idée de base était d'avoir dans une Listbox avec 3 colonnes...

Bonjour Encore besoin de votre aide ! Avec ce code, ma Listbox se remplie des éléments de la colonne H (sans doublon et trié). J'aimerais ajouter la colonne J à cette liste J'avais imaginé ceci !! For Each c In f.Range("H2:H", "J2:J" & f.[A65000].End(xlUp).Row) Comment faire ...

Bonjour le Forum A force de rechercher, essayer diverses feuilles, adapter à mon projet, j'ai pratiquement fini celui-ci ! Tout fonctionné bien mais j'ai eu cette idée d'ajouter un "filtre" sur une ListBox Depuis ce temps, mes fonctions "Enregistré, modifié, supprimé, ajouté, ne...

Bonsoir à tous Je n'arrive pas à trouver le bon code pour afficher certaines lignes suivant 3 boutons d'option. Merci beaucoup pour votre aide Ci-joint, mon fichier épuré David

Bonjour à tous

Bonjour le forum Je cherche à tester si un classeur est ouvert à l'aide d'un bouton et m'indiquer le résultat dans une boite de dialogue. J'ai trouvé entre autres cette solution mais cela ne fonctionne pas. Cela m'indique toujours que "Le classeur CHRONOS n'est pas ouvert" alors qu'il est...