N = "N°" & Compteur de lignes

Regueiro

XLDnaute Impliqué
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

XLDnaute Barbatruc
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

XLDnaute Impliqué
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+
 

Discussions similaires

Statistiques des forums

Discussions
312 947
Messages
2 093 840
Membres
105 851
dernier inscrit
aviato