Envoyer le nb de ligne d'une colonne

bonjours,

je voudrais envoyer le nombre de ligne remplie pour la colonne F puis envoyer ce résultat dans E1.

En premier lieux je fais une operation via une macro , alors je voudrais rajouter à la fin de mon code ce noueau morceau de code.

Quel est le code svp.

Idée:

Sub mon_autre_macro ()  ' j'ai une macro qui marche et je voudrais y ajouter un calcul du nb de cellule pleinne pour la colonne F et envoyer ce résultat tout en dernier du code de monAutreMacro

        Dim RangeF As Range  ' je veux connaitre le nb de ligne dans F donc je la déclare

E1 = ??.Value ' je renvoie à E1 le nb du nombre de ligne pleine dans F

End Sub

merci

ps: j'éspere que c'est compatible avec monAutreMacro

Bonjour

Pas très claire ta demande

Essayes

Sub test()
  Range("E1") = Application.CountA(Columns("F"))
End Sub

Merci,

sa ne comptabilise pas le bon resultat . E1 est toujours égale à 0.

voici le code que je souhaite justement modifier pour conter les résultat,

au lieux de E1 c'est A1 qu'il faut conter les lignes.

    Sub permuta()
        Dim RangeA As Range, RangeB As Range, RangeC As Range
        Dim Ca As Range, Cb As Range, Cc As Range
        Dim i As Long

        Set RangeA = ActiveSheet.Range("A1", "A3")
        Set RangeB = ActiveSheet.Range("B1", "B3")
        Set RangeC = ActiveSheet.Range("C1", "C3")
        i = 0
        For Each Ca In RangeA
            For Each Cb In RangeB    '
               For Each Cc In RangeC
                    Sheets("Feuil2").Range("A1").Offset(i, 0) = "'" & Ca.Value & Cb.Value & Cc.Value  'je veux conter les ligne de la colonne A1 juste aprés la fin de ces boucles. dois-je créer un code à part ou est-ce que je peus inserer quelque chose dans ce code ?
                    i = i + 1
                Next Cc
            Next Cb
        Next Ca

    End Sub

jai attacher le code à un bouton et sa fonctionne.

Si tu sais comment le faire sans bouton ( on associant les deux codes) sa serrait intéressant

Bonjour

Quelle est la bonne réponse

jack2.0 a écrit :

sa ne comptabilise pas le bon resultat . E1 est toujours égale à 0.

jack2.0 a écrit :

jai attacher le code à un bouton et sa fonctionne.

jack2.0 a écrit :

Si tu sais comment le faire sans bouton

Tu peux y ajouter un raccourci clavier

Ne connaissant pas le contexte je ne sais pas si l'on peut envisager une solution automatique

Il faudrait une copie anonymisée de ton fichier ainsi que le mode d'emploi

Bonjour

Se n'est pas claire désolé

Je retente une explication:

Au départ j'ai un code Sub permuta()

se code s'occupe de réaliser une concaquénation et renvoie les résultats dans une colonnes.

A ce moment (après exécution de Sub permuta() ), je me retrouve avec une colonne qui a reçu des nouvelle données et dont je n'est aucune idée du nombre de ligne qui a été rempli .

Alors pour connaître le bon nombre de cellule dans la Calonne j'ai donc dû rajouter une seconde macro avec un nouveau bouton (avec le code que tu ma proposer et qui a fonctionner).

Bon maintenant je me disais que sa serrait intéressant de tout faire d'un coup d'un bouton.

Je crois que c'est possibles d'affecter 2 macros a un seul bouton (je vais essayer sa )

buton command activX

permut()

Test()

Sinon se n'est pas important .

Ps: dans ce cas là est ce qu'il suffit de nommer les deux macro séparés par un espaces seulement (quelle est la bonne syntaxte pour faire références a 2 macro en même temps) ?

Bonsoir

Dans la cellule E1 de la page "Feuil2" tu auras le nombre de ligne remplie dans la colonne A

Sub permuta()
Dim RangeA As Range, RangeB As Range, RangeC As Range
Dim Ca As Range, Cb As Range, Cc As Range
Dim i As Long

  Set RangeA = ActiveSheet.Range("A1", "A3")
  Set RangeB = ActiveSheet.Range("B1", "B3")
  Set RangeC = ActiveSheet.Range("C1", "C3")
  i = 0
  For Each Ca In RangeA
      For Each Cb In RangeB    '
        For Each Cc In RangeC
              Sheets("Feuil2").Range("A1").Offset(i, 0) = "'" & Ca.Value & Cb.Value & Cc.Value
             i = i + 1
          Next Cc
      Next Cb
  Next Ca
  Sheets("Feuil2").Range("E1") = Application.CountA(Sheets("Feuil2").Columns(1))
End Sub

Salut et merci

Que signifie le (1) a la fin?

Sinon a par sa c'est très bien

Bonjour

Que signifie ?

jack2.0 a écrit :

Sinon a par sa c'est très bien

Ce (1) te provoque une erreur ?

Sinon c'est le numéro de colonne, on pourrait marquer Columns("A")