XL 2016 erreure de compile ou bien.

[Big66677]

bonjour
personne ne pourra dire que je n'est pas chercher.
NA
-----------
j'ai cherché une macro qui gère les doublons.
dans la feuille Saisie des dates il y a trois groupes distincts

1. Remplis la case 1 du calendrier feuille calendrier.
2. Rempli la case 2 du calendrier feuille calendrier.
3. Rempli la case 3 du calendrier feuille calendrier.

donc si doublon interdire la saisie, proposer une solution format texte.
dans un premier temps...
------------

Je n'ai pas procrastiné et pris mon courage a deux mains .🤣
j'ai trouvé une macro et essayé de l'adapter.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim DX As Integer
        DX = Range("A2:A300", "G2:S300").End(xlUp).Row
            On Error Resume Next
                If Application.Intersect(Target, Range("D2:D" & DX)) Is Nothing Then Exit Sub
                    If Application.CountIf(Range("A2:A300"), ("G2:S300"), Target) > 1 Then
                        Set R = Columns(4).Find(Target.Value, Range("D2"), xlValues, xlWhole)
                            Application.EnableEvents = False
                                    MsgBox "Cette case et déjà prise par une action! Voir case 2 ou case 3" & .Row
                                        Target.ClearContents
                                            Target.Select
                            Application.EnableEvents = True
                    Exit Sub
                End If
End Sub

je l'ai trouvé dans forum, rectifié des choses grâce a des recherches, oui j'ai bien cherché avant de vous interrogez.
mais peut être que cette macro ne gère pas les doublons.
elle ne fonctionne pas, bien sûre. erreurs de compilation...
merci de votre aide.

 

[sylvanu]

Bonsoir Big,
Je vois que le fichier n'a guère changé depuis la dernière fois. Vous avez conservé la saisie des dates sur moult colonnes. Au dernier post vous auriez pu expliquer pourquoi une simple liste bi colonnes ne vous convenait pas.
On aime bien avoir un retour, même négatif. C'est toujours agréable.

Dans votre code, avec du pas à pas il vous jette sur le .Row qui ne correspond à rien.
De plus le DX donne 1, je n'ai pas compris ce que vous cherchiez à faire.
Donc j'ai fait :

DX = Application.Max(Range("A300").End(xlUp).Row, Range("G300").End(xlUp).Row)

Je prends le max des colonnes A et G.

J'ai viré le .Row, et ne sachant ce que vous vouliez y mettre, et comme le calcul de R ne servait à rien, j'ai mis :

MsgBox "Cette case et déjà prise par une action! Voir case 2 ou case 3 :  " & R

De plus je n'ai pas compris à quoi servait votre Exit sub, puisqu'après vous avez un EndIf EndSub.

Je ne sais pas si c'est le but à atteindre, mais au moins ça ne plante plus et ça répond sur un doublon.

 

[Big66677]

Merci

Je ne connais pas liste bi. Je vais me renseigner.
Ce tableau qui ne fini pas d’en finir. Cependant j’apprends petit-à-petit plein de chose sur Excel.

Je veux interdire les doublons.
Il y a trois catégories qui sont repris dans la feuille calendrier.
Si on regarde le mois de janvier :
Date Ven 01 colonne des dates.

A côté trois cases :

1. Case 1 tous ce qui est en jaune. Dans saisi des dates
2. Case 2 tous ce qui est en bleu. Dans saisi des dates
3. Case 3 tous ce qui est en vert. Dans saisi des dates.

• Les six premier cellule A : B : C : D : E : F

Si doublon en Case 1 je place la date en C + nom de l’évènement ou en E + nom de l’évènement.

Avec la même logique pour les autres types d’événement.
Donc s’il y a doublon je me reporte à ces cases.
Classeur PJ avec couleur

 

[Big66677]

bonjour

coucou

 

[sylvanu]

Bonjour,

pourquoi une simple liste bi colonnes ne vous convenait pas.

Je ne connais pas liste bi. Je vais me renseigner.

Donc vous ne l'avez même pas ouvert.
Je pense que vous faites une vraie usine à gaz, aussi avais je suggéré de faire qu'une liste simple, ce qui simplifiait la prise de RV et les doublons, voir PJ que je vous remet dans ce post.
Ce serait plus simple et moins gourmand en ressources que votre recherche de doublons comme vous essayez de le faire.

Relisez votre post #3 :

1. Case 1 tous ce qui est en jaune. Dans saisi des dates
2. Case 2 tous ce qui est en bleu. Dans saisi des dates
3. Case 3 tous ce qui est en vert. Dans saisi des dates.

Ca se rapporte à la feuille Calendrier.
Puis vous avez dans la feuille Saisie des dates, case1 case2 case 3 en jaune.
Donc Jaune se rapporte à la case1 de Calendrier ou aux colonnes A:S de Saisie des dates ?
Donc qui est quoi ? C'est impossible de vous suivre, ni de comprendre comment ça devrait marcher.

 

[Big66677]

merci
j'ai ouvert le classeur!
posté hier a 17h44. je n'est pas compris ce qui avait été fait d’où mon second message.
je ne prends pas l'entraide a la légère .
-------------
ce que tu me propose et effectivement beaucoup, mais beaucoup, plus simple moi, mes surtout les camarades qui vont sent servir comprendront plus vite.
-------------
je dois revoir mon classeur dans sont entier .

• la feuille menu va s'en trouver beaucoup plus légère et simple a comprendre.
• les dates seront chronologique.
• la maîtrise des doublons seras faisable. bien qu'il me faut associer dates et type éventements.*
• bien sûr une fois retravailler le classeur vas perdre beaucoup de poids.

* j''ai vue sur un tuto concaténation...

------------
je continue a penser qu'un user forme que j’aie commencé est indispensable.
mais si je n'y arrive pas ...
------------
merci pour cette proposition qui va me faciliter les choses.