XL 2016 Ajouter des données dans colonnes différentes

  • Initiateur de la discussion Initiateur de la discussion FaruSZ
  • 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 !

FaruSZ

XLDnaute Occasionnel
Bonjour,
J'ai le tableau suivant:
2020_08_28_09_16_14_Window.png



Je veux ajouter des données dans les colonnes: D,E,F,G / I,J,K,L / N,O,P,Q ...etc
a partir d'une liste on choisi le nom de la lame qui est dans les colonnes : C, H, M … dans ma feuille ((Cycle_Vie_M1).
On clique sur un bouton on a un formulaire qui s'affiche on choist la lame:


2020_08_28_09_18_01_.png



puis on a le formulaire suivant ou on peut introduire les valeurs qui doivent se rajouter dan les colonnes que j'ai mentionné en haut.:

2020_08_28_09_19_11_Ajouter_lames_Modele_M1.png


J'ai rédigé ce code mais j'ai aucune donnée qui se rajoute dans ma feuille quelqu'un pourrait me dire qu'est ce qui manque dans mon code merci a vous.

VB:
Private Sub CommandButton1_Click()
Dim ws_Cycle_M1 As Worksheet
Set ws_Cycle_M1 = ActiveWorkbook.Worksheets("Cycle_Vie_M1")
fin_liste_Cycle_M1 = ws_Cycle_M1.Range("A65533").End(xlUp).Row

Nom_Lame = UF_Ajout_Lame_M1.ListBox1.List(UF_Ajout_Lame_M1.ListBox1.ListIndex, 0)
Dim sCol!
Dim Y%, X%
    sCol = 3 + (UF_Ajout_Lame_M1.ListBox1.ListIndex * 5)
    Dim Plage As Range
        Set Plage = ws_Cycle_M1.Range("C2:C" & sCol)
        Nom_Lame = UF_Ajout_Lame_M1.ListBox1.List(UF_Ajout_Lame_M1.ListBox1.ListIndex, 0)
        Set Trouve = Plage.Cells.Find(what:=Nom_Lame, lookat:=xlWhole)
If Trouve Is Nothing Then
  With Worksheets("Cycle_Vie_M1")
 
        For X = 2 To .Cells(Rows.Count, sCol).End(xlUp).Row
        .Cells(X, sCol) = Nom_Lame
        .Cells(X, sCol + 1) = Me.TextBox_Long.Value
        .Cells(X, sCol + 2) = Me.ComboBox_Tens.Value
        .Cells(X, sCol + 3) = Me.ComboBox_Type.Value
        .Cells(X, sCol + 4) = Me.ComboBox_Nomb.Value

        Next X
    End With
End If

Unload Me

End Sub
 

Pièces jointes

Bonjour.
Vous auriez meilleur temps de travailler sur une seule liste de lames quitte à avoir une colonne qui indique que c'est une lame M1 ou M2 etc. avec une ComboBox dessus, et d'utiliser cette fourniture pour la consulter et la mettre à jour :
 
- 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

Réponses
3
Affichages
586
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
234
Réponses
10
Affichages
725
Réponses
4
Affichages
355
Réponses
4
Affichages
515
Réponses
17
Affichages
1 K
Retour