Historique Sous Excel
Résolu/Fermé
Rom189
-
16 mars 2015 à 17:54
jordane45 Messages postés 37253 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 mars 2023 - 17 mars 2015 à 11:07
jordane45 Messages postés 37253 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 mars 2023 - 17 mars 2015 à 11:07
A voir également:
- Historique Sous Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Ce fichier contient l'historique des livres empruntés à la bibliothèque. combien de titres différents contient-il ? ✓ - Forum Excel
- Historique tiktok - Guide
- Effacer tout l'historique - Guide
2 réponses
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
16 mars 2015 à 18:11
16 mars 2015 à 18:11
Bonjour,
Si tu sais écrire des valeurs dans des cellules excel en VBA ... la seule chose qu'il te manque est de pouvoir déterminer quelle est la prochaine ligne vide disponible.
Pour cela, tu peux utiliser :
et donc pour écrire tes données :
Si tu sais écrire des valeurs dans des cellules excel en VBA ... la seule chose qu'il te manque est de pouvoir déterminer quelle est la prochaine ligne vide disponible.
Pour cela, tu peux utiliser :
dim nextLigne as Long
nextLigne = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row+1
et donc pour écrire tes données :
cells(nextLigne ,"A").value = "ta valeur..de colonne a" cells(nextLigne ,"B").value = "ta valeur..colonne b" cells(nextLigne ,"C").value = "ta valeur..colonne c" '...etc...
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
16 mars 2015 à 23:32
16 mars 2015 à 23:32
Le code de ton classeur n'est clairement pas celui que je t'ai donné...
enfin bon....
ceci fonctionne :
enfin bon....
ceci fonctionne :
Private Sub CommandButton1_Click()
Dim nextLigne As Long
Dim Sh As Worksheet
Set Sh = Sheets("Consommable")
nextLigne = Sh.Cells.Find("*", Range("B1"), , , xlByRows, xlPrevious).Row + 1
Sh.Range("B" & nextLigne).Value = UserForm1.TextBox1.Value
Sh.Range("C" & nextLigne).Value = UserForm1.TextBox2.Value
Sh.Range("D" & nextLigne).Value = UserForm1.TextBox3.Value
Sh.Range("E" & nextLigne).Value = UserForm1.TextBox4.Value
Sh.Range("F" & nextLigne).Value = UserForm1.TextBox5.Value
Unload Me
End Sub
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
17 mars 2015 à 11:07
17 mars 2015 à 11:07
Si la question est résolue..
Merci de ne pas oublier de clôturer le sujet
(en cliquant sur le lien "Marquer comme résolu" qui se trouve sous le titre de la question)
Cordialement,
Jordane
Merci de ne pas oublier de clôturer le sujet
(en cliquant sur le lien "Marquer comme résolu" qui se trouve sous le titre de la question)
Cordialement,
Jordane
16 mars 2015 à 19:22
16 mars 2015 à 20:23
16 mars 2015 à 21:08
http://www.fichier-xls.fr/2015/03/16/historique-1-0/