Des difficultés à programmer le bouton MODIFIER

je suis vraiment novice et blonde
toutes les tares
:weird:

en fait j'ai un module de recherche qui va chercher les données d'un agent
ca remplit mon formulaire et j'y apporte les modifications que j'enregistre en cliquant sur le bouton modifie
cela incrémente ainsi ma feuille excel

je n'ai toujours pas la réponse qui me permet de t'aider à résoudre ce problème

tu parles d'incrémentation, ça veut donc dire que les données doivent s'écrire dans une nouvelle ligne ? La première non vide ?

je demande ... parce qu'à la base ton sujet porte sur un bouton de "modification"

tu peux montrer ton "module" qui recherche l'agent et ses informations ?

Pardon
Merci pour ta patience
Voici les 2 module pour les 2 types de recherches que j'ai programmé

Pour le bouton RECHERCHER N° CP

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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71

Private Sub CommandButton4_Click() Dim M As Integer M = ComboBox26.ListIndex + 2 ComboBox4 = Range("A" & M).Value ComboBox5 = Range("B" & M).Value ComboBox6 = Range("C" & M).Value ComboBox7 = Range("D" & M).Value ComboBox8 = Range("E" & M).Value TextBox4 = Range("F" & M).Value ComboBox9 = Range("G" & M).Value TextBox2 = Range("H" & M).Value TextBox3 = Range("I" & M).Value TextBox1 = Range("J" & M).Value ComboBox10 = Range("K" & M).Value ComboBox11 = Range("L" & M).Value ComboBox1 = Range("M" & M).Value ComboBox2 = Range("N" & M).Value ComboBox3 = Range("O" & M).Value TextBox5 = Range("P" & M).Value ComboBox12 = Range("Q" & M).Value ComboBox13 = Range("R" & M).Value ComboBox14 = Range("S" & M).Value ComboBox15 = Range("T" & M).Value ComboBox16 = Range("U" & M).Value ComboBox17 = Range("V" & M).Value ComboBox18 = Range("W" & M).Value ComboBox19 = Range("X" & M).Value ComboBox20 = Range("Y" & M).Value ComboBox21 = Range("Z" & M).Value ComboBox22 = Range("AA" & M).Value ComboBox23 = Range("AB" & M).Value ComboBox24 = Range("AC" & M).Value ComboBox25 = Range("AD" & M).Value TextBox6 = Range("AE" & M).Value TextBox8 = Range("AF" & M).Value TextBox7 = Range("AG" & M).Value TextBox9 = Range("AH" & M).Value TextBox11 = Range("AI" & M).Value TextBox10 = Range("AJ" & M).Value TextBox12 = Range("AK" & M).Value TextBox13 = Range("AL" & M).Value TextBox14 = Range("AM" & M).Value TextBox15 = Range("AN" & M).Value TextBox16 = Range("AO" & M).Value TextBox17 = Range("AP" & M).Value TextBox18 = Range("AQ" & M).Value TextBox19 = Range("AR" & M).Value TextBox20 = Range("AS" & M).Value TextBox21 = Range("AT" & M).Value TextBox22 = Range("AU" & M).Value TextBox23 = Range("AV" & M).Value TextBox24 = Range("AW" & M).Value TextBox25 = Range("AX" & M).Value TextBox26 = Range("AY" & M).Value TextBox27 = Range("AZ" & M).Value TextBox28 = Range("BA" & M).Value TextBox29 = Range("BB" & M).Value TextBox30 = Range("BC" & M).Value TextBox31 = Range("BD" & M).Value TextBox32 = Range("BE" & M).Value TextBox33 = Range("BF" & M).Value TextBox34 = Range("BG" & M).Value TextBox35 = Range("BH" & M).Value TextBox36 = Range("BI" & M).Value TextBox37 = Range("BJ" & M).Value TextBox38 = Range("BK" & M).Value TextBox39 = Range("BL" & M).Value TextBox40 = Range("BM" & M).Value     End Sub

---

Pour le bouton RECHERCHER NOM

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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70

