Boites de saissie et classement automatique
mikewhittom
Messages postés
26
Statut
Membre
-
pilas31 Messages postés 1878 Statut Contributeur -
pilas31 Messages postés 1878 Statut Contributeur -
Bonjour à tous
J'aimerais savoir si c'est possible de programmer(VBA) une boites de saisie, qui ensuite prend les données inscrit pour le classer au bonne endroit.
Voici un liens d'un tableau excel qui pourrait vous aidez a comprendre mes écrits
https://www.cjoint.com/c/CJDwUnHNkh2
J'aimerais savoir si c'est possible de programmer(VBA) une boites de saisie, qui ensuite prend les données inscrit pour le classer au bonne endroit.
Voici un liens d'un tableau excel qui pourrait vous aidez a comprendre mes écrits
https://www.cjoint.com/c/CJDwUnHNkh2
1 réponse
-
Bonjour,
Voici un exemple de macro qui fonctionne :Private Sub CommandButton1_Click()
J'ai mis quelques commentaires explicatifs.
Dim Col As Integer
Dim DerLig As Long
CommandButton1.Caption = "Rajouter"
'On cherche le bon endroit
For Col = 3 To 18 Step 5
If Sheets("Boites De saissie").Cells(5, 2) = Sheets("Liste").Cells(7, Col) Then
Exit For
End If
Next
'On cherche le premier emplacement libre dans la bonne liste
DerLig = Sheets("Liste").Cells(Rows.Count, Col - 1).End(xlUp).Row + 1
If DerLig < 8 Then DerLig = 8
'On range le nom
Sheets("Liste").Cells(DerLig, Col - 1) = Sheets("Boites De saissie").Cells(5, 1)
'On range le coût
Sheets("Liste").Cells(DerLig, Col + 1) = Sheets("Boites De saissie").Cells(5, 3)
End Sub
