Bonjour,
J'ai le tableau suivant:
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:
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.:
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.
J'ai le tableau suivant:
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:
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.:
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