Private Sub CommandButton5_Click() Dim N As Integer N = ComboBox27.ListIndex + 2 ComboBox4 = Range("A" & N).Value ComboBox5 = Range("B" & N).Value ComboBox6 = Range("C" & N).Value ComboBox7 = Range("D" & N).Value ComboBox8 = Range("E" & N).Value TextBox4 = Range("F" & N).Value ComboBox9 = Range("G" & N).Value TextBox2 = Range("H" & N).Value TextBox3 = Range("I" & N).Value TextBox1 = Range("J" & N).Value ComboBox10 = Range("K" & N).Value ComboBox11 = Range("L" & N).Value ComboBox1 = Range("M" & N).Value ComboBox2 = Range("N" & N).Value ComboBox3 = Range("O" & N).Value TextBox5 = Range("P" & N).Value ComboBox12 = Range("Q" & N).Value ComboBox13 = Range("R" & N).Value ComboBox14 = Range("S" & N).Value ComboBox15 = Range("T" & N).Value ComboBox16 = Range("U" & N).Value ComboBox17 = Range("V" & N).Value ComboBox18 = Range("W" & N).Value ComboBox19 = Range("X" & N).Value ComboBox20 = Range("Y" & N).Value ComboBox21 = Range("Z" & N).Value ComboBox22 = Range("AA" & N).Value ComboBox23 = Range("AB" & N).Value ComboBox24 = Range("AC" & N).Value ComboBox25 = Range("AD" & N).Value TextBox6 = Range("AE" & N).Value TextBox8 = Range("AF" & N).Value TextBox7 = Range("AG" & N).Value TextBox9 = Range("AH" & N).Value TextBox11 = Range("AI" & N).Value TextBox10 = Range("AJ" & N).Value TextBox12 = Range("AK" & N).Value TextBox13 = Range("AL" & N).Value TextBox14 = Range("AM" & N).Value TextBox15 = Range("AN" & N).Value TextBox16 = Range("AO" & N).Value TextBox17 = Range("AP" & N).Value TextBox18 = Range("AQ" & N).Value TextBox19 = Range("AR" & N).Value TextBox20 = Range("AS" & N).Value TextBox21 = Range("AT" & N).Value TextBox22 = Range("AU" & N).Value TextBox23 = Range("AV" & N).Value TextBox24 = Range("AW" & N).Value TextBox25 = Range("AX" & N).Value TextBox26 = Range("AY" & N).Value TextBox27 = Range("AZ" & N).Value TextBox28 = Range("BA" & N).Value TextBox29 = Range("BB" & N).Value TextBox30 = Range("BC" & N).Value TextBox31 = Range("BD" & N).Value TextBox32 = Range("BE" & N).Value TextBox33 = Range("BF" & N).Value TextBox34 = Range("BG" & N).Value TextBox35 = Range("BH" & N).Value TextBox36 = Range("BI" & N).Value TextBox37 = Range("BJ" & N).Value TextBox38 = Range("BK" & N).Value TextBox39 = Range("BL" & N).Value TextBox40 = Range("BM" & N).Value   End Sub

---

Tu ne manqueras pas de remarquer que le remplissage effectué dans ces deux procédures peut être simplifié, sur le même modèle que je t'ai présenté, en ré utilisant les Tag que tu as mis dans tes contrôles ;)

je te laisse le faire, un bon exercice d'entrainement


donc si je comprend bien, le nom de tes Agents est dans le ComboBox27 ?

alors, il faut juste changer

Code:

---

Ligne = Me.ComboBox1.ListIndex + 2

---

par

Code:

---

Ligne = Me.ComboBox27.ListIndex + 2

---

ça devrait être bon ... mais c'est difficile pour moi de bien conceptualiser ton userform sans le voir ... compte tenu du nombre de contrôles, des petits problèmes que tu rencontres pour me donner explicitement l'information qui m'intéresse, et surtout de la longueur de tes codes, qu'il est impératif d'optimiser comme je te l'ai suggéré (ton code sera beaucoup plus lisible)

sinon, c'est pas grave, on continuera de chercher ensemble :ptdr:


Au passage, n'hésite jamais à renommer toi-même les contrôles, pour leur donner des noms simples à comprendre

Exemple : si tu renommes ta ComboBox27 par "Combo_NomAgent" ... c'est plus simple pour toi quand tu dois relire, corriger, faire évoluer ton code ! Sans parler du pauvre malheureux qui reprendrait un jour ton projet. Un tube d'aspirine et une cafetière complète pour décortiquer ton code :aie:

Je reprends tout ca et je reviens vers toi
Merci
Par contre j'ai 2 combobox de recherche la 26 et la 27
Comment est ce que j'indique ces 2 formules
En effet si quelqu'un reprend mon fichier c'est parce que moi meme je serai deja devenue chevre
:calim2::aie::aie::aie::aie:

y'a quoi exactement dans la 26 ? "CP" ça me parle pas

et pourquoi tu as deux combobox différents pour remplir tes champs ?

La 26 est une recherche par un identifiant propre à chaque agent
Je peux donc rechercher soit par nom soit par identifiant

il y a un petit problème de conception du coup, je pense.

on doit utiliser la valeur du combobox 26 ou 27, suivant celui qui a été utilisé pour appeler les données.

