Bonjour
J'ai un tableau A3:P500
Je souhaite avoir dans la colonne A à partir de A3 avoir les chiffres de 1 à
la taille correspondant au NBVAL de la colonne B3:B500
Exemple : si NBVAL B3:B500 = 100 alors les chiffres de A3:A102 1,2,3,4 etc.
Je vous remercie
Didier
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
Trirème
Bonjour Didier, En VBA je suppose ? Ceci te convient-il ?
Sub NumeroterSequence() Increment = 0 ' Valeur du compteur Nblignes = [=COUNTA(B3:B500)] ' Nombre de valeurs dans la plage concernée Range("A3:A500").Select ' Sélection et effacement de la zone à numéroter Selection.Clear For Each c In Selection If Nblignes > 0 Then Increment = Increment + 1 c.Value = Increment Nblignes = Nblignes - 1 Else Exit For ' Sortie prématurée si toutes les lignes ne sont pas renseignées End If Next Range("A3").Select End Sub
Cordialement, Trirème
Bonjour J'ai un tableau A3:P500 Je souhaite avoir dans la colonne A à partir de A3 avoir les chiffres de 1 à la taille correspondant au NBVAL de la colonne B3:B500 Exemple : si NBVAL B3:B500 = 100 alors les chiffres de A3:A102 1,2,3,4 etc. Je vous remercie Didier
Bonjour Didier,
En VBA je suppose ?
Ceci te convient-il ?
Sub NumeroterSequence()
Increment = 0 ' Valeur du compteur
Nblignes = [=COUNTA(B3:B500)] ' Nombre de valeurs dans la plage concernée
Range("A3:A500").Select ' Sélection et effacement de la zone à numéroter
Selection.Clear
For Each c In Selection
If Nblignes > 0 Then
Increment = Increment + 1
c.Value = Increment
Nblignes = Nblignes - 1
Else
Exit For ' Sortie prématurée si toutes les lignes ne sont
pas renseignées
End If
Next
Range("A3").Select
End Sub
Cordialement,
Trirème
Bonjour
J'ai un tableau A3:P500
Je souhaite avoir dans la colonne A à partir de A3 avoir les chiffres de 1 à
la taille correspondant au NBVAL de la colonne B3:B500
Exemple : si NBVAL B3:B500 = 100 alors les chiffres de A3:A102 1,2,3,4 etc.
Je vous remercie
Didier
Bonjour Didier, En VBA je suppose ? Ceci te convient-il ?
Sub NumeroterSequence() Increment = 0 ' Valeur du compteur Nblignes = [=COUNTA(B3:B500)] ' Nombre de valeurs dans la plage concernée Range("A3:A500").Select ' Sélection et effacement de la zone à numéroter Selection.Clear For Each c In Selection If Nblignes > 0 Then Increment = Increment + 1 c.Value = Increment Nblignes = Nblignes - 1 Else Exit For ' Sortie prématurée si toutes les lignes ne sont pas renseignées End If Next Range("A3").Select End Sub
Cordialement, Trirème
Bonjour J'ai un tableau A3:P500 Je souhaite avoir dans la colonne A à partir de A3 avoir les chiffres de 1 à la taille correspondant au NBVAL de la colonne B3:B500 Exemple : si NBVAL B3:B500 = 100 alors les chiffres de A3:A102 1,2,3,4 etc. Je vous remercie Didier
isabelle
bonjour Didier,
Sub Macro1() x = Application.CountA(Range("B3:B500")) + 2 Range("A3") = 1 Range("A3:A" & x).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1 End Sub
isabelle
Bonjour J'ai un tableau A3:P500 Je souhaite avoir dans la colonne A à partir de A3 avoir les chiffres de 1 à la taille correspondant au NBVAL de la colonne B3:B500 Exemple : si NBVAL B3:B500 = 100 alors les chiffres de A3:A102 1,2,3,4 etc. Je vous remercie Didier
bonjour Didier,
Sub Macro1()
x = Application.CountA(Range("B3:B500")) + 2
Range("A3") = 1
Range("A3:A" & x).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1
End Sub
isabelle
Bonjour
J'ai un tableau A3:P500
Je souhaite avoir dans la colonne A à partir de A3 avoir les chiffres de 1 à
la taille correspondant au NBVAL de la colonne B3:B500
Exemple : si NBVAL B3:B500 = 100 alors les chiffres de A3:A102 1,2,3,4 etc.
Je vous remercie
Didier
Sub Macro1() x = Application.CountA(Range("B3:B500")) + 2 Range("A3") = 1 Range("A3:A" & x).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1 End Sub
isabelle
Bonjour J'ai un tableau A3:P500 Je souhaite avoir dans la colonne A à partir de A3 avoir les chiffres de 1 à la taille correspondant au NBVAL de la colonne B3:B500 Exemple : si NBVAL B3:B500 = 100 alors les chiffres de A3:A102 1,2,3,4 etc. Je vous remercie Didier
Ardus Petus
En A3, puis recopie vers le bas: =SI(LIGNE()-2<=NBVAL($B$3:$B$500);LIGNE()-2;"")
Cordialement, -- AP
"Didier Novarin" a écrit dans le message de news:%
Bonjour J'ai un tableau A3:P500 Je souhaite avoir dans la colonne A à partir de A3 avoir les chiffres de 1 à
la taille correspondant au NBVAL de la colonne B3:B500 Exemple : si NBVAL B3:B500 = 100 alors les chiffres de A3:A102 1,2,3,4 etc.
Je vous remercie Didier
En A3, puis recopie vers le bas:
=SI(LIGNE()-2<=NBVAL($B$3:$B$500);LIGNE()-2;"")
Cordialement,
--
AP
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:%23FmiFdIZGHA.4688@TK2MSFTNGP04.phx.gbl...
Bonjour
J'ai un tableau A3:P500
Je souhaite avoir dans la colonne A à partir de A3 avoir les chiffres de 1
à
la taille correspondant au NBVAL de la colonne B3:B500
Exemple : si NBVAL B3:B500 = 100 alors les chiffres de A3:A102 1,2,3,4
etc.
