Microsoft 365 Vérifier si une référence existe dans un tableau Excel avant de la créer

nikeu01 · Aujourd'hui à 09:27

Bonjour à tous,

Je travaille dans une petite structure qui vend de l'électroménager, et je leur ai fait un petit fichier pour que le vendeur puisse rajouter des références dans un tableau avec une macro. Cela fonctionne bien, mais je ne sais pas comment faire pour vérifier si une référence est déjà présente dans le tableau avant de coller la nouvelle ligne.

Je vous joint un bout du fichier que j'utilise.

Deuxième point, j'aimerais par la suite pouvoir créer une seconde Macro dans une autre feuille (dans le même style que la première) afin de modifier les informations d'une référence déjà présente dans le tableau.

Pourriez-vous m'aider? Je ne suis pas du tout expert dans ce domaine, je bidouille simplement. Dites moi si je ne suis pas clair… 😅

D'avance merci

Dranreb · Aujourd'hui à 10:28

Bonjour.
Comme c'est fait dans ce classeur ?

fanfan38 · Aujourd'hui à 10:40

Bonjour
Je propose un formulaire (Création, modification)

A+ François

nikeu01 · Aujourd'hui à 11:02

Bonjour

Dranreb à dit:
Bonjour.
Comme c'est fait dans ce classeur ?

Dranreb, oui ce serait parfait ça. C'est une super boulot

fanfan38 à dit:
Bonjour
Je propose un formulaire (Création, modification)

A+ François

Bonjour fanfan38,

C'est pas mal aussi, mais la feuille "DONNEES ARTICLES" est censée être masquée pour éviter que le vendeur ne bidouille trop le fichier 😁
C'est pour cela que je voulais juste qu'il recherche une référence pour modifier les données par la suite

J'aime vos 2 idées qui dépassent mes compétences

Dranreb · Aujourd'hui à 11:06

Je suis en train de l'adapter à votre tableau avec comme identifiants de ligne Référence et Désignation, avec recherche intuitive possible sur la désignation …

nikeu01 · Aujourd'hui à 11:11

Dranreb à dit:
Je suis en train de l'adapter à votre tableau avec comme identifiants de ligne Référence et Désignation, avec recherche intuitive possible sur la désignation …

Est-ce possible de le faire en masquant la feuille "Donées article"?

Dranreb · Aujourd'hui à 11:13

À priori ça ne devrait pas gêner qu'elle soit masquée …

fanfan38 · Aujourd'hui à 11:15

le formulaire se lance avec le bouton de la feuille "Enregistrer une référence"

A+ François

mapomme · Aujourd'hui à 11:21

Bonjour à tous😉,

Modifier sans aucun avertissement la référence d'un enregistrement déjà existant me semble anormal et dangereux pour un système de gestion commerciale.

En effet imaginons que des factures existent déjà avec une référence, alors si cette référence est remplacée par une nouvelle, les factures déjà existantes auront des références orphelines et inconnues !!!

Enfin c'est le demandeur qui voit... 😏

nikeu01 · Aujourd'hui à 11:24

fanfan38 à dit:
le formulaire se lance avec le bouton de la feuille "Enregistrer une référence"

A+ François

C'est super aussi, merci beaucoup.

Je suis tellement à des années lumières de faire ça 😂😂

nikeu01 · Aujourd'hui à 11:26

mapomme à dit:
Bonjour à tous😉,

Modifier sans aucun avertissement la référence d'un enregistrement déjà existant me semble anormal et dangereux pour un système de gestion commerciale.

En effet imaginons que des factures existent déjà avec une référence, alors si cette référence est remplacée par une nouvelle, les factures déjà existantes auront des références orphelines et inconnues !!!

Enfin c'est le demandeur qui voit... 😏

Bonjour, il s'agit juste d'un fichier Excel nous permettant d'imprimer une étiquette "prix". aucun lien avec notre BDD de clients. Mais merci de l'avertissement.

Dranreb · Aujourd'hui à 11:26

Voilà.

nikeu01 · Aujourd'hui à 11:57

Dranreb à dit:
Voilà.

Merci beaucoup!! Comment faire pour l'intégrer à mon fichier original ?
Cordialement

Dranreb · Aujourd'hui à 12:01

Glissez/déplacez les noms de toutes les pièces, UserForm et modules de classe inclus du projet de mon classeur vers celui de votre fichier original.
Cochez la référence Misrosoft Scripting RunTime car une procédure du module standard MSujetCBx renvoie un Dictionary.

job75 · Aujourd'hui à 12:27

Bonjour nikeu01, le forum,

D'après le post #1 ce que vous demandez est très simple alors testez cette macro :

VB:

Sub ENREGISTRER_REFERENCE()
Dim plage As Range, lig As Variant
Set plage = [B7:I7]
With [Tableau1] 'tableau structuré
    lig = Application.Match(plage(1), .Columns(1), 0)
    If IsError(lig) Then
        MsgBox "Nouvelle référence..."
        If .ListObject.DataBodyRange Is Nothing Then lig = 1 Else lig = .Rows.Count + 1
    Else
        If MsgBox("Cette référence existe, voulez-vous modifier '" & .ListObject.Name & "' ?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
    End If
    .Rows(lig).Resize(, plage.Count) = plage.Value 'copie les valeurs
End With
End Sub

Notez la formule en I7 =SIERREUR(INDEX(H:H;EQUIV(H7;J:J;0));"")

A+

Microsoft 365 Vérifier si une référence existe dans un tableau Excel avant de la créer

nikeu01

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

nikeu01

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

nikeu01

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

fanfan38

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

nikeu01

XLDnaute Nouveau

nikeu01

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Pièces jointes

nikeu01

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Microsoft 365 Vérifier si une référence existe dans un tableau Excel avant de la créer

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency