Sujet Précédent Sujet Suivant

Rechercher, sélectionner et remplacer

Fermé
Xenos1705 Messages postés 93 Date d'inscription lundi 19 octobre 2015 Statut Membre Dernière intervention 11 juin 2018 - 28 mai 2018 à 10:38
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 13 juin 2018 à 11:27
Bonjour a tous,

J’ai deux userform dans mon premier onglet (Formulaire). Le premier userform sert à entrer de nouvelles données qui alimente une bdd sur un second onglet (Activités).
Le deuxième permet aux utilisateurs de taper un num d’ID sur la première ligne correspondant aux lignes de ma BDD afin d’afficher les données déjà saisies auparavant et pouvoir les mettre à jour si nécessaire.


Actuellement en cliquant sur METTRE À JOUR sur le deuxième userform, la macro mise en place crée une ligne supplémentaire dans la BDD.

Ce que je souhaiterais actuellement, c’est qu’a la place de générer une ligne supplémentaire dans ma BDD je souhaiterais que les données précédentes soient écrasées par les nouvelles ce qui me permettrais de toujours conserver qu’une seule ligne par num d’ID.

En espérant que vous pourrez m’aider voilà mon code: 

Sub TransposeBDD() 
    Dim TInfos, PCV 
    
    Application.ScreenUpdating = False 
    
    'mémoriser les données 
    TInfos = Sheets("Formulaire").Range("G12:G26") 
'--------------------Ecriture des donnees---------------------- 
    With Worksheets("Activités") 
        PCV = .Range("A" & Rows.Count).End(xlUp).Row + 1        'premier cellule vide colonne A 
        If PCV < 2 Then PCV = 2 
        .Range("A" & PCV & ":D" & PCV) = Application.Transpose(Sheets("Formulaire").Range("G12:G15")) 
        .Range("F" & PCV & ":P" & PCV) = Application.Transpose(Sheets("Formulaire").Range("G16:G26")) 
    End With 
