W
Willy
Guest
Bonjour à tous
La procédure suivante permet à partir d'une listBox de saisir des cellules automatiquement, puis en cliquanr de nouveau dans la listBox, une autre ligne est saisie sous la première ligne et ainsi de suite, jusqu'à la dernière ligne ( dans mon cas la 4eme).
Private Sub List_Stage_Agt_Click()
' Affiche automatiquement les infos dans le formulaire avec passage à la ligne automatique
Dim VarDerL As Integer
'Dernière ligne du formulaire
VarDerL = Sheets("FORMULAIRE_FORMATION").Range("A56").End(xlUp).Row + 1
' Arrivé à la dernière ligne des stages du formulaire
If VarDerL = 40 Then
MsgBox "Vous êtes arrivé à la dernière ligne !", vbCritical, "STAGES COMPLET !"
Range("A50").Select
Unload Select_Agent
Exit Sub
End If
' AFFICHE LES RESULTATS DANS LES CELLULES DU FORMULAIRE
With Sheets("FORMULAIRE_FORMATION")
.Range("A" & VarDerL) = DS_A_15 ' TextBox titre stage
.Range("G" & VarDerL) = DS_A_16 ' TextBox Numéro stage
.Range("K" & VarDerL) = DS_A_17 ' TextBox date du stage
End With
Exit Sub
End Sub
Cette procédure adapté à partir d'une démo de @+Thierry fonctionne parfaitement, je l'utilise dans un autre projet, mais dans le projet actuel le lignes saisies ne correspondent pas et je n'arrive pas à écrire à la ligne suivante, en clair la saisie se fait ou elle veut !!!
J'y ai passé une bonne partie de la journée à essayer de comprendre ou ça cloche mais je sèche !
De plus dans un ancien projet j'utilisai également la procédure suivante à la suite de la première qui permet de supprimer la ligne de la listBox qui a été cliquée :
' Après avoir cliqué dans la listBox, le nom du stage concerné disparait de la listbox
If List_Stage_Agt.ListCount >= 1 Then
If List_Stage_Agt.ListIndex = -1 Then
List_Stage_Agt.ListIndex = List_Stage_Agt.ListCount - 1
End If
List_Stage_Agt.RemoveItem (List_Stage_Agt.ListIndex)
End If
Et j'ai une erreur actuellement à :
List_Stage_Agt.RemoveItem (List_Stage_Agt.ListIndex)
????
Décidément c'est pas le jour ! lol
Merci de vos conseils
Willy
La procédure suivante permet à partir d'une listBox de saisir des cellules automatiquement, puis en cliquanr de nouveau dans la listBox, une autre ligne est saisie sous la première ligne et ainsi de suite, jusqu'à la dernière ligne ( dans mon cas la 4eme).
Private Sub List_Stage_Agt_Click()
' Affiche automatiquement les infos dans le formulaire avec passage à la ligne automatique
Dim VarDerL As Integer
'Dernière ligne du formulaire
VarDerL = Sheets("FORMULAIRE_FORMATION").Range("A56").End(xlUp).Row + 1
' Arrivé à la dernière ligne des stages du formulaire
If VarDerL = 40 Then
MsgBox "Vous êtes arrivé à la dernière ligne !", vbCritical, "STAGES COMPLET !"
Range("A50").Select
Unload Select_Agent
Exit Sub
End If
' AFFICHE LES RESULTATS DANS LES CELLULES DU FORMULAIRE
With Sheets("FORMULAIRE_FORMATION")
.Range("A" & VarDerL) = DS_A_15 ' TextBox titre stage
.Range("G" & VarDerL) = DS_A_16 ' TextBox Numéro stage
.Range("K" & VarDerL) = DS_A_17 ' TextBox date du stage
End With
Exit Sub
End Sub
Cette procédure adapté à partir d'une démo de @+Thierry fonctionne parfaitement, je l'utilise dans un autre projet, mais dans le projet actuel le lignes saisies ne correspondent pas et je n'arrive pas à écrire à la ligne suivante, en clair la saisie se fait ou elle veut !!!
J'y ai passé une bonne partie de la journée à essayer de comprendre ou ça cloche mais je sèche !
De plus dans un ancien projet j'utilisai également la procédure suivante à la suite de la première qui permet de supprimer la ligne de la listBox qui a été cliquée :
' Après avoir cliqué dans la listBox, le nom du stage concerné disparait de la listbox
If List_Stage_Agt.ListCount >= 1 Then
If List_Stage_Agt.ListIndex = -1 Then
List_Stage_Agt.ListIndex = List_Stage_Agt.ListCount - 1
End If
List_Stage_Agt.RemoveItem (List_Stage_Agt.ListIndex)
End If
Et j'ai une erreur actuellement à :
List_Stage_Agt.RemoveItem (List_Stage_Agt.ListIndex)
????
Décidément c'est pas le jour ! lol
Merci de vos conseils
Willy