N = "N°" & Compteur de lignes

Regueiro · 2 Janvier 2013

Bonsoir le Forum et encore Meilleurs Voeux pour 2013.
Cette macro me permets de selectionner un range manuellement.
Mais j'ai un problème pour incrémenter les N°.
Exemple : je selectionne C5:C10 ( 6 lignes )
Je colorie cette Sélection en jaune.
Décalage de 2 colonnes à gauche.
Inscrire le N° des lignes :
N°1
N°2 jusqu'à N°6
Actuellement la macro me mets uniquement N°6 sur les 6 lignes.
Je bloque sur ce code.
Merci de votre Aide.
Voici le Code.

Sub Capture_Saisie()
Dim nbLig As Variant
Dim N
Dim Compteur As Byte

With Selection
MsgBox Selection.Address
nbLig = Selection.Rows.Count
MsgBox "Nombre de lignes :" & nbLig & ""
Compteur = nbLig
For Each N In Selection
Compteur = Compteur
N = "N°" & Compteur

.Cells.Offset(0, -2).Resize(nbLig, 1) = N
Next N
With Selection.Interior
.ColorIndex = 6
End With
'Next i

End With
End Sub

A+

vgendron · 2 Janvier 2013

Re : N = "N°" & Compteur de lignes

Hello

comme ceci?

Code:

Sub Capture_Saisie()
Dim nbLig As Variant
Dim N
Dim Compteur As Byte

With Selection
    MsgBox Selection.Address
    nbLig = Selection.Rows.Count
    MsgBox "Nombre de lignes: " & nbLig
    Compteur = 1
    For Each N In Selection
        
        N.Offset(0, -2) = "N°" & Compteur
        Compteur = Compteur + 1
    Next N
    With Selection.Interior
        .ColorIndex = 6
    End With


End With
End Sub

Regueiro · 2 Janvier 2013

Re : N = "N°" & Compteur de lignes

Bonsoir Vgendron.
Je te remercie pour ton aide.
Je commençais à tourner en rond.
Voilà la code avec ta contribution ainsi que le coloriage 1 ligne sur 2

Sub Capture_Saisie()
Dim nbLig As Variant
Dim N
Dim Compteur As Byte

With Selection
MsgBox Selection.Address
nbLig = Selection.Rows.Count
MsgBox "Nombre de lignes :" & nbLig & ""
Compteur = 1
For Each N In Selection
If N.Row / 2 = Int(N.Row / 2) Then 'Coloriage 1 ligne sur 2
N.Offset(0, -2).Resize(1, 3).Interior.ColorIndex = 36
End If
N.Offset(0, -2) = "N° " & Compteur
N.Value = "Article N° " & Compteur
Compteur = Compteur + 1
Next N
End With
End Sub

Merci encore de ton Aide
A+

N = "N°" & Compteur de lignes

Regueiro

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

Regueiro

XLDnaute Impliqué

Discussions similaires