'---------------------------------------------------------------------- 
    'Rendre vierge le formulaire 
    With Sheets("Formulaire") 
        .Select 
        .Range("G13:G26").ClearContents 
        .Range("G12").Select 
    End With 
    Sheets("Activités").Select 
    Columns("A:A").Select 
    ActiveWorkbook.Worksheets("Activités").AutoFilter.Sort.SortFields.Clear 
    ActiveWorkbook.Worksheets("Activités").AutoFilter.Sort.SortFields.Add Key:= _ 
        Range("A2:A1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _ 
        :=xlSortNormal 
    With ActiveWorkbook.Worksheets("Activités").AutoFilter.Sort 
        .Header = xlYes 
        .MatchCase = False 
        .Orientation = xlTopToBottom 
        .SortMethod = xlPinYin 
        .Apply 
    End With 
    Range("A2").Select 
    Sheets("Formulaire").Select 
    Range("G14").Select 

    Application.ScreenUpdating = True 
    
End Sub 

Sub MAJBDD() 
    Dim TInfos, PCV 
    
    Application.ScreenUpdating = False 
    Application.Calculation = xlCalculationManual 
    
    'mémoriser les données 
    TInfos = Sheets("Formulaire").Range("M12:M26") 
'--------------------Ecriture des donnees---------------------- 
    With Worksheets("Activités") 
        PCV = .Range("A" & Rows.Count).End(xlUp).Row + 1        'premier cellule vide colonne A 
        If PCV < 2 Then PCV = 2 
        .Range("A" & PCV & ":D" & PCV) = Application.Transpose(Sheets("Formulaire").Range("M12:M15")) 
        .Range("F" & PCV & ":P" & PCV) = Application.Transpose(Sheets("Formulaire").Range("M16:M26")) 
    End With 
'---------------------------------------------------------------------- 
    'Rendre vierge le formulaire 
    With Sheets("Formulaire") 
        .Select 
        .Range("M12:M13").ClearContents 
        .Range("M13").Select 
        ActiveCell.FormulaArray = _ 
            "=MAX(IF(R[-1]C=Activités!R[-11]C[-12]:R[987]C[-12],Activités!R[-11]C[-11]:R[987]C[-11],""""))" 
        Range("M14").Select 
        Selection.FormulaArray = _ 
            "=INDEX(Activités!R[-12]C[-10]:R[986]C[-10],MATCH(MAX(IF(Formulaire!R[-2]C=Activités!R[-12]C[-12]:R[986]C[-12],Activités!R[-12]C[-11]:R[986]C[-11],""""))&Formulaire!R[-2]C,Activités!R[-12]C[-11]:R[986]C[-11]&Activités!R[-12]C[-12]:R[986]C[-12],0))" 
        Range("M15").Select 
        Selection.FormulaArray = _ 
            "=INDEX(Activités!R[-13]C[-9]:R[985]C[-9],MATCH(MAX(IF(Formulaire!R[-3]C=Activités!R[-13]C[-12]:R[985]C[-12],Activités!R[-13]C[-11]:R[985]C[-11],""""))&Formulaire!R[-3]C,Activités!R[-13]C[-11]:R[985]C[-11]&Activités!R[-13]C[-12]:R[985]C[-12],0))" 
        Range("M16").Select 
        Selection.FormulaArray = _ 
            "=INDEX(Activités!R[-14]C[-7]:R[984]C[-7],MATCH(MAX(IF(Formulaire!R[-4]C=Activités!R[-14]C[-12]:R[984]C[-12],Activités!R[-14]C[-11]:R[984]C[-11],""""))&Formulaire!R[-4]C,Activités!R[-14]C[-11]:R[984]C[-11]&Activités!R[-14]C[-12]:R[984]C[-12],0))" 
        Range("M17").Select 
        Selection.FormulaArray = _ 
            "=INDEX(Activités!R[-15]C[-6]:R[983]C[-6],MATCH(MAX(IF(Formulaire!R[-5]C=Activités!R[-15]C[-12]:R[983]C[-12],Activités!R[-15]C[-11]:R[983]C[-11],""""))&Formulaire!R[-5]C,Activités!R[-15]C[-11]:R[983]C[-11]&Activités!R[-15]C[-12]:R[983]C[-12],0))" 
        Range("M18").Select 
        ActiveCell.FormulaArray = _ 
            "=INDEX(Activités!R[-16]C[-5]:R[982]C[-5],MATCH(MAX(IF(Formulaire!R[-6]C=Activités!R[-16]C[-12]:R[982]C[-12],Activités!R[-16]C[-11]:R[982]C[-11],""""))&Formulaire!R[-6]C,Activités!R[-16]C[-11]:R[982]C[-11]&Activités!R[-16]C[-12]:R[982]C[-12],0))" 
        Range("M19").Select 
        ActiveCell.FormulaArray = _ 
            "=INDEX(Activités!R[-17]C[-4]:R[981]C[-4],MATCH(MAX(IF(Formulaire!R[-7]C=Activités!R[-17]C[-12]:R[981]C[-12],Activités!R[-17]C[-11]:R[981]C[-11],""""))&Formulaire!R[-7]C,Activités!R[-17]C[-11]:R[981]C[-11]&Activités!R[-17]C[-12]:R[981]C[-12],0))" 
        Range("M20").Select 
        ActiveCell.FormulaArray = _ 
            "=INDEX(Activités!R[-18]C[-3]:R[980]C[-3],MATCH(MAX(IF(Formulaire!R[-8]C=Activités!R[-18]C[-12]:R[980]C[-12],Activités!R[-18]C[-11]:R[980]C[-11],""""))&Formulaire!R[-8]C,Activités!R[-18]C[-11]:R[980]C[-11]&Activités!R[-18]C[-12]:R[980]C[-12],0))" 
        Range("M21").Select 
        Selection.FormulaArray = _ 
            "=INDEX(Activités!R[-19]C[-2]:R[979]C[-2],MATCH(MAX(IF(Formulaire!R[-9]C=Activités!R[-19]C[-12]:R[979]C[-12],Activités!R[-19]C[-11]:R[979]C[-11],""""))&Formulaire!R[-9]C,Activités!R[-19]C[-11]:R[979]C[-11]&Activités!R[-19]C[-12]:R[979]C[-12],0))" 
        Range("M22").Select 
        Selection.FormulaArray = _ 
            "=INDEX(Activités!R[-20]C[-1]:R[978]C[-1],MATCH(MAX(IF(Formulaire!R[-10]C=Activités!R[-20]C[-12]:R[978]C[-12],Activités!R[-20]C[-11]:R[978]C[-11],""""))&Formulaire!R[-10]C,Activités!R[-20]C[-11]:R[978]C[-11]&Activités!R[-20]C[-12]:R[978]C[-12],0))" 
        Range("M23").Select 
        Selection.FormulaArray = _ 
            "=INDEX(Activités!R[-21]C:R[977]C,MATCH(MAX(IF(Formulaire!R[-11]C=Activités!R[-21]C[-12]:R[977]C[-12],Activités!R[-21]C[-11]:R[977]C[-11],""""))&Formulaire!R[-11]C,Activités!R[-21]C[-11]:R[977]C[-11]&Activités!R[-21]C[-12]:R[977]C[-12],0))" 
        Range("M24").Select 
        Selection.FormulaArray = _ 
            "=INDEX(Activités!R[-22]C[1]:R[976]C[1],MATCH(MAX(IF(Formulaire!R[-12]C=Activités!R[-22]C[-12]:R[976]C[-12],Activités!R[-22]C[-11]:R[976]C[-11],""""))&Formulaire!R[-12]C,Activités!R[-22]C[-11]:R[976]C[-11]&Activités!R[-22]C[-12]:R[976]C[-12],0))" 
        Range("M25").Select 
        Selection.FormulaArray = _ 
            "=INDEX(Activités!R[-23]C[2]:R[975]C[2],MATCH(MAX(IF(Formulaire!R[-13]C=Activités!R[-23]C[-12]:R[975]C[-12],Activités!R[-23]C[-11]:R[975]C[-11],""""))&Formulaire!R[-13]C,Activités!R[-23]C[-11]:R[975]C[-11]&Activités!R[-23]C[-12]:R[975]C[-12],0))" 
        Range("M26").Select 
        Selection.FormulaArray = _ 
            "=INDEX(Activités!R[-24]C[3]:R[974]C[3],MATCH(MAX(IF(Formulaire!R[-14]C=Activités!R[-24]C[-12]:R[974]C[-12],Activités!R[-24]C[-11]:R[974]C[-11],""""))&Formulaire!R[-14]C,Activités!R[-24]C[-11]:R[974]C[-11]&Activités!R[-24]C[-12]:R[974]C[-12],0))" 
        .Range("M12").Select 
    End With 
    Sheets("Activités").Select 
    Columns("A:A").Select 
    ActiveWorkbook.Worksheets("Activités").AutoFilter.Sort.SortFields.Clear 
    ActiveWorkbook.Worksheets("Activités").AutoFilter.Sort.SortFields.Add Key:= _ 
        Range("A2:A1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _ 
        :=xlSortNormal 
    With ActiveWorkbook.Worksheets("Activités").AutoFilter.Sort 
        .Header = xlYes 
        .MatchCase = False 
        .Orientation = xlTopToBottom 
        .SortMethod = xlPinYin 
        .Apply 
    End With 
    Range("A2").Select 
    Sheets("Formulaire").Select 
    Range("G14").Select 

    Application.Calculation = xlCalculationAutomatic 
    Application.ScreenUpdating = True 
    
End Sub


Merci

3 réponses

Réponse 1 / 3
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 mai 2018 à 11:49
Bonjour,

une seule ligne par num d’ID
Je suppose que lorsque vous entrez l'ID, vous faites une recherche de la ligne ou se trouvent les infos. Donc vous pouvez reecrire les nouvelles info sur cette ligne puisque vous l'avez.......
0
Xenos1705 Messages postés 93 Date d'inscription lundi 19 octobre 2015 Statut Membre Dernière intervention 11 juin 2018
28 mai 2018 à 12:19
Les infos remontent grâce à des formules matricielles inscrites dans les cases du userform

Ce que je cherche c’est remplacer les données dans la base de données lorsque j’appuye Sur mettre à jour. La macro devrait copier l’integralité des données du userform par un transpose sur la ligne existante dans la BDD

Je ne sais pas comment écrire ce code.

Il s’agit de cette partie de mon code: 

Sub MAJBDD() 
Dim TInfos, PCV 

Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 

'mémoriser les données 
TInfos = Sheets("Formulaire").Range("M12:M26")
'--------------------Ecriture des donnees---------------------- 
With Worksheets("Activités") 
PCV = .Range("A" & Rows.Count).End(xlUp).Row + 1 'premier cellule vide colonne A 
If PCV < 2 Then PCV = 2 
.Range("A" & PCV & ":D" & PCV) = Application.Transpose(Sheets("Formulaire").Range("M12:M15"))
.Range("F" & PCV & ":P" & PCV) = Application.Transpose(Sheets("Formulaire").Range("M16:M26"))
End With
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 mai 2018 à 13:00
Re,

dans les cases du userform

Y a pas de userform.... Ce sont des cellules

sur la ligne existante dans la BDD
Oui, comme je vous l'ai ecrit....
Question: quand vous entrez l'ID, le deuxieme tableau de cellules se remplit avec les infos de' l'ID ????
0
Xenos1705 Messages postés 93 Date d'inscription lundi 19 octobre 2015 Statut Membre Dernière intervention 11 juin 2018
28 mai 2018 à 13:06
Oui des cellules.

Non, il faut inscrire le num ID souhaité sur la première cellule du deuxième tableau. Ensuite si ce num ID existe dans la BDD, les éléments correspondants s’affichent dans les cellules.
Le premier tableau n’est utilisé que pour inséré de nouvelles données avec un nouvel ID.

J’espère être plus clair. Merci pour vos réponses
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 mai 2018 à 14:09
Re,
Ensuite si ce num ID existe dans la BDD
Ben oui, c'est ce que j'ai suppose. Si vous avez ete capable de recuperer les infos de l'ID dans la BDD, c'est que vous avez trouvez la ligne de c'est infos, donc si vous la mettez en memoire vous pourrez reecrire les infos de l'ID sur cette ligne
0
Xenos1705 Messages postés 93 Date d'inscription lundi 19 octobre 2015 Statut Membre Dernière intervention 11 juin 2018
28 mai 2018 à 23:10
Merci beaucoup pour vos réponses mais malheureusement je n’ai pas à mon avis les connaissances nécessaires pour mettre en place votre solution.

Je ne vois pas du tout comment adapter mon code malheureusement, j’ai pourtant essayé différentes façons mais sans succès.

C’est pour cela que j’ai fais recours au forum, pour que quelqu’un ait bien l’amabilité de m’aider.
0
Réponse 2 / 3
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 7 juin 2018 à 13:20
Bonjour,

"Formulaire" mise a jour, pas de formule puisque vous modifiez une ou plusieurs valeurs, donc formule(s) effacee(s). Faire la recherche des infos par du VBA

Pourquoi pas avoir des Userform pour vos "formulaires" ??????????????????????????????????????????
0
Xenos1705 Messages postés 93 Date d'inscription lundi 19 octobre 2015 Statut Membre Dernière intervention 11 juin 2018
7 juin 2018 à 17:16
Malheureusement je fais avec les connaissances que j’ai. Et je ne connais pas toutes les possibilités, d’ou ma demande à l’aide. Si l’usage de userform est plus simple, efficace et approprié j’y opterais sans hésitation.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
7 juin 2018 à 18:02
Re,

Je vous fait ca
A+
0
Xenos1705 Messages postés 93 Date d'inscription lundi 19 octobre 2015 Statut Membre Dernière intervention 11 juin 2018
7 juin 2018 à 22:59
Merci beaucoup :-)
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
9 juin 2018 à 09:26
Bonjour,
Ne vous inquiétez pas j'ai bientôt fini
0
Réponse 3 / 3
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
11 juin 2018 à 11:08
Bon jour,

Les cellules Team et Charge ont des nombres entiers ou decimaux ???????
0
Xenos1705 Messages postés 93 Date d'inscription lundi 19 octobre 2015 Statut Membre Dernière intervention 11 juin 2018
11 juin 2018 à 13:14
Bonjour,

Les cellules Team sont des nombres entiers par contre la charge sont des nombres à deux décimales.

Merci :-)
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 11 juin 2018 à 17:28
Re,
Ok, suis un peu q la ramasse mais ca avance....

