Bonsoir à tous,
Dans la colonne A j'ai des valeurs ou des cellules vides.
Je voudrais numéroter les plages de cellules vides de la colonne A du haut
vers le bas en reprenant à 0 à chaque fois qu'une cellule pleine est
rencontrée.
La première cellule à prendre en compte et A5 la dernière est Ax où x est
la dernière cellule contenant une valeur dans la colonne F
Nota: la numérotation peut être faite soit directement dans les cellules
vides de la colonne A soit dans la colonne B.
Exemple
A5 plein ne rien faire
A6 vide mettre 1
A7 Vide mettre 2
A8 vide mettre 3
A9 plein ne rien faire
A10 vide mettre 1
A11 plein ne rien faire
A12 vide mettre 1
A13 Vide mettre 2
A14 vide mettre 3
A15 vide mettre 4
A16 plein ne rien faire
A17 plein ne rien faire
A18 plein ne rien faire
A19 vide mettre 1
A20 Vide mettre 2
A21 plein ne rien faire
Etc...jusqu'à A500 si la dernière valeur de la colonne F est sur la ligne
500
Merci pour votre aide
Domi
Bonsoir à tous,
Dans la colonne A j'ai des valeurs ou des cellules vides.
Je voudrais numéroter les plages de cellules vides de la colonne A du haut
vers le bas en reprenant à 0 à chaque fois qu'une cellule pleine est
rencontrée.
La première cellule à prendre en compte et A5 la dernière est Ax où x est
la dernière cellule contenant une valeur dans la colonne F
Nota: la numérotation peut être faite soit directement dans les cellules
vides de la colonne A soit dans la colonne B.
Exemple
A5 plein ne rien faire
A6 vide mettre 1
A7 Vide mettre 2
A8 vide mettre 3
A9 plein ne rien faire
A10 vide mettre 1
A11 plein ne rien faire
A12 vide mettre 1
A13 Vide mettre 2
A14 vide mettre 3
A15 vide mettre 4
A16 plein ne rien faire
A17 plein ne rien faire
A18 plein ne rien faire
A19 vide mettre 1
A20 Vide mettre 2
A21 plein ne rien faire
Etc...jusqu'à A500 si la dernière valeur de la colonne F est sur la ligne
500
Merci pour votre aide
Domi
Bonsoir à tous,
Dans la colonne A j'ai des valeurs ou des cellules vides.
Je voudrais numéroter les plages de cellules vides de la colonne A du haut
vers le bas en reprenant à 0 à chaque fois qu'une cellule pleine est
rencontrée.
La première cellule à prendre en compte et A5 la dernière est Ax où x est
la dernière cellule contenant une valeur dans la colonne F
Nota: la numérotation peut être faite soit directement dans les cellules
vides de la colonne A soit dans la colonne B.
Exemple
A5 plein ne rien faire
A6 vide mettre 1
A7 Vide mettre 2
A8 vide mettre 3
A9 plein ne rien faire
A10 vide mettre 1
A11 plein ne rien faire
A12 vide mettre 1
A13 Vide mettre 2
A14 vide mettre 3
A15 vide mettre 4
A16 plein ne rien faire
A17 plein ne rien faire
A18 plein ne rien faire
A19 vide mettre 1
A20 Vide mettre 2
A21 plein ne rien faire
Etc...jusqu'à A500 si la dernière valeur de la colonne F est sur la ligne
500
Merci pour votre aide
Domi
Bonsoir,
Le code ci dessous, à coller dans un module ordinaire, numérote de manière
incrémentée les cellules des différentes plages vides de la colonne A
situées entre la ligne 5 et la dernière cellule renseignée de ladite
colonne :
Sub numplag()
'MPFE le 07/02/2008
Dim deRLig As Long, i As Long, cPt As Long
deRLig = Range("a6500").End(xlUp).Row
cPt = 1
For i = 5 To deRLig
If Cells(i, 1).Value = "" Then
Cells(i, 1).Value = cPt
cPt = cPt + 1
Else
cPt = 1
End If
Next i
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Domi" a écrit dans le message de
news:Bonsoir à tous,
Dans la colonne A j'ai des valeurs ou des cellules vides.
Je voudrais numéroter les plages de cellules vides de la colonne A du
haut vers le bas en reprenant à 0 à chaque fois qu'une cellule pleine est
rencontrée.
La première cellule à prendre en compte et A5 la dernière est Ax où x est
la dernière cellule contenant une valeur dans la colonne F
Nota: la numérotation peut être faite soit directement dans les cellules
vides de la colonne A soit dans la colonne B.
Exemple
A5 plein ne rien faire
A6 vide mettre 1
A7 Vide mettre 2
A8 vide mettre 3
A9 plein ne rien faire
A10 vide mettre 1
A11 plein ne rien faire
A12 vide mettre 1
A13 Vide mettre 2
A14 vide mettre 3
A15 vide mettre 4
A16 plein ne rien faire
A17 plein ne rien faire
A18 plein ne rien faire
A19 vide mettre 1
A20 Vide mettre 2
A21 plein ne rien faire
Etc...jusqu'à A500 si la dernière valeur de la colonne F est sur la ligne
500
Merci pour votre aide
Domi
Bonsoir,
Le code ci dessous, à coller dans un module ordinaire, numérote de manière
incrémentée les cellules des différentes plages vides de la colonne A
situées entre la ligne 5 et la dernière cellule renseignée de ladite
colonne :
Sub numplag()
'MPFE le 07/02/2008
Dim deRLig As Long, i As Long, cPt As Long
deRLig = Range("a6500").End(xlUp).Row
cPt = 1
For i = 5 To deRLig
If Cells(i, 1).Value = "" Then
Cells(i, 1).Value = cPt
cPt = cPt + 1
Else
cPt = 1
End If
Next i
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Domi" <scrat83@free.fr> a écrit dans le message de
news:O1bqEIbaIHA.1164@TK2MSFTNGP02.phx.gbl...
Bonsoir à tous,
Dans la colonne A j'ai des valeurs ou des cellules vides.
Je voudrais numéroter les plages de cellules vides de la colonne A du
haut vers le bas en reprenant à 0 à chaque fois qu'une cellule pleine est
rencontrée.
La première cellule à prendre en compte et A5 la dernière est Ax où x est
la dernière cellule contenant une valeur dans la colonne F
Nota: la numérotation peut être faite soit directement dans les cellules
vides de la colonne A soit dans la colonne B.
Exemple
A5 plein ne rien faire
A6 vide mettre 1
A7 Vide mettre 2
A8 vide mettre 3
A9 plein ne rien faire
A10 vide mettre 1
A11 plein ne rien faire
A12 vide mettre 1
A13 Vide mettre 2
A14 vide mettre 3
A15 vide mettre 4
A16 plein ne rien faire
A17 plein ne rien faire
A18 plein ne rien faire
A19 vide mettre 1
A20 Vide mettre 2
A21 plein ne rien faire
Etc...jusqu'à A500 si la dernière valeur de la colonne F est sur la ligne
500
Merci pour votre aide
Domi
Bonsoir,
Le code ci dessous, à coller dans un module ordinaire, numérote de manière
incrémentée les cellules des différentes plages vides de la colonne A
situées entre la ligne 5 et la dernière cellule renseignée de ladite
colonne :
Sub numplag()
'MPFE le 07/02/2008
Dim deRLig As Long, i As Long, cPt As Long
deRLig = Range("a6500").End(xlUp).Row
cPt = 1
For i = 5 To deRLig
If Cells(i, 1).Value = "" Then
Cells(i, 1).Value = cPt
cPt = cPt + 1
Else
cPt = 1
End If
Next i
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Domi" a écrit dans le message de
news:Bonsoir à tous,
Dans la colonne A j'ai des valeurs ou des cellules vides.
Je voudrais numéroter les plages de cellules vides de la colonne A du
haut vers le bas en reprenant à 0 à chaque fois qu'une cellule pleine est
rencontrée.
La première cellule à prendre en compte et A5 la dernière est Ax où x est
la dernière cellule contenant une valeur dans la colonne F
Nota: la numérotation peut être faite soit directement dans les cellules
vides de la colonne A soit dans la colonne B.
Exemple
A5 plein ne rien faire
A6 vide mettre 1
A7 Vide mettre 2
A8 vide mettre 3
A9 plein ne rien faire
A10 vide mettre 1
A11 plein ne rien faire
A12 vide mettre 1
A13 Vide mettre 2
A14 vide mettre 3
A15 vide mettre 4
A16 plein ne rien faire
A17 plein ne rien faire
A18 plein ne rien faire
A19 vide mettre 1
A20 Vide mettre 2
A21 plein ne rien faire
Etc...jusqu'à A500 si la dernière valeur de la colonne F est sur la ligne
500
Merci pour votre aide
Domi
Au temps pour moi, à corriger ainsi :
Sub numplag()
'MPFE le 07/02/2008
Dim deRLig As Long, i As Long, cPt As Long
deRLig = Range("F6500").End(xlUp).Row
cPt = 1
For i = 5 To deRLig
If Cells(i, 6).Value = "" Then
Cells(i, 1).Value = cPt
cPt = cPt + 1
Else
cPt = 1
End If
Next i
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:Bonsoir,
Le code ci dessous, à coller dans un module ordinaire, numérote de
manière incrémentée les cellules des différentes plages vides de la
colonne A situées entre la ligne 5 et la dernière cellule renseignée de
ladite colonne :
Sub numplag()
'MPFE le 07/02/2008
Dim deRLig As Long, i As Long, cPt As Long
deRLig = Range("a6500").End(xlUp).Row
cPt = 1
For i = 5 To deRLig
If Cells(i, 1).Value = "" Then
Cells(i, 1).Value = cPt
cPt = cPt + 1
Else
cPt = 1
End If
Next i
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Domi" a écrit dans le message de
news:Bonsoir à tous,
Dans la colonne A j'ai des valeurs ou des cellules vides.
Je voudrais numéroter les plages de cellules vides de la colonne A du
haut vers le bas en reprenant à 0 à chaque fois qu'une cellule pleine
est rencontrée.
La première cellule à prendre en compte et A5 la dernière est Ax où x
est la dernière cellule contenant une valeur dans la colonne F
Nota: la numérotation peut être faite soit directement dans les cellules
vides de la colonne A soit dans la colonne B.
Exemple
A5 plein ne rien faire
A6 vide mettre 1
A7 Vide mettre 2
A8 vide mettre 3
A9 plein ne rien faire
A10 vide mettre 1
A11 plein ne rien faire
A12 vide mettre 1
A13 Vide mettre 2
A14 vide mettre 3
A15 vide mettre 4
A16 plein ne rien faire
A17 plein ne rien faire
A18 plein ne rien faire
A19 vide mettre 1
A20 Vide mettre 2
A21 plein ne rien faire
Etc...jusqu'à A500 si la dernière valeur de la colonne F est sur la
ligne 500
Merci pour votre aide
Domi
Au temps pour moi, à corriger ainsi :
Sub numplag()
'MPFE le 07/02/2008
Dim deRLig As Long, i As Long, cPt As Long
deRLig = Range("F6500").End(xlUp).Row
cPt = 1
For i = 5 To deRLig
If Cells(i, 6).Value = "" Then
Cells(i, 1).Value = cPt
cPt = cPt + 1
Else
cPt = 1
End If
Next i
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:eVgUcWbaIHA.4172@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Le code ci dessous, à coller dans un module ordinaire, numérote de
manière incrémentée les cellules des différentes plages vides de la
colonne A situées entre la ligne 5 et la dernière cellule renseignée de
ladite colonne :
Sub numplag()
'MPFE le 07/02/2008
Dim deRLig As Long, i As Long, cPt As Long
deRLig = Range("a6500").End(xlUp).Row
cPt = 1
For i = 5 To deRLig
If Cells(i, 1).Value = "" Then
Cells(i, 1).Value = cPt
cPt = cPt + 1
Else
cPt = 1
End If
Next i
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Domi" <scrat83@free.fr> a écrit dans le message de
news:O1bqEIbaIHA.1164@TK2MSFTNGP02.phx.gbl...
Bonsoir à tous,
Dans la colonne A j'ai des valeurs ou des cellules vides.
Je voudrais numéroter les plages de cellules vides de la colonne A du
haut vers le bas en reprenant à 0 à chaque fois qu'une cellule pleine
est rencontrée.
La première cellule à prendre en compte et A5 la dernière est Ax où x
est la dernière cellule contenant une valeur dans la colonne F
Nota: la numérotation peut être faite soit directement dans les cellules
vides de la colonne A soit dans la colonne B.
Exemple
A5 plein ne rien faire
A6 vide mettre 1
A7 Vide mettre 2
A8 vide mettre 3
A9 plein ne rien faire
A10 vide mettre 1
A11 plein ne rien faire
A12 vide mettre 1
A13 Vide mettre 2
A14 vide mettre 3
A15 vide mettre 4
A16 plein ne rien faire
A17 plein ne rien faire
A18 plein ne rien faire
A19 vide mettre 1
A20 Vide mettre 2
A21 plein ne rien faire
Etc...jusqu'à A500 si la dernière valeur de la colonne F est sur la
ligne 500
Merci pour votre aide
Domi
Au temps pour moi, à corriger ainsi :
Sub numplag()
'MPFE le 07/02/2008
Dim deRLig As Long, i As Long, cPt As Long
deRLig = Range("F6500").End(xlUp).Row
cPt = 1
For i = 5 To deRLig
If Cells(i, 6).Value = "" Then
Cells(i, 1).Value = cPt
cPt = cPt + 1
Else
cPt = 1
End If
Next i
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:Bonsoir,
Le code ci dessous, à coller dans un module ordinaire, numérote de
manière incrémentée les cellules des différentes plages vides de la
colonne A situées entre la ligne 5 et la dernière cellule renseignée de
ladite colonne :
Sub numplag()
'MPFE le 07/02/2008
Dim deRLig As Long, i As Long, cPt As Long
deRLig = Range("a6500").End(xlUp).Row
cPt = 1
For i = 5 To deRLig
If Cells(i, 1).Value = "" Then
Cells(i, 1).Value = cPt
cPt = cPt + 1
Else
cPt = 1
End If
Next i
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Domi" a écrit dans le message de
news:Bonsoir à tous,
Dans la colonne A j'ai des valeurs ou des cellules vides.
Je voudrais numéroter les plages de cellules vides de la colonne A du
haut vers le bas en reprenant à 0 à chaque fois qu'une cellule pleine
est rencontrée.
La première cellule à prendre en compte et A5 la dernière est Ax où x
est la dernière cellule contenant une valeur dans la colonne F
Nota: la numérotation peut être faite soit directement dans les cellules
vides de la colonne A soit dans la colonne B.
Exemple
A5 plein ne rien faire
A6 vide mettre 1
A7 Vide mettre 2
A8 vide mettre 3
A9 plein ne rien faire
A10 vide mettre 1
A11 plein ne rien faire
A12 vide mettre 1
A13 Vide mettre 2
A14 vide mettre 3
A15 vide mettre 4
A16 plein ne rien faire
A17 plein ne rien faire
A18 plein ne rien faire
A19 vide mettre 1
A20 Vide mettre 2
A21 plein ne rien faire
Etc...jusqu'à A500 si la dernière valeur de la colonne F est sur la
ligne 500
Merci pour votre aide
Domi