VBA (Excel) nb ligne ajoutée ou retranchée
Résolu/Fermé
Dmouha
-
21 oct. 2010 à 12:30
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 - 21 oct. 2010 à 13:56
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 - 21 oct. 2010 à 13:56
A voir également:
- VBA (Excel) nb ligne ajoutée ou retranchée
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Si ou excel - Guide
- Formule excel - Guide
- Apparaitre hors ligne instagram - Guide
3 réponses
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
21 oct. 2010 à 13:26
21 oct. 2010 à 13:26
Salut,
Avec un petit bout de code VBA si tu as quelques notions, tu peux créer un compter dans une colonne.
Commence par nommer la dernière cellule d'une plage exemple la cellule A1000 que tu nommes ex.titi
dans un module Visual Basic colle ce code que tu associes à un bouton, il te comptera le nombre de ligne entre la cellule A1 et la cellule nommée. L'historique sera affiché colonne B
Il est également possible de compléter cet historique avec les dates et heures des contrôles
Sub compt()
[A1:titi].Select
With Selection
nblig = .Rows.Count
End With
Range("B65536").End(xlUp).Offset(1, 0) = nblig
MsgBox "le nombre de lignes vides est de " & nblig
End Sub
Avec un petit bout de code VBA si tu as quelques notions, tu peux créer un compter dans une colonne.
Commence par nommer la dernière cellule d'une plage exemple la cellule A1000 que tu nommes ex.titi
dans un module Visual Basic colle ce code que tu associes à un bouton, il te comptera le nombre de ligne entre la cellule A1 et la cellule nommée. L'historique sera affiché colonne B
Il est également possible de compléter cet historique avec les dates et heures des contrôles
Sub compt()
[A1:titi].Select
With Selection
nblig = .Rows.Count
End With
Range("B65536").End(xlUp).Offset(1, 0) = nblig
MsgBox "le nombre de lignes vides est de " & nblig
End Sub
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
21 oct. 2010 à 13:56
21 oct. 2010 à 13:56
Avec plaisir, n'hésite pas si tu veux compléter ton projet
21 oct. 2010 à 13:45