Boites de saissie et classement automatique
mikewhittom
Messages postés
21
Date d'inscription
Statut
Membre
Dernière intervention
-
pilas31 Messages postés 1825 Date d'inscription Statut Contributeur Dernière intervention -
pilas31 Messages postés 1825 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- Boites de saissie et classement automatique
- Logiciel de sauvegarde automatique gratuit - Guide
- Réponse automatique thunderbird - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Logiciel de classement de photos gratuit - Guide
- Réponse automatique gmail - Guide
1 réponse
Bonjour,
Voici un exemple de macro qui fonctionne :
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
