XL 2019 test valeur dans cellule pour base de données

pat66 à dit:

Bonsoir le forum;
Je souhaite à partir de la feuille "coordonnees" pouvoir tester dans un tableau situé sur la feuille "BDD" soit si la valeur (exemple le nom) est déjà présente et la macro met à jour la ligne de la valeur recherchée (feuilleBDD), soit elle n'est pas présente alors la macro ajoute une ligne avec tous les renseignements du formulaire

merci d'avance pour votre aide

Pat66

Cliquez pour agrandir...

Sub Ajoute() 'PL
Dim Ligne As Integer
If IsNumeric(Application.Match(Feuil1.[c6], Feuil4.[b:b], 0)) Then MsgBox Feuil1.[c6] & vbLf & "Déjà incrit.", , "Information": Exit Sub
With Sheets("BDD")
Ligne = .Range("A65536").End(xlUp).Row + 1
'----------
'------
'--'

pat66 à dit:

Bonjour le fil
Bonjour Jacky
merci pour votre aide, en l'état on sort de la macro si le nom est déjà présent, mais je souhaiterai que si le nom est déjà présent, elle mette a jour les données de la ligne dans BDD, soit il n'est pas présent alors il ajoute une ligne avec les données

merci

Cliquez pour agrandir...

Sub Ajoute()    'PL
    Dim Ligne As Integer
    With Sheets("BDD")
        Ligne = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
        If IsNumeric(Application.Match(Feuil1.[c6], .[b:b], 0)) Then Ligne = Application.Match(Feuil1.[c6], .[b:b], 0)
        '------------
        '------
        '---

pat66 à dit:

Bonjour je forum
Bonjour Jacky

Merci cela fonctionne bien, peut on ajouter un msgbox qui constate que :
- soit le nom existe déjà, alors "ok" pour "Souhaitez vous mettre à jour les données" ou "annuler" pour annuler les modifications ?
- soit le contact n'existe pas , alors le msgbox indique que le nouveau contact à été enregistré

Sub Ajoute() 'PL
Dim Ligne As Integer
With Sheets("BDD")
Ligne = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
If IsNumeric(Application.Match(Feuil1.[c6], .[b:b], 0)) Then Ligne = Application.Match(Feuil1.[c6], .[b:b], 0)
.Cells(Ligne, 1) = Sheets("coordonnees").Cells(4, 2).Value
.Cells(Ligne, 2) = Sheets("coordonnees").Cells(6, 3).Value
.Cells(Ligne, 3) = Sheets("coordonnees").Cells(6, 7).Value
-------------------------------
-------------------------------
end sub


merci

Cliquez pour agrandir...

Sub Ajoute()    'PL
    Dim Ligne As Integer
    With Sheets("BDD")
        Ligne = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
        If IsNumeric(Application.Match(Feuil1.[c6], .[b:b], 0)) Then
            If MsgBox(Feuil1.[c6] & ",  Ce nom existe déjà." & vbLf & "Voulez-vous le modifier?", 292, "Information") = 7 Then Exit Sub
            Ligne = Application.Match(Feuil1.[c6], .[b:b], 0)
        End If
        '------------
        '------
        '---

pat66 à dit:

Intéressant comme approche mais le double clic ne fonctionne pas tout le temps

Cliquez pour agrandir...

pat66 à dit:

peut on faire en sorte qu'il extrait la feuille coordonnees remplie format pdf avec le nom qui est en C6 et la date du jour

Cliquez pour agrandir...