(Résolu) Besoin de quelques conseisl pour finir mon developpement

  • Initiateur de la discussion Initiateur de la discussion corvelc
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

corvelc

XLDnaute Occasionnel
Bonjour,

Grace à vos conseils , j'ai bien avancé sur mon developpement, mais j'ai encore besoin d'aide pour pouvoir finaliser.
mes 2 besoins : (si besoin toutes les explications détaillées avec images dans le fichier de test)

Point 1 : lors de l'alimentation de mon tableau, pouvoir créer 4 lignes par Tcollaborateur au lieu d'une seule actuellement.
mon code :
Private Sub Worksheet_Change(ByVal Target As Range)
'**************************************************
' alimentation des cellules
'**************************************************
If Target.Address(0, 0) = "B2" Then
If Not IsEmpty("B2") Then
Dim manager As String, c As Range
manager = Range("B2").Value

'Eviter les calculs inutiles et rappel en boucle de l'évènement change
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False 'Figer l'écran
'Vider la liste actuelle
Me.ListObjects("tcollaborateurs").DataBodyRange.Delete (xlShiftUp)
'Parcourir la liste des managers de effectif
For Each c In Sheets("BD effectif").Range("teffectifs[Manager]").Cells
'si occurence trouvée
If LCase(c) = LCase(manager) Then
'rajouter une ligne au tableau collaborateur
'*** comment ajouter 4 lignes par Tcollaborateur ***"
With Me.ListObjects("tcollaborateurs").ListRows.Add
.Range(1, 1) = c(1, -4)
.Range(1, 2) = c(1, -3)
.Range(1, 3) = c(1, -1)
.Range(1, 4) = c(1, 0)
.Range(1, 5) = c(1, 2)
End With
End If
Next
'Rétablir les paramètres d'application
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True 'Figer l'écran
End If
End If
End Sub

Point 2 :
-comment alimenter la première zone de ma combobox avec la valeur de la cellule selectée qui lance la combobox tout en laissant la possibilité de choisir dans la liste imbriquée créée. détail dans mon fichier

Merci d'avance pour l'aide
CC
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Retour