Une textbox comme compteur

Bonjour,
j'ai un petit souci pour créer une textbox placée sur une feuille de données et qui indiquerait le nombre de lignes saisies en se fondant sur la colonne A qui contient un identifiant (lettre+chiffre) servant de n° d'enregistrement.
Pour l'instant ma textbox est alimentées par sa linkedcell (une cellule avec NBVAL) mais je voudrai peaufiner un peu mieux mon projet en évitant ce genre de procédure.
Je souhaiterai que l'opération se fasse par une macro à base de End(xlDown).Row mais je ne veux pas passer par un USF (tous les sujets relatifs trouvés sur le net utilisent un USF). Ce compteur doit se situer sur la feuille.
Et là, je sèche !
Merci

Bonjour,

Sans préjuger du fond, une solution serait de créer une plage dynamique sur ta colonne d'ID :

http://office.microsoft.com/fr-fr/ex...001126115.aspx

et d'employer un

Code:

---

MaPlage.Cells.Count

---

pour alimenter ta TextBox (employer un contrôle ActiveX)

Rajout : Tu as intérêt à utiliser un évènementiel de ta feuille genre Change limité à la colonne voulue pour déclencher la maj de ton compteur.
Vois les tutos DVP et les nombreux fils du forum à ce sujet ;)

cordialement,

Didier

je me tire des balles ! je n'arrive à rien.
Je joins un fichier test ultra basique avec ce que j'ai réalisé comme manipulations.
Les recherches sur internet, c'est bien, mais je tombe toujours sur des exemples de projets où il faut gérer 2500 personnes travaillant dans 30 spécialités différentes et en horaires décalés + les RTT, etc. :lol::lol::lol:

Je ne désespère pas mais ...

Bonjour,

Bravo pour la plage dynamique, pour le reste, tu n'étais pas loin, en lisant attentivement ce que j'avais écrit

Citation:

---

Envoyé par Ormonth

Tu as intérêt à utiliser un évènementiel de ta feuille

---

tu aurais gagné du temps ;)

on parle de l'évènementiel de la feuille, pas du TextBox :)

