VBA
RésoluJenni -
Bonjour,
À l'aide d'un tuto, j'ai copier une macro qui fonctionne bien, mon formulaire se complète bien, mais complet l'onglet 1 de mon classeur. Seulement, j'ai plusieurs feuilleS dans mon classeur Excel et j'essaie de compléter un tableau qui se nomme Liste_candidat dans la feuille qui se nomme Sheet1 (CANDIDATS). J'ai fait plusieurs essaie en changeant les variables dans mon code, mais il a toujours quelque chose qui ne fonctionne pas. Quelqu'un peu m'aider ?
Merci à l'avance!
Private Sub BtAjouter_Click() Dim onglet As Worksheet Dim derniere_ligne As Long Dim No As Long Set onglet = Worksheets(CANDIDATS - RH) derniere_ligne = onglet.Cells(Rows.Count, 1).End(xlUp).Row If dernere_ligne = 1 Then No = 1 Else No = onglet.Cells(derniere_ligne, 1) + 1 End If With onglet .Cells(derniere_ligne + 1, 1) = No .Cells(derniere_ligne + 1, 2) = tbxNom .Cells(derniere_ligne + 1, 3) = tbxCourriel .Cells(derniere_ligne + 1, 4) = TbxTel .Cells(derniere_ligne + 1, 5) = TbxVille .Cells(derniere_ligne + 1, 6) = TbxSecteur .Cells(derniere_ligne + 1, 7) = BoxChoix1 .Cells(derniere_ligne + 1, 8) = BoxChoix2 .Cells(derniere_ligne + 1, 9) = BoxChoix3 .Cells(derniere_ligne + 1, 10) = BoxEntretien .Cells(derniere_ligne + 1, 11) = TbxDate .Cells(derniere_ligne + 1, 12) = TbxDoc .Cells(derniere_ligne + 1, 13) = BoxStatut .Cells(derniere_ligne + 1, 14) = TbxQualification .Cells(derniere_ligne + 1, 15) = TbxQuestionnaire .Cells(derniere_ligne + 1, 16) = TbxRemarque .Cells(derniere_ligne + 1, 17) = BoxDispo End With End Sub
10 réponses
Pour terminer, au cas où, code pour la suppression
Private Sub BtSupprimer_Click() Dim i As Long 'recherche indice ligne tableau à partir de la valeur de la Listbox (no) With [Liste_candidats].ListObject i = 0 On Error Resume Next i = Application.Match(ListBox1.Value, .ListColumns(1).DataBodyRange, 0) On Error GoTo 0 If i = 0 Then MsgBox "aucune ligne à supprimer": Exit Sub 'suppression .ListRows(i).Delete 'chargement Listbox ListBox1.Clear If .ListRows.Count > 0 Then ListBox1.List = .DataBodyRange.Value End With End Sub
Bonsoir,
ci-dessous code pour votre tableau structuré Liste_candidat :
Private Sub BtAjouter_Click() Dim ligne As ListRow Dim i As Long, no As Long With [Liste_candidat].ListObject Set ligne = .ListRows.Add: i = ligne.Index 'ajout ligne à la fin du tableau no = Application.Max(.ListColumns(1).DataBodyRange.Value) + 1 'calcul numéro .ListColumns(1).DataBodyRange(i) = no .ListColumns(2).DataBodyRange(i) = tbxNom .ListColumns(3).DataBodyRange(i) = tbxCourriel .ListColumns(4).DataBodyRange(i) = TbxTel .ListColumns(5).DataBodyRange(i) = TbxVille .ListColumns(6).DataBodyRange(i) = TbxSecteur .ListColumns(7).DataBodyRange(i) = BoxChoix1 .ListColumns(8).DataBodyRange(i) = BoxChoix2 .ListColumns(9).DataBodyRange(i) = BoxChoix3 .ListColumns(10).DataBodyRange(i) = BoxEntretien .ListColumns(11).DataBodyRange(i) = TbxDate .ListColumns(12).DataBodyRange(i) = TbxDoc .ListColumns(13).DataBodyRange(i) = BoxStatut .ListColumns(14).DataBodyRange(i) = TbxQualification .ListColumns(15).DataBodyRange(i) = TbxQuestionnaire .ListColumns(16).DataBodyRange(i) = TbxRemarque .ListColumns(17).DataBodyRange(i) = BoxDispo End With End Sub
Par contre un message apparait "La méthode 'Add' de l'objet 'ListRows' a échoué.
Si vous avez ce message, c'est que votre tableau structuré ne s'appelle pas exactement Liste_candidat. Peut être avez-vous un blanc après le t ?
Vérifiez le nom de votre tableau en le sélectionnant complètement.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionEffectivement, il manquait un s, mais maintenant l'application se ferme automatique après voir afficher le message d'erreur.
Finalement, après plusieurs essaie, ça semble fonctionné d'autre fois non, tout ferme et je ne comprend pas pourquoi.
Vérifiez que votre tableau "Liste_candidats" n'est pas utilisé dans la propriété RowSource d'une Combobox ou d'une ListBox (cette propriété ne peut être utilisée que pour un tableau non modifié à l'exécution)
Sinon joignez un fichier anonymisé via https://www.cjoint.com/
Oui c'est bien ça, j'ai insérer une liste afin de pouvoir visualiser les candidats déjà ajoutés pour pouvoir les modifier par la suite, donc je comprends que je ne peux pas faire ça ainsi.
Je vais continuer à regarder comment faire pour ces prochaines étapes. Au moins l'ajout de candidats fonctionne maintenant, je vous remercie de votre précieux temps !!
Si vous voulez insérer par exemple une ListBox pour visualiser les candidats, vous devez utiliser alors la propriété List à l'exécution.
Ci-dessous code affichant dans une ListBox les numéros et noms des candidats
Option Explicit Private Sub UserForm_Initialize() ListBox1.ColumnCount = 2 With [Liste_candidats].ListObject If .ListRows.Count > 0 Then ListBox1.List = .DataBodyRange.Value End With End Sub Private Sub BtAjouter_Click() Dim ligne As ListRow Dim i As Long, no As Long Dim ctrl As Control With [Liste_candidats].ListObject Set ligne = .ListRows.Add: i = ligne.Index 'ajout ligne à la fin du tableau no = Application.Max(.ListColumns(1).DataBodyRange.Value) + 1 'calcul numéro .ListColumns(1).DataBodyRange(i) = no .ListColumns(2).DataBodyRange(i) = tbxNom .ListColumns(3).DataBodyRange(i) = tbxCourriel .ListColumns(4).DataBodyRange(i) = TbxTel .ListColumns(5).DataBodyRange(i) = TbxVille .ListColumns(6).DataBodyRange(i) = TbxSecteur .ListColumns(7).DataBodyRange(i) = BoxChoix1 .ListColumns(8).DataBodyRange(i) = BoxChoix2 .ListColumns(9).DataBodyRange(i) = BoxChoix3 .ListColumns(10).DataBodyRange(i) = BoxEntretien .ListColumns(11).DataBodyRange(i) = TbxDate .ListColumns(12).DataBodyRange(i) = TbxDoc .ListColumns(13).DataBodyRange(i) = BoxStatut .ListColumns(14).DataBodyRange(i) = TbxQualification .ListColumns(15).DataBodyRange(i) = TbxQuestionnaire .ListColumns(16).DataBodyRange(i) = TbxRemarque .ListColumns(17).DataBodyRange(i) = BoxDispo ListBox1.List = .DataBodyRange.Value End With '// réinitialisation des textbox For Each ctrl In Me.Controls If TypeOf ctrl Is MSForms.TextBox Then ctrl = Empty Next ctrl End Sub
Et est-ce bien complexe si je veux afficher les informations d'un candidat sélectionné dans mon formulaire pour pourvoir les modifier par la suite ?
Non. ci-dessous exemple de code :
Option Explicit Private Sub UserForm_Initialize() ListBox1.ColumnCount = 2 With [Liste_candidats].ListObject If .ListRows.Count > 0 Then ListBox1.List = .DataBodyRange.Value End With End Sub Private Sub ListBox1_Click() Dim i As Long With [Liste_candidats].ListObject 'recherche indice ligne tableau à partir de la valeur de la Listbox (no) i = Application.Match(ListBox1.Value, .ListColumns(1).DataBodyRange, 0) 'affichage ligne sélectionnée tbxNom = .ListColumns(2).DataBodyRange(i) tbxCourriel = .ListColumns(3).DataBodyRange(i) TbxTel = .ListColumns(4).DataBodyRange(i) TbxVille = .ListColumns(5).DataBodyRange(i) TbxSecteur = .ListColumns(6).DataBodyRange(i) BoxChoix1 = .ListColumns(7).DataBodyRange(i) BoxChoix2 = .ListColumns(8).DataBodyRange(i) BoxChoix3 = .ListColumns(9).DataBodyRange(i) BoxEntretien = .ListColumns(10).DataBodyRange(i) TbxDate = .ListColumns(11).DataBodyRange(i) TbxDoc = .ListColumns(12).DataBodyRange(i) BoxStatut = .ListColumns(13).DataBodyRange(i) TbxQualification = .ListColumns(14).DataBodyRange(i) TbxQuestionnaire = .ListColumns(15).DataBodyRange(i) TbxRemarque = .ListColumns(16).DataBodyRange(i) BoxDispo = .ListColumns(17).DataBodyRange(i) End With End Sub Private Sub BtAjouter_Click() Dim ligne As ListRow Dim i As Long, no As Long 'insertion ligne With [Liste_candidats].ListObject Set ligne = .ListRows.Add: i = ligne.Index 'ajout ligne à la fin du tableau no = Application.Max(.ListColumns(1).DataBodyRange.Value) + 1 'calcul numéro .ListColumns(1).DataBodyRange(i) = no End With 'mise à jour du tableau maj_tableau i End Sub Private Sub BtModifier_Click() Dim i As Long 'recherche indice ligne tableau à partir de la valeur de la Listbox (no) With [Liste_candidats].ListObject i = 0 On Error Resume Next i = Application.Match(ListBox1.Value, .ListColumns(1).DataBodyRange, 0) On Error GoTo 0 If i = 0 Then MsgBox "aucune ligne à modifier": Exit Sub End With 'mise à jour du tableau maj_tableau i End Sub Private Sub maj_tableau(i As Long) Dim ctrl As Control With [Liste_candidats].ListObject 'remplissage du tableau .ListColumns(2).DataBodyRange(i) = tbxNom .ListColumns(3).DataBodyRange(i) = tbxCourriel .ListColumns(4).DataBodyRange(i) = TbxTel .ListColumns(5).DataBodyRange(i) = TbxVille .ListColumns(6).DataBodyRange(i) = TbxSecteur .ListColumns(7).DataBodyRange(i) = BoxChoix1 .ListColumns(8).DataBodyRange(i) = BoxChoix2 .ListColumns(9).DataBodyRange(i) = BoxChoix3 .ListColumns(10).DataBodyRange(i) = BoxEntretien .ListColumns(11).DataBodyRange(i) = TbxDate .ListColumns(12).DataBodyRange(i) = TbxDoc .ListColumns(13).DataBodyRange(i) = BoxStatut .ListColumns(14).DataBodyRange(i) = TbxQualification .ListColumns(15).DataBodyRange(i) = TbxQuestionnaire .ListColumns(16).DataBodyRange(i) = TbxRemarque .ListColumns(17).DataBodyRange(i) = BoxDispo 'chargement Listbox ListBox1.List = .DataBodyRange.Value End With '// réinitialisation des textbox For Each ctrl In Me.Controls If TypeOf ctrl Is MSForms.TextBox Then ctrl = Empty Next ctrl End Sub
J'aurais une dernière question, j'essaie de récupérer la donnée entrée dans la textbox tbxNom pour la coller dans mon code qui fait l'action d'envoyer un courriel, mais il me manque quelque chose.
Sub EnvoyerCourrielNouveauCandidat() Dim LeMail As Variant Set LeMail = CreateObject("Outlook.Application") With LeMail.CreateItem(olMailItem) .Subject = "Séquence d'embauche - Nouveau candidat ajouté" .To = .htmlbody = "Bonjour" & ",<br><br>" & _ "Un candidat a été ajouté :" & "<br><br>" & _ ".FrmCandidats.tbxNom.Value" & "<br><br>" & _ "Belle journée!" .send End With Range("E6").Select End Sub
Merci encore.
Essayer ce code
Sub EnvoyerCourrielNouveauCandidat() Dim OlkApp As Object Set OlkApp = CreateObject("Outlook.Application") With OlkApp.CreateItem(0) .Subject = "Séquence d'embauche - Nouveau candidat ajouté" .To = .HTMLBody = "Bonjour" & ",<br><br>" & _ "Un candidat a été ajouté :" & "<br><br>" & _ Me.FrmCandidats.tbxNom.Value & "<br><br>" & _ "Belle journée!" .Send End With Range("E6").Select End Sub
Bien sûr !! Je ne voyais plus claire on dirait bien. Merci beaucoup!
Et si je veux que les infos s'inscrivent dans mon tableau structuré qui se nomme Liste_candidat, vous savez aussi comment ? ;)