Pour valider, faut-il que toutes les cases soient remplies ou quelles sont les cases obligatoires ?
0
Xenos1705 Messages postés 93 Date d'inscription lundi 19 octobre 2015 Statut Membre Dernière intervention 11 juin 2018
11 juin 2018 à 18:16
Alors oui effectivement toutes les cases doivent être remplies sinon y a le message d’erreur qui apparaît informant que toutes les cellules doivent être remplies avant de pouvoir enregistrer ou mettre à jour.

Moi qui pensais qu’il suffisait de changer une ligne de code, je suis à côté de la plaque
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
12 juin 2018 à 07:37
Bonjour,

Moi qui pensais qu’il suffisait de changer une ligne de code, je suis à côté de la plaque
Pas vraiment.Vous verrez ce qu'il faut (disons a minima) pour que ca donne un resultat acceptable
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
12 juin 2018 à 09:07
Re,

un exemple de programmation:
Ouverture UF par bouton sur feuille Formulaire

https://mon-partage.fr/f/ygFKYS4v/
0

Discussions similaires

recherche à partir de la barre d'adresse
Sylviane -
Lulin -

11 réponses
Le bon coin, comment retrouver un pseudonyme ?
HYPERSENSIBLE -
HYPERSENSIBLE -

5 réponses
Fenêtre de recherche google, le texte saute
gquenot -
pol1 -

7 réponses