Contenu récent par job75

Bon OK vous en avez marre de la Worksheet_Change, alors utilisons le double-clic : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim pas&, LO As ListObject, P As Range, Q As Range, mem, h& If Target.ListObject Is Nothing Then Exit Sub 'si le double-clic n'est...

Bonjour Didier03, 1000 lignes ce n'est pas un gros fichier. Si la couleur rouge est appliquée par Mise en forme conditionnelle il n'y a pas besoin de VBA. Sinon par macro ce n'est pas immédiat car la coloration ne crée pas d'évènement. A+

Bonsoir, @ Phil Du59 j'attends plutôt vos commentaires sur la solution de mon post #21. A+

Bonjour MATLEA, Je n'ai pas eu le temps de m'occuper de vous. Si c'est bien là le dernier problème à résoudre ajoutez au début de la macro Worksheet_Change : If Not Intersect(Target, [M:N]) Is Nothing Then Exit Sub A+

Bonjour apocalypse, le forum, En effet il faut corriger le 4ème test comme suit : '---4ème test sur le brûlage (cas d'un joueur ayant joué 2 fois dans une équipe supérieure)--- Set plage1 = .Cells(-2, 4).Resize(, col - 3) 'ligne des équipes Set plage2 = .Cells(lig...

Bonjour à tous, @sylvanu pour éviter la couleur orange quand il n'y a aucun texte remplace "" par "' " à la fin de ta formule ...

Bonjour le fil, Je reviens sur ce fil pour signaler que maintenant la surbrillance des parenthèses fonctionne très bien chez moi. Il y a eu il y a quelques jours des mises à jour d'Office. A+

Bonjour le forum, @vgendron pourquoi utiliser une ListBox ? Au post #21 un simple test permet d'éviter d'entrer dans la base un prénom en doublon. A+

Bonjour le forum, Concernant mini plutôt qu'un scalaire il est plus logique - et plus sûr - d'utiliser une variable tableau : Private Sub Worksheet_Activate() Dim d As Object, tablo, resu(), mini(), i&, x$, n&, nn&, y$ Set d = CreateObject("Scripting.Dictionary") d.CompareMode = vbTextCompare...

Bonjour à tous, Une solution VBA avec cette macro dans le code de la feuille "Bordereau" : Private Sub Worksheet_Activate() Dim d As Object, mini$, tablo, i&, x$, n&, nn&, y$ Set d = CreateObject("Scripting.Dictionary") d.CompareMode = vbTextCompare 'la casse est ignorée With Sheets("Liste")...

Merci de nous dire d'où venait votre problème.

A1 étant sélectionnée, quand j'appuie sur la touche Suppr : - la colonne N du 1er tableau se remplit - les colonnes AK et AL du 2ème tableau se mettent à jour. Si ça ne se passe pas ainsi chez vous c'est peut-être que Application.EnableEvents a pris la valeur False. Il suffit alors de fermer...

Chez moi elle fonctionne, modifiez une cellule quelconque sans formule.

Bonsoir MATLEA, Vous n'en finissez pas ? Pour récupérer la valeur d'une cellule à l'aide d'une formule de liaison, ajoutez simplement au début de la Worksheet_Change : If Target.Count = 1 And Target(1).HasFormula Then Exit Sub A+

Je pense cependant que vgendron a tout à fait raison d'empêcher l'entrée des doublons. Dans les fichiers joints il n'y a maintenant qu'une seule macro dans l'UserForm, le bouton DELETE QSO a été supprimé : Private Sub btnAjout_Click() 'Save QSO Dim c As Range, lig& With Sheets("LOG") Set c...