Discussion :

[LaKoupe]

Bonjour à tous,

En pièce jointe vous trouverez un fichier présentant 2 onglets.
Le premier est une base de données (BDD) sur le lequel j'enregistre les informations du second via le bouton "record".

A chaque enregistrement, les données s'enregistrent les unes à la suite des autres, même si le numéro est identique. J'ai donc des doublons.

Je souhaiterais qu'en fonction du numéro unique renseigné sur le formulaire en (D5), les données soient mises à jour/écrasées sur la ligne correspondante de l'onglet BDD.

Un peu dans la même logique qu'une rechercheV de D5 dans la colonne C de l'onglet BDD mais je n'arrive pas l'encoder.

Si en lisant ceci vous aviez une proposition, votre aide est plus que bienvenue.

Merci d'avance

[Michel_M]

Bonjour

essaies

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
Sub pour_dvp()
Dim T_req, Lig As Integer
    Application.ScreenUpdating = False
    With Sheets("1-Req")
        ReDim T_req(1 To 4)
        T_req(1) = .Range("D5")
        T_req(2) = .Range("C5")
        T_req(3) = .Range("A9")
        T_req(4) = .Range("C9")
    End With
    With Sheets("BDD")
        If Application.CountIf(.Columns("C"), T_req(1)) = 0 Then
            Lig = .Columns("C").Find("", .Range("C2"), xlValues).Row
        Else
            Lig = .Columns("C").Find(T_req(1), .Range("C2"), xlValues).Row
        End If
            .Cells(Lig, "C").Resize(1, 4) = T_req
            .Activate
    End With
End Sub

[Menhir]

Les problèmes de doublons sont parmi les plus fréquents dans les demandes sur ce forum.
As-tu pris la peine de lancer une recherche pour savoir s'il n'y a pas déjà des réponses qui te permettraient de résoudre ton problème ?

[clementmarcotte]

On ne balance pas un fichier-joint à la première question. Et surtout pas un fichier de macros:

http://www.developpez.net/forums/d84...s-discussions/

Excel n'est pas, n'a jamais été et ne sera jamais un SGBD

Et puis Visual Studio Community et SQL Server Express sont gratuits et permettent de faire de vraies solutions de gestion des données et pas des usines à gaz.

Et puis, on n'oublie pas les Règles:

http://club.developpez.com/regles/#LIV-I

http://club.developpez.com/regles/#LIV-N

[LaKoupe]

Un grand merci Michel_M
Je ne pensais pas remanier la macro à ce point mais ça marche !

Menhir, j'ai fais le tour ici et ailleurs et je n'ai pas trouvé de solution ou elle m'est passée sous le nez.