Pb modification tableau suite choix ligne via combobox / textbox

Version imprimable

Bonjour a tous,

Je souhaiterais modifier le contenu d'une ligne d'un tableau excel via une userform. Je bloque au niveau de la réécriture des données modifiées dans mon tableau structuré.
Je m'explique j'arrive a récupérer (via combobox) le contenu de la ligne souhaitée et les dispatchées dans des textbox.
La ou je bloque c'est pour venir réécrire ces données (modifiés dans mes textbox) en lieu et places des anciennes.

Merci d'avance pour votre aide

Le code utilisé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub UserForm_Initialize() 'Affiche dans la combobox le contenu du tableau adhérent With Me.ComboBox1 .ColumnCount = 2: .ColumnWidths = "80;80" ' Affiche les colonnes B à C .ColumnHeads = True 'affiche entéte du tableau .RowSource = "TableauAdherents" 'Endroit ou sont les donnée End With End Sub 'Copie les info de la combobox dans textbox Private Sub ComboBox1_Click() Me.TextBoxNom = Me.ComboBox1 Me.TextBoxPrenom = Me.ComboBox1.Column(1) End Sub

02/04/2020, 14h20
riaolle

Bonjour,

Je ne suis pas sûre de comprendre exactement ce que tu veux.
1ère interrogation : pourquoi passe-tu par une ComboBox pour alimenter tes TextBox ?
2ème question : est-ce que les cellules que tu veux modifier dans ton classeur se situent toujours au même endroit ? En fait, la question sous-jacente est comment sait-on quelles sont les cellules qu'il faut remplacer ?
Car une fois qu'on sait cela, c'est très simple :

Code:

Range("A1") = TextBox1

Pour t'aider : https://silkyroad.developpez.com/VBA...serForm/#LII-E

Pour t'aider plus facilement, il serait bien que tu nous joignes une copie d'écran de ton UserForm et classeur expliquant ce que tu as et le résultat que tu aimerais obtenir.
02/04/2020, 15h25
tico06

Bonjour,

La combobox me sert pour rechercher dans mon tableau la ligne à modifier.
Une fois la ligne choisie (via la combobox) je viens remplir les textbox avec les données sélectionnées préalablement dans la combobox.
Les cellules a modifier ne sont donc jamais au même endroit c'est ce qui me pose problème.
Comment trouver la ligne choisie par la combobox pour que les textbox contenant les modifications aillent s'écrire sur cette même ligne.

Merci d'avance
02/04/2020, 15h42
riaolle

Si j'ai bien compris, tu charges une base de données d'une feuille dans ta ComboBox. Ensuite tu cliques sur une entrée, tu l'as modifie et tu aimerais la modifier dans ta base de données Excel ?
Est-ce qu'il y a une clef unique dans ta base de données ? Par exemple, s'il y a des noms, est-ce qu'ils sont uniques ?
Le seul moyen de retrouver des entrées, c'est si elles sont uniques. Il faudra alors faire des recherches avec Application.Match par exemple.

Je me permets de te redemander : pour t'aider plus facilement, il serait bien que tu nous joignes une copie d'écran de ton UserForm et classeur expliquant ce que tu as et le résultat que tu aimerais obtenir.
02/04/2020, 16h47
tico06

1 pièce(s) jointe(s)

Bonjour,

Peut être plus clair comme cela

Etape 1 : je choisi dans ma combobox la ligne de mon tableau que je veux modifier
Etape 2 : les différentes informations sont renvoyés vers les textbox pour être modifié
Etape 3 (celle ou je bloque) : remettre a jour le tableau avec les informations modifiés

Pièce jointe 552332

2 pièce(s) jointe(s)

Il te faudra une clef dans ta BDD. Pourquoi ? Supposons qu'il y ait 2 personnes avec le même nom de famille, comment fais-tu pour les différencier ? Ou le même prénom etc ... ? Je partirai bien sur une clef NomPrénom, car dans ta ComboBox, tu fais apparaître Nom et Prénom. Il faudrait donc que tu créés une colonne NomPrénom.

Exemple :
Pièce jointe 552580

Mon UserForm pour l'exemple :
Pièce jointe 552576

Mon code pour l'exemple :

Code:

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
28
29
30
31
32
33
34
'Je mets ces variables en dehors des Sub pour pouvoir les utiliser dans plusieurs Sub.
Dim nom As String
Dim prenom As String
 
'Pour l'initialisation, rien de nouveau, j'ai repris ton code
Private Sub UserForm_Initialize()
    With Me.ComboBox1
    .ColumnCount = 2
    .ColumnWidths = "80;80" ' Affiche les colonnes B à C
    .ColumnHeads = True 'affiche entéte du tableau
    .RowSource = "Feuil1!B2:C6" 'Endroit ou sont les donnée
   End With
   Label2.Caption = "- - -"
End Sub
 
 
'Quand je sélectionne une valeur dans la combobox, je veux récupérer le Nom Prénom de la personne que j'ai sélectionné et je veux compléter la Textbox avec l'âge de la personne
Private Sub ComboBox1_Change()
 
    nom = ComboBox1.List(ComboBox1.ListIndex, 0)        'me permet de récupérer la valeur sélectionnée de la 1ère colonne (colonne n°0) de la combobox => soit dans mon exemple le nom de la personne sélectionnée
    prenom = ComboBox1.List(ComboBox1.ListIndex, 1)      'me permet de récupérer la valeur sélectionnée de la 2ème colonne (colonne n°1) de la combobox => soit dans mon exemple le prénom de la personne sélectionnée
 
    TextBox1 = Application.VLookup(nom & prenom, Sheets("Feuil1").Range("A1:D6"), 4, 0)    'je fais un RECHERCHEV dans le tableau source à partir de la clef = NomPrénom pour retrouver l'âge de la personne
    Label2.Caption = nom & " " & prenom 'pas utile (c'était pour moi)
 
End Sub
 
'Quand je clique sur "Modifier", je veux modifier l'âge de la personne sur la BDD sur la feuille Excel
Private Sub CommandButton1_Click()
    Dim ligne As Integer
 
    ligne = Application.Match(nom & prenom, Sheets("Feuil1").Range("A:A"), 0)    'Je cherche la ligne sur laquelle est la personne sélectionnée, grâce à la clef NomPrénom
    Sheets("Feuil1").Range("D" & ligne) = TextBox1     'Je modifie l'âge de la personne sélectionnée : cet âge est écrit en colonne D ligne "ligne".
End Sub

Petite remarque en aparté : ce type de chose (créer une base de données avec un formulaire de saisie/ modification) est beaucoup plus simple à faire sur Access, car c'est la fonctionnalité "de base" d'Access. Donc si tu peux le faire sur Access, ce serait mieux :)