Je cherche à remplir dans une colonne les cellules vides par la valeur
precedente + 1
Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant vide
devient 8... jusqu'a B2000
J'ai utilisé l'enregistreur de macro --- Selection.AutoFill ,
Type:=xlFillDefault mais echec total
merci a vous pour votre aide
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
isabelle
bonjour Pierre,
Sub Macro1() Dim c As Range For Each c In Range("B5:B2000") If c = Empty Then Range(c.Address) = c.Offset(-1, 0) + 1 Next End Sub
isabelle
Le 2011-03-14 19:19, pierre a écrit :
Bonjour
Je cherche à remplir dans une colonne les cellules vides par la valeur precedente + 1 Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant vide devient 8... jusqu'a B2000 J'ai utilisé l'enregistreur de macro --- Selection.AutoFill , Type:=xlFillDefault mais echec total merci a vous pour votre aide
Pierre
bonjour Pierre,
Sub Macro1()
Dim c As Range
For Each c In Range("B5:B2000")
If c = Empty Then Range(c.Address) = c.Offset(-1, 0) + 1
Next
End Sub
isabelle
Le 2011-03-14 19:19, pierre a écrit :
Bonjour
Je cherche à remplir dans une colonne les cellules vides par la valeur
precedente + 1
Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant vide
devient 8... jusqu'a B2000
J'ai utilisé l'enregistreur de macro --- Selection.AutoFill ,
Type:=xlFillDefault mais echec total
merci a vous pour votre aide
Sub Macro1() Dim c As Range For Each c In Range("B5:B2000") If c = Empty Then Range(c.Address) = c.Offset(-1, 0) + 1 Next End Sub
isabelle
Le 2011-03-14 19:19, pierre a écrit :
Bonjour
Je cherche à remplir dans une colonne les cellules vides par la valeur precedente + 1 Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant vide devient 8... jusqu'a B2000 J'ai utilisé l'enregistreur de macro --- Selection.AutoFill , Type:=xlFillDefault mais echec total merci a vous pour votre aide
Pierre
pierre
Bonsoir Isabelle,
Super classe la macro.
merci
P.
"isabelle" a écrit dans le message de news: ilmjj9$nho$
bonjour Pierre,
Sub Macro1() Dim c As Range For Each c In Range("B5:B2000") If c = Empty Then Range(c.Address) = c.Offset(-1, 0) + 1 Next End Sub
isabelle
Le 2011-03-14 19:19, pierre a écrit :
Bonjour
Je cherche à remplir dans une colonne les cellules vides par la valeur precedente + 1 Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant vide devient 8... jusqu'a B2000 J'ai utilisé l'enregistreur de macro --- Selection.AutoFill , Type:=xlFillDefault mais echec total merci a vous pour votre aide
Pierre
Bonsoir Isabelle,
Super classe la macro.
merci
P.
"isabelle" <i@v.org> a écrit dans le message de news:
ilmjj9$nho$1@speranza.aioe.org...
bonjour Pierre,
Sub Macro1()
Dim c As Range
For Each c In Range("B5:B2000")
If c = Empty Then Range(c.Address) = c.Offset(-1, 0) + 1
Next
End Sub
isabelle
Le 2011-03-14 19:19, pierre a écrit :
Bonjour
Je cherche à remplir dans une colonne les cellules vides par la valeur
precedente + 1
Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant
vide
devient 8... jusqu'a B2000
J'ai utilisé l'enregistreur de macro --- Selection.AutoFill ,
Type:=xlFillDefault mais echec total
merci a vous pour votre aide
"isabelle" a écrit dans le message de news: ilmjj9$nho$
bonjour Pierre,
Sub Macro1() Dim c As Range For Each c In Range("B5:B2000") If c = Empty Then Range(c.Address) = c.Offset(-1, 0) + 1 Next End Sub
isabelle
Le 2011-03-14 19:19, pierre a écrit :
Bonjour
Je cherche à remplir dans une colonne les cellules vides par la valeur precedente + 1 Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant vide devient 8... jusqu'a B2000 J'ai utilisé l'enregistreur de macro --- Selection.AutoFill , Type:=xlFillDefault mais echec total merci a vous pour votre aide
Pierre
pierre
Bonsoir Isabelle
Est-il possible de modifier For Each c In Range("B5:B2000") pour partir toujours de B5 mais jusqu'a la derniere valeur utilisée du genre B999 ( derniere valeur ) donc B1000 et stop car absence de valeur après J'ai en colonne A1000 une valeur fixe ( et la derniere) si cela peut aider pour stopper la macro
merci Pierre
"pierre" a écrit dans le message de news: ilr8mc$fsh$
Bonsoir Isabelle,
Super classe la macro.
merci
P.
"isabelle" a écrit dans le message de news: ilmjj9$nho$
bonjour Pierre,
Sub Macro1() Dim c As Range For Each c In Range("B5:B2000") If c = Empty Then Range(c.Address) = c.Offset(-1, 0) + 1 Next End Sub
isabelle
Le 2011-03-14 19:19, pierre a écrit :
Bonjour
Je cherche à remplir dans une colonne les cellules vides par la valeur precedente + 1 Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant vide devient 8... jusqu'a B2000 J'ai utilisé l'enregistreur de macro --- Selection.AutoFill , Type:=xlFillDefault mais echec total merci a vous pour votre aide
Pierre
Bonsoir Isabelle
Est-il possible de modifier For Each c In Range("B5:B2000")
pour partir toujours de B5 mais jusqu'a la derniere valeur utilisée
du genre B999 ( derniere valeur ) donc B1000 et stop car absence
de valeur après
J'ai en colonne A1000 une valeur fixe ( et la derniere) si cela peut aider
pour stopper la macro
merci
Pierre
"pierre" <prtech@free.fr> a écrit dans le message de news:
ilr8mc$fsh$1@speranza.aioe.org...
Bonsoir Isabelle,
Super classe la macro.
merci
P.
"isabelle" <i@v.org> a écrit dans le message de news:
ilmjj9$nho$1@speranza.aioe.org...
bonjour Pierre,
Sub Macro1()
Dim c As Range
For Each c In Range("B5:B2000")
If c = Empty Then Range(c.Address) = c.Offset(-1, 0) + 1
Next
End Sub
isabelle
Le 2011-03-14 19:19, pierre a écrit :
Bonjour
Je cherche à remplir dans une colonne les cellules vides par la valeur
precedente + 1
Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant
vide
devient 8... jusqu'a B2000
J'ai utilisé l'enregistreur de macro --- Selection.AutoFill ,
Type:=xlFillDefault mais echec total
merci a vous pour votre aide
Est-il possible de modifier For Each c In Range("B5:B2000") pour partir toujours de B5 mais jusqu'a la derniere valeur utilisée du genre B999 ( derniere valeur ) donc B1000 et stop car absence de valeur après J'ai en colonne A1000 une valeur fixe ( et la derniere) si cela peut aider pour stopper la macro
merci Pierre
"pierre" a écrit dans le message de news: ilr8mc$fsh$
Bonsoir Isabelle,
Super classe la macro.
merci
P.
"isabelle" a écrit dans le message de news: ilmjj9$nho$
bonjour Pierre,
Sub Macro1() Dim c As Range For Each c In Range("B5:B2000") If c = Empty Then Range(c.Address) = c.Offset(-1, 0) + 1 Next End Sub
isabelle
Le 2011-03-14 19:19, pierre a écrit :
Bonjour
Je cherche à remplir dans une colonne les cellules vides par la valeur precedente + 1 Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant vide devient 8... jusqu'a B2000 J'ai utilisé l'enregistreur de macro --- Selection.AutoFill , Type:=xlFillDefault mais echec total merci a vous pour votre aide
Pierre
isabelle
bonjour Pierre,
oui, il faut remplacer la ligne
For Each c In Range("B5:B2000")
par
For Each c In Range("B5:B"& Range("B65536").End(xlUp).Row)
Est-il possible de modifier For Each c In Range("B5:B2000") pour partir toujours de B5 mais jusqu'a la derniere valeur utilisée du genre B999 ( derniere valeur ) donc B1000 et stop car absence de valeur après J'ai en colonne A1000 une valeur fixe ( et la derniere) si cela peut aider pour stopper la macro
merci Pierre
"pierre" a écrit dans le message de news: ilr8mc$fsh$
Bonsoir Isabelle,
Super classe la macro.
merci
P.
"isabelle" a écrit dans le message de news: ilmjj9$nho$
bonjour Pierre,
Sub Macro1() Dim c As Range For Each c In Range("B5:B2000") If c = Empty Then Range(c.Address) = c.Offset(-1, 0) + 1 Next End Sub
isabelle
Le 2011-03-14 19:19, pierre a écrit :
Bonjour
Je cherche à remplir dans une colonne les cellules vides par la valeur precedente + 1 Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant vide devient 8... jusqu'a B2000 J'ai utilisé l'enregistreur de macro --- Selection.AutoFill , Type:=xlFillDefault mais echec total merci a vous pour votre aide
Pierre
bonjour Pierre,
oui, il faut remplacer la ligne
For Each c In Range("B5:B2000")
par
For Each c In Range("B5:B"& Range("B65536").End(xlUp).Row)
Est-il possible de modifier For Each c In Range("B5:B2000")
pour partir toujours de B5 mais jusqu'a la derniere valeur utilisée
du genre B999 ( derniere valeur ) donc B1000 et stop car absence
de valeur après
J'ai en colonne A1000 une valeur fixe ( et la derniere) si cela peut aider
pour stopper la macro
merci
Pierre
"pierre"<prtech@free.fr> a écrit dans le message de news:
ilr8mc$fsh$1@speranza.aioe.org...
Bonsoir Isabelle,
Super classe la macro.
merci
P.
"isabelle"<i@v.org> a écrit dans le message de news:
ilmjj9$nho$1@speranza.aioe.org...
bonjour Pierre,
Sub Macro1()
Dim c As Range
For Each c In Range("B5:B2000")
If c = Empty Then Range(c.Address) = c.Offset(-1, 0) + 1
Next
End Sub
isabelle
Le 2011-03-14 19:19, pierre a écrit :
Bonjour
Je cherche à remplir dans une colonne les cellules vides par la valeur
precedente + 1
Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant
vide
devient 8... jusqu'a B2000
J'ai utilisé l'enregistreur de macro --- Selection.AutoFill ,
Type:=xlFillDefault mais echec total
merci a vous pour votre aide
Est-il possible de modifier For Each c In Range("B5:B2000") pour partir toujours de B5 mais jusqu'a la derniere valeur utilisée du genre B999 ( derniere valeur ) donc B1000 et stop car absence de valeur après J'ai en colonne A1000 une valeur fixe ( et la derniere) si cela peut aider pour stopper la macro
merci Pierre
"pierre" a écrit dans le message de news: ilr8mc$fsh$
Bonsoir Isabelle,
Super classe la macro.
merci
P.
"isabelle" a écrit dans le message de news: ilmjj9$nho$
bonjour Pierre,
Sub Macro1() Dim c As Range For Each c In Range("B5:B2000") If c = Empty Then Range(c.Address) = c.Offset(-1, 0) + 1 Next End Sub
isabelle
Le 2011-03-14 19:19, pierre a écrit :
Bonjour
Je cherche à remplir dans une colonne les cellules vides par la valeur precedente + 1 Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant vide devient 8... jusqu'a B2000 J'ai utilisé l'enregistreur de macro --- Selection.AutoFill , Type:=xlFillDefault mais echec total merci a vous pour votre aide
Pierre
pierre
encore merci
Pierre
"isabelle" a écrit dans le message de news: im8qar$nbi$
bonjour Pierre,
oui, il faut remplacer la ligne
For Each c In Range("B5:B2000")
par
For Each c In Range("B5:B"& Range("B65536").End(xlUp).Row)
Est-il possible de modifier For Each c In Range("B5:B2000") pour partir toujours de B5 mais jusqu'a la derniere valeur utilisée du genre B999 ( derniere valeur ) donc B1000 et stop car absence de valeur après J'ai en colonne A1000 une valeur fixe ( et la derniere) si cela peut aider pour stopper la macro
merci Pierre
"pierre" a écrit dans le message de news: ilr8mc$fsh$
Bonsoir Isabelle,
Super classe la macro.
merci
P.
"isabelle" a écrit dans le message de news: ilmjj9$nho$
bonjour Pierre,
Sub Macro1() Dim c As Range For Each c In Range("B5:B2000") If c = Empty Then Range(c.Address) = c.Offset(-1, 0) + 1 Next End Sub
isabelle
Le 2011-03-14 19:19, pierre a écrit :
Bonjour
Je cherche à remplir dans une colonne les cellules vides par la valeur precedente + 1 Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant vide devient 8... jusqu'a B2000 J'ai utilisé l'enregistreur de macro --- Selection.AutoFill , Type:=xlFillDefault mais echec total merci a vous pour votre aide
Pierre
encore merci
Pierre
"isabelle" <i@v.org> a écrit dans le message de news:
im8qar$nbi$1@speranza.aioe.org...
bonjour Pierre,
oui, il faut remplacer la ligne
For Each c In Range("B5:B2000")
par
For Each c In Range("B5:B"& Range("B65536").End(xlUp).Row)
Est-il possible de modifier For Each c In Range("B5:B2000")
pour partir toujours de B5 mais jusqu'a la derniere valeur utilisée
du genre B999 ( derniere valeur ) donc B1000 et stop car
absence
de valeur après
J'ai en colonne A1000 une valeur fixe ( et la derniere) si cela peut
aider
pour stopper la macro
merci
Pierre
"pierre"<prtech@free.fr> a écrit dans le message de news:
ilr8mc$fsh$1@speranza.aioe.org...
Bonsoir Isabelle,
Super classe la macro.
merci
P.
"isabelle"<i@v.org> a écrit dans le message de news:
ilmjj9$nho$1@speranza.aioe.org...
bonjour Pierre,
Sub Macro1()
Dim c As Range
For Each c In Range("B5:B2000")
If c = Empty Then Range(c.Address) = c.Offset(-1, 0) + 1
Next
End Sub
isabelle
Le 2011-03-14 19:19, pierre a écrit :
Bonjour
Je cherche à remplir dans une colonne les cellules vides par la valeur
precedente + 1
Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant
vide
devient 8... jusqu'a B2000
J'ai utilisé l'enregistreur de macro --- Selection.AutoFill ,
Type:=xlFillDefault mais echec total
merci a vous pour votre aide
Est-il possible de modifier For Each c In Range("B5:B2000") pour partir toujours de B5 mais jusqu'a la derniere valeur utilisée du genre B999 ( derniere valeur ) donc B1000 et stop car absence de valeur après J'ai en colonne A1000 une valeur fixe ( et la derniere) si cela peut aider pour stopper la macro
merci Pierre
"pierre" a écrit dans le message de news: ilr8mc$fsh$
Bonsoir Isabelle,
Super classe la macro.
merci
P.
"isabelle" a écrit dans le message de news: ilmjj9$nho$
bonjour Pierre,
Sub Macro1() Dim c As Range For Each c In Range("B5:B2000") If c = Empty Then Range(c.Address) = c.Offset(-1, 0) + 1 Next End Sub
isabelle
Le 2011-03-14 19:19, pierre a écrit :
Bonjour
Je cherche à remplir dans une colonne les cellules vides par la valeur precedente + 1 Exemple B5=9 B6 vide devient 10 en B15 la valeur est 7 B16 etant vide devient 8... jusqu'a B2000 J'ai utilisé l'enregistreur de macro --- Selection.AutoFill , Type:=xlFillDefault mais echec total merci a vous pour votre aide
Pierre
bcar
Le 22/03/2011 01:26, isabelle a écrit :
bonjour Pierre,
oui, il faut remplacer la ligne
For Each c In Range("B5:B2000")
par
For Each c In Range("B5:B"& Range("B65536").End(xlUp).Row)