Microsoft 365 Besoin d'aide pour rechercher doublon et mettre en forme

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Février 2020

• #16

J'ai trouvé.
Quand vous lancé "reception" à un moment vous modifier la colonne M qui lance Worksheet_Change.
Je vais regarder pour mettre en place un sémaphore.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Février 2020

• #17

1- Je crée une variable Public appelée Flag. ( Public pour être visible par tous. )
2- Dans WorsheetChange, je mets : If Flag = 0 Then Exit Sub
3- Dans "reception", je met au début Flag=0 et à la fin Flag=1
Donc WorsheetChange n'est active qui si elle n'est pas appelée par "reception".

C'est pour ça que je ne voyais rien, dans ma manip "reception" n'était surement jamais appelée.

J'ai lancé "reception" avec et sans sémaphore. L'erreur disparaît bien quand le flag est implémenté.

Testez pour voir.

 

Pièces jointes

• V50_1.xlsm

  605.6 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Février 2020

• #18

Ah au fait ! Je pense qu'à la fin de "reception", comme on a bloqué la mise à jour de la colonne N il faudrait relancer DateReception pour que la mise à jour soit complète, et de changer le commentaire Flag = 1 ' Autorisation et non Interdiction, ce qui ne voulait plus rien dire :

VB:

Sub reception()
Dim C As Range, Derlg As Long, Plage1 As Range, dteDate As Date, rngDate As Range, rngCode As Range
Application.ScreenUpdating = False
Flag = 0 ' Interdiction de modifier les valeurs par la macro Worksheet_Change.
....
...
End With
Application.ScreenUpdating = True
DateReception                     <<<<<<<<<<<<<<<<< A RAJOUTER
Flag = 1 ' Autorisation de modifier les valeurs par la macro Worksheet_Change.
End Sub

 

Pièces jointes

• V50_2.xlsm

  605.9 KB · Affichages: 5

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 24 Février 2020

• #19

Je pense avoir recopié tout mais ca plante au point de bloquer excel. Peut etre ai je mal fait

 

Pièces jointes

• V60.xlsm

  652.5 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Février 2020

• #20

Testez mon fichier. Est ce qu'il marche ?

Je viens de tester le votre en lançant "reception", et ça marche.
Il se plante toujours sur "reception" ? Dans ce cas faites du pas à pas.

 

Dernière édition: 24 Février 2020

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 24 Février 2020

• #21

Pour le tester je recopie les modules un par un ainsi que la feuille synthese sinon je ne peux tester le lancement.
Apres lancement j'ai l erreur

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Février 2020

• #22

Comme je ne sais pas ce que font vos macros, et si ça marchait avant, essayer de mettre Flag=0 au début et Flag=1 à la fin.
Dans le cas où ce serait le même problème.
Ou plus simple de mettre Flag=0 et Flag=1 dans le module que vous appelez pour l'importation.
J'ai regardé un peu le code, si vous touchez à la colonne M vous aurez le même souci.

Le plus simple est de mettre Flag=0 au tout début et à la fin complète de la mise à jour Flag=1.

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 24 Février 2020

• #23

Re
J'ai fait un gros ménage et repris el fichier à 0 car il a évolué d'année en année
Bonne nouvelle ca fonctionne grâce à vous !
Ci-joint le fichier.
Merci

 

Pièces jointes

• V20test.xlsm

  425.6 KB · Affichages: 3

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 24 Février 2020

• #24

J'ai rouvert un post pour creer des lignes lorsque plusieurs ligne en commande.

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 28 Février 2020

• #25

sylvanu à dit:

Bonjour,

Ah non, je ne suis pas d'accord. On ne jette jamais l'éponge.

En PJ, il suffit de mettre dans la feuille Synthèse :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 13 Then
        DateReception
    End If
End Sub

et à chaque fois que vous changerez une valeur dans la colonne M la colonne N se remettra à jour.

... mais vous pouvez le faire aussi en formules !

Cliquez pour agrandir...

Re
Je reviens vers vous car du coup avec les mises à jour du fichier ca refonctionne !
Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 13 Then
RajoutDoublon
LivClient

End If
End Sub

Quelle syntaxe mettre après le Then? Merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Février 2020

• #26

Re,
Ca veut dire quoi "RajoutDoublon " ?
Si c'est écrire <DOUBLON> en colonne A alors ça peut être :

VB:

Range("A" & Target.Row)="<DOUBLON>"

Target.Row donne le numéro de ligne de la cellule qui a été cliquée.
Target.Column donne le numéro de colonne de la cellule qui a été cliquée. ( içi =13 )

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 28 Février 2020

• #27

En fait ca fonctionne sans le worksheetChange je pensais qu il remarchait.
Fichier en Pj pour info Merci

 

Pièces jointes

• GRv26test.xlsm

  420.8 KB · Affichages: 1

Vote positif 0 Vote négatif