vois ainsi :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target.Columns, Columns("A:A")) Is Nothing Then 'Test : si la négation de l'intersection de la colonne de la cellulle selectionnée avec la colonne voulue 'ne représente aucune cellule : (donc négation de : '(on n'a pas cliqué dans une case qui nous intéresse..)= on a cliqué où on veut réagir) TextBox3.Value = Range("numéro").Cells.Count-1 End If End Sub

---

sinon: ton code :

Code:

---

TextBox3.Value = numéro.Cells.Count

---

ne peut pas fonctionner, il faut invoquer l'objet Range comme au-dessus ;)

Rajout : j'ai ajouté un -1 au Cells.Count car tu as inclus la ligne de titre dans ta plage....

cordialement,

Didier

Merci Ormonth. Effectivement, sans maitrise des finesses du VBA, l'horizon est vite bouché!
Je n'avais pas pensé à l'événement feuille en restant arcbouté sur la Textbox.
Je rajoute cette précieuse astuce dans mon calepin pense bête.

Pour info, j'ai eu la frousse car cela ne fonctionnait pas. en fait j'ai changé le Private Sub Worksheet_Change par SelectionChange et là c'est OK !

Chapeau les Pro :ccool:

Bonjour,

Citation:

---

Envoyé par mikadoo57

Merci Ormonth. Effectivement, sans maitrise des finesses du VBA...
Pour info, j'ai eu la frousse car cela ne fonctionnait pas. en fait j'ai changé le Private Sub Worksheet_Change par SelectionChange et là c'est OK !

---

Fais attention justement aux finesses (que tu invoques) entre les deux, change réagit quand tu changes une valeur, l'autre quand tu changes la sélection, hors il n'est pas nécessaire de changer la sélection entrer une valeur via le code.

teste ce code ....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target.Columns, Columns("A:A")) Is Nothing Then 'Test : si la négation de l'intersection de la colonne de la cellulle selectionnée avec la colonne voulue 'ne représente aucune cellule : (donc négation de : '(on n'a pas cliqué dans une case qui nous intéresse..)= on a cliqué où on veut réagir) TextBox3.Value = Range("numéro").Cells.Count - 1 End If End Sub   Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target.Columns, Columns("A:A")) Is Nothing Then MsgBox "tuuuut !" End If End Sub   Sub toto() ' rien à faire dans un module de feuille normalement, ce code 'juste pour la démo... Cells(8, 1).Value = 59 End Sub

---

On part sur ton exemple, la dernière donnée est en A7, tu sélectionnes une cellule quelconque de ta feuille hors colonne A et tu lances la sub Toto, ton compteur se mettra bien à jour et tu n'auras pas le msgbox, preuve du danger de la confusion entre les deux, si le code est en selectionChange => pas de mise à jour...

cordialement,

Didier

J'en perds mon latin !
j'ai appliqué la procédure pas à pas sur mon projet (dont les données sont insérées dès la ligne 3 via un formulaire sur USF) :

-création de la plage dynamique (appelé ici 'interne') =DECALER(Activités!$A$3;0;0;NBVAL(Activités!$A$:$A$);1)
- création d'une Textbox sur ma feuille ('TextBox1')
- création de la macro par recopie et adaptation

Code:

---

1 2 3 4 5 6 7 8

'macro compteur annuel Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If Not Intersect(Target.Columns, Columns("A:A")) Is Nothing Then TextBox1.Value = Range("compteur").Cells.Count - 1 End If   End Sub

---

- Rien ne bouge dans la textbox qui reste à 0
- dans le menu déroulant des cellules de la colonne A, seul le contenu de la cellule sélectionnée apparait (sur le fichier test qui utilise la même formule, tout est visible)

J'ai essayé toutes sortes de petites modifs et rien n'y fait! Par exemple en modifiant la plage dynamique par =DECALER(Activités!$A$2;;;NBVAL(Activité!$A:$A)-1) que j'utilise dans les autres colonnes. Mais il y a 'la source est reconnue comme erronée. voulez-vous continuer' oui et bien sûr, ça bug...
Cela vient-il du fait que la saisie des données ne se fait directement dans les cellules mais via un formulaire (mais le résultat est le même sauf qu'il est automatisé, non?)
Donc , je nage mais pas dans le bonheur! :lol:

J'ai installé ton dernier code mais il bug tout de suite sur 'Private Sub Worksheet_Change(ByVal Target As Range)' en disant 'nom ambigu détecté worksheets_change'
J'ai effectivement une autre macro pour une mise en forme

Code:

---

1 2 3 4 5 6 7 8 9

'macro pour format majuscule des colonnes sélectionnées Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub 'évite que ça coince si on sélectionne plusieurs cellules i% = Target.Column If i = 2 Or i = 3 Or i = 4 Or i = 9 Or i = 10 Or i = 11 Or i = 12 Then Target.Value = StrConv(Target.Value, 1) End If   End Sub

---

donc je ne peux pas aller plus loin :cry:

Bonjour,

pas de panique, c'est normal tu ne peut avoir deux Sub qui portent le même nom dans le même module, pour tester, il suffit que tu désactives la première en la mettant en commentaire, une fois calé tu mettras l'ensemble du code qui va bien dans la même ;)

Pièce jointe 109488

cordialement,

Didier

Bon! Quand j'entre une donnée, dès que valide avec le bouton du USF (code ci-après) : apparition de 'Tuuuut!', le USF se ferme et compteur reste à 0. Si je clique sur la cellule A3 que je viens de remplir : 'Tuuuut!' apparait.

J'ai joins une version light et débadgée de mon projet pour que tu vois à quoi cela ressemble. Le USF formulaire de saisie est le 7.

Le code du bouton 'validation des données' duUSF formulaire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

'bouton pour valider les données du USF Private Sub validation_Click() Dim NLig As Long Dim strNumero As String   With Sheets("Activités")   strNumero = .Range("A1").Value & Label14.Caption If IsEmpty(.Range("A3")) Then .Range("A3").Value = strNumero Else .Range("A2").End(xlDown).Offset(1, 0).Value = strNumero 'ta ligne de code End If   Label14.Caption = Label14.Caption + 1   NLig = .Range("B1202").End(xlUp).Row + 1 'colonne de destination des données saisies dans le USF .Cells(NLig, 2).Value = ListBox1 .Cells(NLig, 4).Value = ListBox2 .Cells(NLig, 9).Value = ListBox3 .Cells(NLig, 12).Value = ListBox5 .Cells(NLig, 3).Value = TextBox1 .Cells(NLig, 5).Value = TextBox2 .Cells(NLig, 6).Value = TextBox3 .Cells(NLig, 7).Value = TextBox4 .Cells(NLig, 8).Value = TextBox5 .Cells(NLig, 10).Value = TextBox6 .Cells(NLig, 12).Value = TextBox7 .Cells(NLig, 13).Value = TextBox8   If OptionButton1.Value = True Then Cells(NLig, 11).Value = "OUI" Else Cells(NLig, 11).Value = "NON" End If Range("A3").Select   End With   'réinitialise le USF pour une nouvelle saisie Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = ""   ListBox1.SetFocus End Sub

---

A++
Marc

Bonjour,

Ton projet est assez riche, rendu à ce niveau, il vaudrait mieux que tu passes un peu de temps sur les bases à acquérir, tu serais gagnant par rapport au temps passé à galérer ;)

Déjà, comme signalé tu devrais employer systématiquement Option Explicit pour obliger la déclarations des variables et ne pas le désactiver quand in t'ennuie...

Ton code paraît un assemblage de choses récupérées en partie, pour ne pas galérer à les adapter, il faudrait que tu puisses les comprendre.
Je te conseille la lecture des ces excellents Tutos, valeur ajoutée = garantie.

Programmer efficacement avec Excel en VBA http://bidou.developpez.com/tutoriels/ExcelVBA/

Support de cours complet pour le VBA d'Excel http://bidou.developpez.com/article/VBA/
et les autres tutos dispos sur DVP sur le VBA Excel selon les thèmes visés.

Le code que je t'ai donné répondait à la question initiale et fonctionne, pour aller plus loin, voir ce qui est écrit ci-dessus.

Bon courage,
cordialement,

Didier

merci ormonth, effectivement il y a un moment où il faut passer du bricolage d'amateur à la conception éclairée. :ccool:

Merci pour ton aide et les liens
A+
Marc