Discussion :

[Muzzik]

Bonjour a tous,

Après avoir travaillé pour madame, je travail désormais pour moi.
Mon dernier travail a été supervisé et mené a son terme grâce a l'aide et la patience de Pierre Fauconnier.

La j'ai décidé de me lancer sur une base de données avec un formulaire via Userform, comme d'habitude en m'inspirant de différents Tuto.
Ce fichier est destiné a terme a etre utilisé pour des actions de prospection et de suivi de contact
Mais j'ai un problème que je ne comprends pas avec un Range avec une erreur '1004' la méthode Range de l'objet 'Global' a échoué.

Ce travail n'est pas du tout abouti car j'ai pleins de macro a ajouter, comme la suppression de doublons, la recherche par différents critères, mais si déja au début cela bloque ....
Si quelqu'un pouvait m'expliquer ou j'aurai pu faire une erreur, pour me corriger ce serait sympa.

Je mets en PJ le fichierBDD CFA2021 version 2.xlsm.

Merci de votre aide

Bien a vous tous

[Invité]

Bonjour,

Ce serait nettement mieux et plus simple de travailler avec un tableau structuré... A compléter.

[Pierre Fauconnier]

Salut.

Tu pourrais utilement t'inspirer de ce que je t'ai montré pour le fichier de ton épouse^(*):

• Listes sous forme de tableaux structurés;
• Base des contacts sous forme de tableaux structurés;
• Recherche du numéro de ligne pour l'enregistrement ou la récupération des données;
• ...

Par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Function getContactIndex(ID As Long)
  getContactIndex = Evaluate("iferror(match(" & ID & ",t_Contacts[ID],0),0)")
End Function
 
Function SaveContact(Index As Long)
  With usfContact
    Range("t_Contacts[ID]")(Index).Value = .tboId.Value
    Range("t_Contacts[prenom]")(Index).Value = .tboPrenom.Value
    Range("t_Contacts[Nom]")(Index).Value = .tbonom.Value
    Range("t_Contacts[Fonction]")(Index).Value = .cboFonction.Value
    Range("t_Contacts[Statut]")(Index).Value = .cboStatut.Value
    Range("t_Contacts[Secteur]")(Index).Value = .cboSecteur.Value
    Range("t_Contacts[Actif]")(Index).Value = .chkActif.Value
  End With
End Function
 
Function ReadContact(Index As Long)
  With usfContact
    .tboId = Range("t_Contacts[id]")(Index).Value
    .tboPrenom.Value = Range("t_Contacts[Prenom]")(Index).Value
    .tbonom.Value = Range("t_Contacts[nom]")(Index).Value
    .cboFonction.Value = Range("t_Contacts[fonction]")(Index).Value
    .cboStatut.Value = Range("t_Contacts[Statut]")(Index).Value
    .cboSecteur.Value = Range("t_Contacts[Secteur]")(Index).Value
    .chkActif.Value = Range("t_Contacts[Actif]")(Index).Value
  End With
End Function

^(*) A quoi ça sert que Ducros il se décarcasse ?

[Muzzik]

Bonjour Pierre, Erik

Merci de vous pencher sur mon problème.
Oui j'ai zappé le fondamental a savoir utiliser un tableau structuré (désolé Pierre).

Du coup je reprends mes bases pour corriger et repartir dans le bons sens, je suis certain de revenir avec des questions.

Merci de votre retour