le problème, c'est qu'on sait pas lequel a été utilisé, et l'utilisateur peut très bien avoir choisi un agent "JEAN" dont l'id est "1" ... et avoir saisi la valeur 4 dans le combobox des ID

le plus simple est :

- si l'utilisateur charge les données par la Combo26 : on masque la 27 durant le remplissage du userform
- inversement si l'utilisateur charge les données depuis la combo27 : on masque la 26 durant le remplissage
- quand on lance l'exportation des données, on regarde le combobox qui est visible : c'est lui qui nous fournira la ligne


testons :

dans ton Private Sub CommandButton4_Click(), après la déclaration de la variable M tu mets

Code:

---

Me.ComboBox27.Visible = False

---

dans ton Private Sub CommandButton5_Click(), après la déclaration de la variable M tu mets

Code:

---

Me.ComboBox26.Visible = False

---

et la procédure d'exportation des données devient :

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 35 36 37 38 39 40

Private Sub CommandButton2_Click() Dim Ligne As Long Dim i As Integer Dim Ctrl As Control   If MsgBox("Confirmez-vous la modification de cet agent ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then   ' on regarde si c'est l'ID ou le NOM qui a été utilisé ' et on récupère la ligne source grâce à la position de la valeur choisie dans le combobox If Me.ComboBox26.Visible = False Then If Me.ComboBox27.ListIndex = -1 Then Exit Sub Ligne = Me.ComboBox27.ListIndex + 2 Else If Me.ComboBox26.ListIndex = -1 Then Exit Sub Ligne = Me.ComboBox26.ListIndex + 2 End If   ' on rattache les lignes où on va écrire à la feuille ESSAI ' ce qui évite d'écrire dans une autre feuille que celle là With Sheets("Feuil1") ' pour les 65 colonnes où on doit écrire For i = 1 To 65 ' on cherche dans chaque controle celui dont le Tag correspond à la colonne où on doit écrire For Each Ctrl In Me.Controls ' si le contrôle contient bien un tag If Ctrl.Tag <> "" Then ' celui qui porte le bon tag If Ctrl.Tag = i Then ' transmet son contenu à la cellule située à la LIGNE voulue, et dans la colonne voulue .Cells(Ligne, i) = Ctrl End If End If Next Ctrl Next i End With End If   Unload Me   End Sub

---

Il serait, de ce fait, opportun de créer un bouton qui va réinitialiser tous tes champs, et réafficher la combobox invisible ... au cas où l'utilisateur ne souhaite finalement pas modifier cet agent, et veux en sélectionner un autre

Merci merci merci
Ca tourne nickel
Maintenant je suis en train de d''essayer d'appliquer le programme avec tag et je pense que je vais devenir chauve à la place d'être blonde mais j'y arriverai :aie::aie::aie::aie:

Essaye, si tu veux que je vérifies, tu postes les deux codes une fois modifié

c'est la même chose que mon code ... sauf que tu fais l'opération inverse (Excel vers les Controles)

Je n'y arrive pas
Je regarderai ca ce soir ou demain avec un cerveau un peu plus reposé.
Merci en tout cas pour ton aide précieuse

Bonjour Joe
Je reviens vers toi car je bloque avec le tag de mon bouton nouvel agent
En voici le programme

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub CommandButton1_Click() Dim L As Integer Dim Ligne As Long Dim I As Integer Dim Ctrl As Control   If MsgBox("Confirmez-vous l’insertion de ce nouvel agent ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then L = Sheets("ESSAI").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide   With Sheets("ESSAI") For I = 1 To 65 For Each Ctrl In Me.Controls If Ctrl.Tag <> "" Then If Ctrl.Tag = I Then .Cells(Ligne, I) = Ctrl End If End If Next Ctrl Next I End With End If End Sub

---

Bonjour,

je parie qu'il n'enregistre pas sur la première ligne non vide, et tu as un message d'erreur "erreur définie par l'application ou l'objet" ?

tu a bien calculée ta ligne L où faire l'enregistrement, mais tu dois l'utiliser ici, à la place de "LIGNE"

Code:

---

.Cells(L, I) = Ctrl

---

c'est cette ligne qui plantait ? ;)

Trop fort
Ca fonctionne
Je m'attaque maintenant à mes boutons RECHERCHER
Et là je risque d'avoir besoin de nouveau de ton aide :?

Et bien voila tout fonctionne
J'y suis arrivée
Yes
Yes
Yes
Un grand merci et un gros bisou en prime
:oops:

Bravo,

j'espère surtout que t'as appris la mécanique et tu pourras optimiser tes projets futurs

:mrgreen:

Oui je pense que j'ai compris
A voir au prochain épisode quand l'idée me reprendra de vouloir refaire un autre programme :mouarf: