Contenu récent par JMV

Bonsoir, Il est sûrement possible de générer toutes les combinaisons, mais dans quel but ? n est-il vraiment indéterminé ? si 2 chiffres sont indentiques doit-on supprimer les doublons ? si n dépasse 8 il faut écrire les réponses sur plusieurs colonnes ? Bonne soirée. JMV

Bonsoir, Le séparateur de liste de ton 'source.csv' est le ';'. C'est, je crois, pour cela que ta macro ne fonctionnne pas. J' ai effectué plusieurs tests en modifiant le séparateur de liste de Windows et j'ai obtenu le même résultat que toi. Ci-joint ton 'source.csv' modifié et un...

Merci Hervé C'est déjà un pas en avant... et 'MacroOptions' permet aussi d'ajouter un descriptif à mes fonctions. Merci et A+ Jean-Marc

Bonjour, Comment faire pour qu'une fonction crée avec VBA s'affiche dans les 'dernières fonctions utilisées' dans excel ? J'ai trouvé le rgistre dans lequel ces fonctions sont stockées sous forme de n°. Il s'agit de 'MRUFuncs'. Mais je ne sais ni comment donner un n° à ma fonction et ni...

Bonsoir, Merci Yeahou, mais si je souahite avoir plus de 56 couleurs cela ne va pas fonctionner. Aussi, si 'coul' me renvoie, avec ou sans ta macro alors la 3ème couleur de la palette, je suis lié à la cette couleur. J'aimerais vraiment comprendre pourquoi Range(Cells(1, 1), Cells(1...

Bonjour, La macro ci dessous ne fonctionne correctement que si la 'coul' existe dans la palette. Autrement, les cellules sont colorées avec la couleur de la pallette se rapprochant le plus de 'coul'. Sub essai() Dim coul As Long coul = RGB(227, 227, 227) Range(Cells(1, 1), Cells(1...

Bonjour, Une autre solution consiste à transformer tes formules en fonction VBA. C'est pas forcément plus sûr contre les experts, mais c'est beaucoup plus facile à gérer. Pour mon entreprise, j'ai créé un module.xla qui permet en plus à chacun de diposer de mes formules dans ses feuilles...

Salut, Ci-dessous une petite macro qui devrait t'aider, ej l'espère. Bonne Soirée Jean-Marc Option Explicit Dim Tri() As Integer Sub Aléatoire(VMax As Integer) 'Macro crée le 16.03.2005 par JMV 'Cette macro distibue aléatoirement les nombres de 1 à 'VMax' dans 'Tri(I)' avec...

Salut, Ci-dessous une petite macro qui devrait t'aider, ej l'espère. Bonne Soirée Jean-Marc Option Explicit Dim Tri() As Integer Sub Aléatoire(VMax As Integer) 'Macro crée le 16.03.2005 par JMV 'Cette macro distibue aléatoirement les nombres de 1 à 'VMax' dans 'Tri(I)' avec...

Merci pour votre aide. Bonne soirée. Jean-Marc

Bonjour, Comment insérer le n° de page ou le nombre de page dans une cellule ? Ou Est-il possibel de récupérer les paramètres &P, &N insérable dans l'entête ou dans le pied de page ? Merci par avance. Jean-Marc

Bonsoir, J'ai écrit une fonction VBA qui retourne une date (MaFonction(Entrée1 as string)as date). Dans la cellule A2 : =MaFonction(A1) et bien sûr dans A1 une valeur pour Entrée1 Quel code dois-je insérer dans MaFonction pour que A2 soit automatiquement transformé en date ? Merci...

Bonjour, Avec le code ci-dessous : Open 'C:\\Journal.txt' For Append As #1 Print #1, Toto ' Écrit le texte dans le fichier. Close #1 ... Open 'C:\\Journal.txt' For Append As #1 Print #1, coucou ' Écrit le texte dans le fichier. Close #1...

Voilà le code à placer dans la feuille qui contient 'A1'. Option Explicit Dim Memo Private Sub Worksheet_Calculate() If Memo <> Range('A1').Value Then Beep Memo = Range('A1').Value End Sub Je ne comprends pas pourquoi mon fichier.zip n'a pas passé. J'espère qu'il n'est pas...

Salut, Trouve ci-jont 2 fichiers : Dans 'LiaisonSonore', A1 est liée à A1 de 'source'. Si tu changes, A1 de 'source', alors beep. Le code est dans la worksheet 1. J'espère t'avoir aidé. Bonne nuit. JMV