N° de ligne

[gds35]

Mes AMIS du Forum Bonjours et Bon Dimanche ,

1°: Dans mon code VBA , je cherche à afficher les N° de ligne
Comment faire ???
2°/ Maintenant que mon projet est au point , je cherche à le compiler
et la aussi Comment Faire ???

Merci de votre aide . Cordialement GDS35

 

[Excel-lent]

Re : N° de ligne

Bonjour GDS35,

je cherche à afficher les N° de ligne

Qu'entends tu par n° de ligne???

* Le numéro de la ligne de la cellule ... ?

Range("A20") = ActiveCell[COLOR="Blue"][B].Row[/B][/COLOR]
Range("A20") = Range("B15").[COLOR="Blue"][B]Row[/B][/COLOR]

* Numéroté de 1 à ... chaque ligne de ton code VBA?
A la fin de chaque ligne apostrophe simple + numéro de ta ligne
Exemple :

Sub NumerotationFactures()                      [COLOR="Green"][B]'1[/B][/COLOR]
' Macro enregistré par Excel-lent le 12/09/07

Dim NumeroFact As Integer                        [COLOR="Green"][B]'2[/B][/COLOR]


    NumeroFact = Sheets("Feuil1").Range("A1")    [COLOR="Green"][B]'3[/B][/COLOR]

    
    For i = 2 To Worksheets.Count                [COLOR="Green"][B]'4[/B][/COLOR]

          NumeroFact = NumeroFact + 1            [COLOR="Green"][B]'5[/B][/COLOR]

          Worksheets(i).Range("A1") = NumeroFact  [COLOR="Green"][B]'6[/B][/COLOR]

    Next i                                        [COLOR="Green"][B]'7[/B][/COLOR]


End Sub                                          [COLOR="Green"][B]'8[/B][/COLOR]

je cherche à le compiler

Qu'entends-tu par compilé???

Tu parles du code VBA?
-> Rendre ton code plus clair?
-> Le rendre plus court (ou détriment de la clarté)?

Tu parles du fichier en lui même?

Bon dimanche

 

[gds35]

Re : N° de ligne

Salut EXCEL Lent , non je voudrais qu'automatiquement j'ai comme vu dans certain codes....
1. Range("A20") = ActiveCell.Row
2 .Range("A20") = Range("B15").Row
En fin de compte c'est la numérotation des lignes de code....
Voila . Merci Cordialement GDS35

 

[jeanpierre]

Re : N° de ligne

Bonjour gds35, Excel-lent,

Cela n'existe pas sous VBA, contrairement aux langages Basic et autres.

Par contre, tu as l'info.dans la barre d'outils Standard, à droite du point d'interrogation qui te donne la position du curseur.

Si j'ai bien compris.

Bon dimanche.

Jean-Pierre

 

[skoobi]

Re : N° de ligne

Bonjour tout le monde,

Salut EXCEL Lent , non je voudrais qu'automatiquement j'ai comme vu dans certain codes....
1. Range("A20") = ActiveCell.Row
2 .Range("A20") = Range("B15").Row
En fin de compte c'est la numérotation des lignes de code....
Voila . Merci Cordialement GDS35

Pour cela il faut que tu installes MZ TOOLS, un utilitaire pour VBA qui fait ça et bien d'autre chose encore.
Bon dimanche.

 

[Fo_rum]

Re : N° de ligne

Salut

et avec un code* du genre :

Sub numero()
Dim n As Byte
1:   For n = 1 To 36
2:       If n Mod 2 = 0 Then GoTo 4
3:       Cells(n, 2) = n
4:   Next
End Sub

Il permet de n'écrire que les nombres impaires.
* Ce n'est qu'un exemple de la "numérotation" des lignes !
Ne pas me répondre que le code suivante le fait aussi !

Sub numero()
Dim n As Byte
  For n = 1 To 36
    If n Mod 2 = 1 Then Cells(n, 2) = n
  Next
End Sub

 

[gds35]

Re : N° de ligne

Et bien merci a tous je vais tenter de mettre en place cela , Bonne semaine
Cordialement GDS35