je construis un fichier budget. Chaque ligne représente un item, poste
budgétaire, somme d'argent, etc. J'aimerais que chacune des lignes se voit
assigner un numéro de référence séquentiel, mais seulement si la ligne est
utilisé.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LeSteph
Bonsoir,
Exemple en formule pour numérotation en A par rapport à B (contenant un compte) '******** Saisie en A2 à recopier vers le bas de ligne 2 à ligne 30 (par exemple =si(b2<>"";max(A$1:A1)+1;"") '********** idem à adapter en VBA: '****** Sub Metlecompte() Dim c Dim compteur As Integer
For Each c In Range("B2:B30").Cells If c <> "" Then compteur = compteur + 1 c.Offset(0, -1) = compteur Else c.Offset(0, -1) = "" End If Next
End Sub '**** leSteph "Pantoufle" a écrit dans le message de news:%cLZc.128146$
je construis un fichier budget. Chaque ligne représente un item, poste budgétaire, somme d'argent, etc. J'aimerais que chacune des lignes se voit
assigner un numéro de référence séquentiel, mais seulement si la ligne est utilisé.
Merci de vos conseils, Pantoufle
Bonsoir,
Exemple en formule pour numérotation en A par rapport à B (contenant un
compte)
'********
Saisie en A2 à recopier vers le bas de ligne 2 à ligne 30 (par exemple
=si(b2<>"";max(A$1:A1)+1;"")
'**********
idem à adapter en VBA:
'******
Sub Metlecompte()
Dim c
Dim compteur As Integer
For Each c In Range("B2:B30").Cells
If c <> "" Then
compteur = compteur + 1
c.Offset(0, -1) = compteur
Else
c.Offset(0, -1) = ""
End If
Next
End Sub
'****
leSteph
"Pantoufle" <cogiscene@hotmail.com> a écrit dans le message de
news:%cLZc.128146$pTn.16836@news01.bloor.is.net.cable.rogers.com...
je construis un fichier budget. Chaque ligne représente un item, poste
budgétaire, somme d'argent, etc. J'aimerais que chacune des lignes se
voit
assigner un numéro de référence séquentiel, mais seulement si la ligne est
utilisé.
Exemple en formule pour numérotation en A par rapport à B (contenant un compte) '******** Saisie en A2 à recopier vers le bas de ligne 2 à ligne 30 (par exemple =si(b2<>"";max(A$1:A1)+1;"") '********** idem à adapter en VBA: '****** Sub Metlecompte() Dim c Dim compteur As Integer
For Each c In Range("B2:B30").Cells If c <> "" Then compteur = compteur + 1 c.Offset(0, -1) = compteur Else c.Offset(0, -1) = "" End If Next
End Sub '**** leSteph "Pantoufle" a écrit dans le message de news:%cLZc.128146$
je construis un fichier budget. Chaque ligne représente un item, poste budgétaire, somme d'argent, etc. J'aimerais que chacune des lignes se voit
assigner un numéro de référence séquentiel, mais seulement si la ligne est utilisé.
