| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 15/09/2025 à 16:23 | fred62200 | Macro numérotation_automatique ne fonctionne pas | Merci, bonne journée également... |
| 15/09/2025 à 16:13 | fred62200 | Macro numérotation_automatique ne fonctionne pas | Merci Saboh ! ça fonctionne en faisant ceci : Sub Auto_Open() ' ' Auto_Open Macro ' ' Touche de raccourci du clavier: Ctrl+n ' With Sheets("Facture").Range("B2") .Value = .Value + 1 End With End Sub... |
| 15/09/2025 à 15:11 | fred62200 | Macro numérotation_automatique ne fonctionne pas | Bonjour, j'essaye de créer une macro qui numérote automatiquement une facture en incrémentant de 1 à chaque ouverture de feuille, mais ça ne fonctionne pas : Sub Numérotation_automatique() Sheets("Facture").Select Set numéro = Range("B2").Value numéro = numéro + 1 Range("B2").Value = numéro End Sub... |
| 08/09/2025 à 17:13 | fred62200 | Problème de fonctionnement d'une macro de formats personnalisés | ... |
| 08/09/2025 à 17:10 | fred62200 | Problème de fonctionnement d'une macro de formats personnalisés | Bonne fn de journée à toi aussi... |
| 08/09/2025 à 16:57 | fred62200 | Problème de fonctionnement d'une macro de formats personnalisés | Merci Saboh ! ça fonctionne :)... |
| 08/09/2025 à 16:51 | fred62200 | Problème de fonctionnement d'une macro de formats personnalisés | Merci Saboh, j'ai essayé ta méthode, ça m'affiche "membre de méthode ou de donnée introuvable" pour .cellls... |
| 08/09/2025 à 16:30 | fred62200 | Problème de fonctionnement d'une macro de formats personnalisés | Pas besoin d'envoyer le fichier, parce que maintenant, ça fonctionne, mais j'ai du sélectionner les cellules une par une (comme c'est la cellule active à chaque fois)... |
| 08/09/2025 à 16:02 | fred62200 | Problème de fonctionnement d'une macro de formats personnalisés | Merci beaucoup, Joco. J'ai testé, ça m'affiche "variable non définie" pour xlUnderlineSingle, je l'ai remplacé par xlUnderlineStyleSingle, cette fois-ci la macro fonctionne, mais il faut que je sélectionne les cellules une par une... |
| 08/09/2025 à 14:57 | fred62200 | Problème de fonctionnement d'une macro de formats personnalisés | Bonjour, je n'arrive pas à faire fonctionner cette macro. Cette macro a pour but de modifier les caractéristiques d'affichage en fonction du contenu : le gras, l'italique, le soulignement, la police et la taille de caractère. Sub MiseEnEvidence() Action.Execute MiseEnEvidence Until ActiveCell="" Dep... |
| 02/06/2025 à 20:48 | fred62200 | Recalcul (instruction Excel 7) remplaçé par Recalculate, ne fonctionne pas | Ca fonctionne ! merci beaucoup, bonne soirée... |
| 02/06/2025 à 18:37 | fred62200 | Recalcul (instruction Excel 7) remplaçé par Recalculate, ne fonctionne pas | Super, ça fonctionne, par contre le message la valeur est inférieure ou égale à 100, revient à chaque fois qu'on clique qq part dans la feuille, indéfiniment... |
| 02/06/2025 à 18:25 | fred62200 | Recalcul (instruction Excel 7) remplaçé par Recalculate, ne fonctionne pas | Je n'arrive pas à ouvrir le fichier parce que je suis sous Excel 2003... |
| 02/06/2025 à 17:59 | fred62200 | Recalcul (instruction Excel 7) remplaçé par Recalculate, ne fonctionne pas | J'entre la valeur 120 (donc je dépasse la valeur 100), et je n'entends pas de Beep... |
| 02/06/2025 à 17:51 | fred62200 | Recalcul (instruction Excel 7) remplaçé par Recalculate, ne fonctionne pas | For Sound = 1 To 3 (Variable non définie)... |
| 02/06/2025 à 17:07 | fred62200 | Recalcul (instruction Excel 7) remplaçé par Recalculate, ne fonctionne pas | Sub Auto_Open() Application.WhenRecalculate = "Alarme" End Sub Sub Alarme() If Sheets("Résultats").Cells(2, 3) > 100 Then For Sound = 1 To 3 Bip For Delay = 1 To 200000 Next Delay Next Sound End If End Sub Cette macro ne fonctionne pas, j'ai du faire une erreur qq part... |
| 29/05/2025 à 19:02 | fred62200 | Commande Insertion-Macro-Module introuvable ds Excel 2003 | Bonjour, merci pour l'accueil et pour la réponse. j'ai commencé à modifier : Sub Macro_Addition() Set CelluleAdd = CelluleActive Donnée = InputBox("Entrez la valeur:""Valeur à additionner") If Donnée <> "" Then NouvelleValeur = CelluleAdd + Donnée CelluleAdd.Valeur = NouvelleValeur End If End... |
| 29/05/2025 à 16:26 | fred62200 | Commande Insertion-Macro-Module introuvable ds Excel 2003 | Bonjour, débutant en macros sur Excel 2003, je ne trouve pas la commande Insertion-Macro-Module. Je cherche le moyen d'ouvrir un module dans mon classeur pour faire une macro simple d'addition : Proc AdditionDansCellule() AffecteRéf CelluleAdd = CelluleActive Donnée = BoîteSaisie("Entrez la valeur:"... |