| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 28/05/2020 à 23:09 | rousquine | Extraire un texte alpha numérique d'une cellule Excel | Ne pas oublier de clôre le sujet en validant puisque tu estimes celui-ci résolu... |
| 27/05/2020 à 10:33 | korgon06 | Décaler texte cellule vers autre colonne | Je suppose que ces numéros en format texte sont déjà présents sur une feuille et que tu souhaites un changement de colonne pour certains. Donc une boucle sur la 1ière colonne devrait te suffire. La ligne 1 est celle des titres. Bonne continuation... |
| 26/05/2020 à 23:35 | PIERRO1234 | Macro protection et masque | Bonne nuit à vous, Je reviens sur le site assez tard. Et prends une moitié de résolu laissant la 1ière à André13. Il devrait y avoir la possibilité de valider pour plusieurs. Peut être dans une nouvelle version du site. À plus... |
| 26/05/2020 à 09:07 | PIERRO1234 | Macro protection et masque | Suite, Pour cela la 3ème ligne de la macro en module 2 doit avoir la propriété Hidden à True pour masquer et sinon False pour démasquer. Mettre un Stop en dessous de cette ligne pour arrêter la macro et vérifier. Ôter le Stop ensuite. Bonne continuation... |
| 26/05/2020 à 08:25 | PIERRO1234 | Macro protection et masque | Je vérifie toujours le fichier posté. Et sur les colonnes E et F il y a le mot test pour contrôle. Or après la macro ces mots sont bien cachés. Cela confirme que les colonnes sont bien masquées. Tu peux faire l'inverse en les démasquant pour te rendre compte de cela. Bonne continuation... |
| 25/05/2020 à 20:49 | bramavalos | Macro pour colorier l’intérieur d'une forme | A nouveau, Si tu souhaites revenir à sa couleur précédente pour tout texte différent de "FOLD" alors il faut ajouter en fin de ton code Else: Shapes("Action1.1").Fill.ForeColor.RGB= RGB(couleur d'avant): Shapes("Action1.1")... etc... idem pour la bordure Où couleur d'avant est les 3 valeurs RGB de c... |
| 25/05/2020 à 20:43 | PIERRO1234 | Macro protection et masque | A nouveau, En retour ton fichier modifié. Note que l'appel à la macro du module2 est fait avant que les feuilles soit masquées. Car sinon la feuille cible (A) n'est plus visible et accessible (car protégée) pour la macro du module. Bons tests, bonne continuation... |
| 25/05/2020 à 18:43 | PIERRO1234 | Macro protection et masque | J'ai télécharger ton fichier et te dirais ce qu'il en est après le diner. A suivre..... |
| 25/05/2020 à 18:36 | bramavalos | Macro pour colorier l’intérieur d'une forme | Bonjour Bramavalos, ddetp88 , D'abord pour shape, on n'utilise pas la propriété Text mais TextFrame.Characters.Text afin de modifier le texte qu'elle contient. Ensuite il est possible de passer par une procédure événementielle tel que ton code le montre. Mais il est mieux que la forme reçoive son te... |
| 24/05/2020 à 16:03 | PIERRO1234 | Macro protection et masque | Je fais souvent cela, surtout quand le code module est long. On peut laisser en Public Sub la partie module. En plus le Call est en fin de macro Private. No anxiety... |
| 24/05/2020 à 15:33 | damien7338 | Maccro pour recherche mot dans plusieurs feuilles et mise en couleur | Bonjour Damien7338, André13 Une proposition sans macro avec MFC et liaison feuilles Recette vers Feuille Sommaire. Voir notes en rouge sur Sommaire. Pour adaptation aux feuilles suivantes. Quelques exemples faits. Bons tests, bonne continuation... |
| 23/05/2020 à 09:56 | lolospeed | Calculer le nombre de cellule supérieurs à une autre | Modif sur mon précédent post. Voir toujours en feuille 2. Avec ajout d'une formulation directe, plus simple que celle indirecte. Bons tests, bonne continuation... |
| 22/05/2020 à 14:06 | lolospeed | Calculer le nombre de cellule supérieurs à une autre | A nouveau, Voir feuille 2 de ce classeur. Bonne continuation... |
| 22/05/2020 à 12:01 | Lélise | Fleche de la liste déroulante | A nouveau, @ ddetp88, merci pour efficace et l'appréciation. Moins pour tricheur. Le but étant de laisser un repère semblable à l'emplacement de la liste de validation. Et vu que cette dernière l'emporte sur la forme au moment du clic. Pas de souci. A +... |
| 22/05/2020 à 11:55 | lolospeed | Calculer le nombre de cellule supérieurs à une autre | Si tu n'arrives pas à poster écrit au moins 3 ou 4 lignes de tes clients plus tes colonnes chiffrées. Une fois ton mini-tableau créé ce sera plus simple pour te conseiller. Car ton exemple est trop imprécis... |
| 22/05/2020 à 11:43 | Lélise | Fleche de la liste déroulante | Exemple de liste de validation avec flèche permanente. Voir notes en rouge. Bonne continuation... |
| 21/05/2020 à 11:55 | qassim | Problème avec l'indicateur | Fichier en retour, voir nombres en rouge. Par contre pour une meilleure maintenance. Ne pas laisser la description vide si en face il y a un temps. Idem pour la date, ne pas laisser une date si description vide. Ne pas bouger A1 qui donne le nombre de lignes de ton tableau automatiquement (voir macr... |
| 20/05/2020 à 16:56 | BEGUEL | Code VBA pour modifier l’épaisseur d’une flèche en fonction d’une cellule | A nouveau, Voici en retour ton fichier modifié. Voir commentaires dans la macro. Adapter les nombres selon préférences. Bons tests, bonne continuation... |
| 20/05/2020 à 16:38 | Skywalkeuse | Récupérer première lettre prénom et nom entier | Ton besoin sous forme macro. Ouvrir l'éditeur VBA par ALT + F11. Puis par CTRL + R ouvrir l'éditeur de projet. Ensuite sélectionner le dossier Microsoft Excel Objets. Puis clic droit menu Insertion, puis choisir Module. Et dans ce module insérer le code ci-dessous. Les prénoms et Noms commencent à p... |
| 20/05/2020 à 13:14 | BEGUEL | Code VBA pour modifier l’épaisseur d’une flèche en fonction d’une cellule | Pour cela faire ActiveSheet.Shapes("NomFlèche").Width = Range("A1") Adapter NomFlèche au nom exact de ta forme. Bonne continuation... |
| 20/05/2020 à 11:03 | KTM | Macro pour copier/coller une shape | A nouveau, Avec commentaires La seule modification à faire est de changer untel par le nom de la forme à copier. Bonne continuation... |
| 20/05/2020 à 09:36 | KTM | Macro pour copier/coller une shape | Sub copyshape() ActiveSheet. Shapes("untel"). Copy For S=1 to 50 Feuil=Cstr(S) Sheets(Feuil).Paste Next S End sub Bonne continuation... |
| 19/05/2020 à 20:52 | Samaos34 | Fichier en cours d'utilisation | N'étant pas sous office 365 je ne pourrais pas te conseiller au mieux. Simplement dans la boîte de Dialogue Enregistrer Sous puis le sous-menu Outils il existe Options générales qui instaure l'utilisation de Mots de passe différenciés selon que l'utilisateur active Excel en mode lecture ou en mode m... |
| 19/05/2020 à 17:02 | L3GION | Ajouter un bouton sur userform pour insérer un caractère spéciale | Il n'y a pas besoin de End if puisque le code est écrit sur une seule ligne... |
| 19/05/2020 à 16:57 | FloC18 | Copier/coller spéciaux avec private sub | Si tu utilises le fichier fourni sans modifier son code tu pourras toujours Copier/coller ou Couper/coller par clic-droit. Avec le mini-menu à 2 choix qui s'affiche... |
| 19/05/2020 à 16:43 | Invité | Lien hypertexte | Et si, elle va bouger en même temps que le texte qui l'entoure. Insère une ou plusieurs ligne(s) avant. Et l'ensemble texte + zone de texte se déplacera en même temps, sans désunion. De même si tu insères une ou plusieurs colonne(s) avant le texte + zone de texte. Excel est user friendly, simplement... |
| 19/05/2020 à 12:02 | rousquine | Extraire un texte alpha numérique d'une cellule Excel | En restant fichier.xlsx une formule ressortant le n° de facture. A recopier vers le bas pour les autres éléments. Bonne continuation... |
| 18/05/2020 à 22:38 | L3GION | Ajouter un bouton sur userform pour insérer un caractère spéciale | Pour ton 1ier code rajoute if Len(TextBox14)>0 then Workbook("Base ...etc.... = CDbl(TextBox14) Pour ta demande de bouton, c'est pas très clair, au minimum une image de ce que tu veux faire serait plus explicite. Bonne continuation... |
| 18/05/2020 à 22:14 | Samaos34 | Fichier en cours d'utilisation | Pour cela tu peux utiliser les codes ci-dessous qui vérifie à l'ouverture du classeur si une cellule est vide ou non. Si elle n'est pas vide un message d'alerte surviendra. Et d'autre part à la fermeture du classeur rend cette même cellule vide. Il faut placer le code dans l'objet ThisWorkbook. Fair... |
| 18/05/2020 à 19:37 | Invité | Lien hypertexte | Oui, c'est possible sur une seule ligne et une seule colonne. Pour cela il faut coupler le texte avec une zone de texte. C'est à cette dernière que l'on affecte le lien hypertexte. Exemple: Le texte de la ligne > Dossier Pdf |.......................................| pour les fichiers mensuels. En... |
| 18/05/2020 à 11:01 | tnussbaumer | Trouver valeur la plus proche de 0 | Comparaison de V1 par rapport à V2: PPZ sera entre deux valeurs celle plus proche de 0. Bonne continuation... |
| 18/05/2020 à 10:45 | bobafric | Remplacer les noms par des images | Exemple fait sur la feuille TextDeux selon présentation dans le document Word. Juste en cliquant sur le bouton Swap sous Excel Ci-dessous images des sorties respectives sous Word puis sous Excel. Bonne continuation... |
| 17/05/2020 à 16:04 | bobafric | Remplacer les noms par des images | A nouveau, Version finale sans utilisation de l'underscore _ pour les prénoms. Vu qu'ils ont leur initial en majuscule. Après copie des textes sur Excel. Ceux-ci seront formatés de façon global en police Consolas (ou de même type). De façon global, c'est à dire par exemple par clic sur l'entête de c... |
| 16/05/2020 à 19:51 | bobafric | Remplacer les noms par des images | A nouveau, Version finale du fichier. Voir commentaires sur la feuille images. Note: Sur ton dernier fichier posté, confusion entre Chantal et Sophie en troisième phrase sur ta feuille Résultat. Ce qui fait la différence avec ma feuille TextUn. Bons tests, bonne continuation... |
| 16/05/2020 à 13:52 | bobafric | Remplacer les noms par des images | J'ai téléchargé le fichier et adapterais selon le résultat escompté. A suivre..... |
| 16/05/2020 à 13:49 | phil74950 | Enregistrement pdf dans un dossier specifique | En retour l'ajout de la macro ExpPdf sur le fichier. Voir notes sur la 1ière feuille. Bons tests, bonne continuation... |
| 15/05/2020 à 22:22 | pierr974 | Changer le texte dans "Value" sans ouvrir la fenêtre propriété | C'est possible sans passer directement par la fenêtre Propriété du contrôle. Il faut utiliser la méthode événementielle. Exemple: La cellule A10 présente un texte ou une valeur modifiable ou est vide. La propriété Value du TextBox est modifiée lorsque l'utilisateur change le texte ou la valeur ou n'... |
| 14/05/2020 à 23:53 | Albatros182 | Adapter un code 32 bits en 64 bits | A nouveau, @BrunoM45, Exact pour les # que j'ai oublié. Pour Win64, il est tellement peu utilisé que Vba7 fait quasiment l'affaire. Voir le lien fourni... |
| 14/05/2020 à 23:05 | Albatros182 | Adapter un code 32 bits en 64 bits | Pour le choix de la version 64 bits ou 32 bits Faire le test avec VBA7 ou WIN64 qui aiguilleront vers la version 64 si le test est vrai (True) Exemple: Bons tests, bonne continuation... |
| 13/05/2020 à 18:40 | CDrik31 | Verifier une adresse avec google maps | A nouveau, Non, pas besoin, la macro reconnaît la flèche. Si celle de droite c'est l'adresse de droite qui sera récupérée et inversement. Cela permet de réduire le nombre de macros, vu la centaine de flèches présentes. N'oublie pas de clore le sujet si OK... |
| 13/05/2020 à 17:41 | CDrik31 | Verifier une adresse avec google maps | A nouveau, En retour le fichier modifié. Donc clic sur la flèche verte souhaitée, la macro N°1 est affectée à celle du haut. Mais il suffit pour les autres flèches d'affecter la même macro. Elle peut gérer l'ensemble des flèches du moment qu'une adresse est présente à côté. Ensuite en fin de macro e... |
| 13/05/2020 à 15:17 | horihori974 | Scrabble carlvb | N'ayant pas le contrôle WebBrowser je ne peux pas te proposer un code en rapport avec celui-ci. De plus le code donné ne doit pas être suivi avec F8. Puisqu'il travaille directement jusqu'à fournir la page voulue. Si tu est en Pas à pas détaillé, tu ralentis la procédure or les pages Web n'attendent... |
| 13/05/2020 à 14:41 | RafMax | Somme avec Exclusion des cellules sans remplissage (de couleur) | En retour fichier modifié. Clic gauche sur le bouton Somme. Bons tests, bonne continuation... |
| 13/05/2020 à 12:52 | bobafric | Remplacer les noms par des images | A nouveau, Pour les feuilles Texte et Texto tu peux tester une phrase de la liste des phrases qui sont en police Consolas. Respectivement pour la feuille Texte sur une des lignes 3 jusqu'à 9 qui est la limite (cellule C1) et colonnes A à J (à choisir, voir haut de la macro) . Exemple placer le texte... |
| 13/05/2020 à 11:28 | bobafric | Remplacer les noms par des images | En retour version 5 du fichier qui apporte plusieurs modifications. Notamment l'utilisation d'une police à chasse fixe (type Consolas) qui permet un meilleur positionnement des images. Du fait d'un espacement des caractères identiques. La possibilité de démarrer le texte sur n'importe quelle ligne e... |
| 13/05/2020 à 11:15 | CDrik31 | Verifier une adresse avec google maps | A nouveau, Laisse un mini fichier, donc tout simple, avec n'importe quelle adresse dans une cellule. Afin de te renvoyer une solution. Ce n'est qu'une concaténation de texte entre le " " plus ta cellule comprenant l'adresse en format texte. Ensuite cela est lancée de manière événementielle par VBA s... |
| 12/05/2020 à 22:50 | CDrik31 | Verifier une adresse avec google maps | Voir le lien ci-dessous, solution proposé par Steelson https://forum.excel-pratique.com/viewtopic.php?f=2&t=122617 Ainsi que sur le même sujet https://forum.excel-pratique.com/viewtopic.php?f=2&t=130288 C'est un thème récurrent qui est souvent traité. Bonne continuation... |
| 12/05/2020 à 20:46 | bobafric | Remplacer les noms par des images | A nouveau, Note que les images prennent de la place en hauteur. Donc avec la hauteur de ligne actuelle sur les feuilles de ton fichier. Il faut espacer d'une ligne blanche (vide de texte) les phrases car sinon il peut y avoir chevauchement des images. Et cela ferait perdre de la lisibilité. Avec une... |
| 12/05/2020 à 14:52 | FloC18 | Copier/coller spéciaux avec private sub | Attention à l'adaptation. Les procédures événementielles lors des opérations Copy et Cut, surtout cette dernière engendrent pas mal de blocage... |
| 12/05/2020 à 14:46 | bobafric | Remplacer les noms par des images | En retour la version 4 du fichier Excel. Afin de gérer automatiquement l'ajout de photo(s) supplémentaire(s) du personnage si celle(s)-ci n'existe(nt) pas dans la feuille. Ajout d'une feuille Direct qui permet d'écrire une phrase avec les prénoms des personnages. Puis les images de ceux-ci se placen... |