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.
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.
A+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