Bonjour,
je consulte le forum et je trouve ce code pas très différents du mien.
Ce que je veux c'est pouvoir scanner ma feuiille Excel et completer les
cellules vides par les data du dessus.
Avec mon code je n y arrive pas.
Ma colonne maximale est la N
par contre je peux aller jusqu'à plus de 1000 lignes.
Range("a1").Select
Do While ActiveCell <> ""
If ActiveCell.Offset(0, 1) = "" Then
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(-1, 1)
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
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
ABED HADDOU
Bonjour * Vincent *
Essaie ceci ça devrait marché. Sub Remplace() DerLig = Cells.Find("*", [A1], SearchDirection:=xlPrevious).Row For Each c In Range("a1:a" & DerLig) If c.Value = "" Then c.Value = c.Offset(-1) End If Next c End Sub
Cordialement Abed_H
Bonjour, je consulte le forum et je trouve ce code pas très différents du mien. Ce que je veux c'est pouvoir scanner ma feuiille Excel et completer les cellules vides par les data du dessus. Avec mon code je n y arrive pas. Ma colonne maximale est la N par contre je peux aller jusqu'à plus de 1000 lignes.
Range("a1").Select Do While ActiveCell <> "" If ActiveCell.Offset(0, 1) = "" Then ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(-1, 1) End If ActiveCell.Offset(1, 0).Select Loop End Sub
Bonjour * Vincent *
Essaie ceci ça devrait marché.
Sub Remplace()
DerLig = Cells.Find("*", [A1], SearchDirection:=xlPrevious).Row
For Each c In Range("a1:a" & DerLig)
If c.Value = "" Then
c.Value = c.Offset(-1)
End If
Next c
End Sub
Cordialement Abed_H
Bonjour,
je consulte le forum et je trouve ce code pas très différents du mien.
Ce que je veux c'est pouvoir scanner ma feuiille Excel et completer les
cellules vides par les data du dessus.
Avec mon code je n y arrive pas.
Ma colonne maximale est la N
par contre je peux aller jusqu'à plus de 1000 lignes.
Range("a1").Select
Do While ActiveCell <> ""
If ActiveCell.Offset(0, 1) = "" Then
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(-1, 1)
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Essaie ceci ça devrait marché. Sub Remplace() DerLig = Cells.Find("*", [A1], SearchDirection:=xlPrevious).Row For Each c In Range("a1:a" & DerLig) If c.Value = "" Then c.Value = c.Offset(-1) End If Next c End Sub
Cordialement Abed_H
Bonjour, je consulte le forum et je trouve ce code pas très différents du mien. Ce que je veux c'est pouvoir scanner ma feuiille Excel et completer les cellules vides par les data du dessus. Avec mon code je n y arrive pas. Ma colonne maximale est la N par contre je peux aller jusqu'à plus de 1000 lignes.
Range("a1").Select Do While ActiveCell <> "" If ActiveCell.Offset(0, 1) = "" Then ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(-1, 1) End If ActiveCell.Offset(1, 0).Select Loop End Sub
Vincent
Merci je voudrais essayé que ça marche aussi pour les colonnes B, C, jusqu'à N Car ça marche mais seulement pour la colonne A, ou alors faut que j aille me coucher !!
Bonjour * Vincent *
Essaie ceci ça devrait marché. Sub Remplace() DerLig = Cells.Find("*", [A1], SearchDirection:=xlPrevious).Row For Each c In Range("a1:a" & DerLig) If c.Value = "" Then c.Value = c.Offset(-1) End If Next c End Sub
Cordialement Abed_H
Bonjour, je consulte le forum et je trouve ce code pas très différents du mien. Ce que je veux c'est pouvoir scanner ma feuiille Excel et completer les cellules vides par les data du dessus. Avec mon code je n y arrive pas. Ma colonne maximale est la N par contre je peux aller jusqu'à plus de 1000 lignes.
Range("a1").Select Do While ActiveCell <> "" If ActiveCell.Offset(0, 1) = "" Then ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(-1, 1) End If ActiveCell.Offset(1, 0).Select Loop End Sub
Merci
je voudrais essayé que ça marche aussi pour les colonnes B, C, jusqu'à N
Car ça marche mais seulement pour la colonne A, ou alors faut que j aille me
coucher !!
Bonjour * Vincent *
Essaie ceci ça devrait marché.
Sub Remplace()
DerLig = Cells.Find("*", [A1], SearchDirection:=xlPrevious).Row
For Each c In Range("a1:a" & DerLig)
If c.Value = "" Then
c.Value = c.Offset(-1)
End If
Next c
End Sub
Cordialement Abed_H
Bonjour,
je consulte le forum et je trouve ce code pas très différents du mien.
Ce que je veux c'est pouvoir scanner ma feuiille Excel et completer les
cellules vides par les data du dessus.
Avec mon code je n y arrive pas.
Ma colonne maximale est la N
par contre je peux aller jusqu'à plus de 1000 lignes.
Range("a1").Select
Do While ActiveCell <> ""
If ActiveCell.Offset(0, 1) = "" Then
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(-1, 1)
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Merci je voudrais essayé que ça marche aussi pour les colonnes B, C, jusqu'à N Car ça marche mais seulement pour la colonne A, ou alors faut que j aille me coucher !!
Bonjour * Vincent *
Essaie ceci ça devrait marché. Sub Remplace() DerLig = Cells.Find("*", [A1], SearchDirection:=xlPrevious).Row For Each c In Range("a1:a" & DerLig) If c.Value = "" Then c.Value = c.Offset(-1) End If Next c End Sub
Cordialement Abed_H
Bonjour, je consulte le forum et je trouve ce code pas très différents du mien. Ce que je veux c'est pouvoir scanner ma feuiille Excel et completer les cellules vides par les data du dessus. Avec mon code je n y arrive pas. Ma colonne maximale est la N par contre je peux aller jusqu'à plus de 1000 lignes.
Range("a1").Select Do While ActiveCell <> "" If ActiveCell.Offset(0, 1) = "" Then ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(-1, 1) End If ActiveCell.Offset(1, 0).Select Loop End Sub
ABED HADDOU
adapte ceci avant de se coucher
Sub Remplace() Adr = [A:IV].Find("*", searchorder:=xlByRows, SearchDirection:=xlPrevious).Address Ch = Split(Adr, "$")(1) Lg = Split(Adr, "$")(2) Adr = Ch & Lg For Each c In Range("A1:" & Adr) Valeur = ActiveCell.Previous If c.Value = "" Then c.Value = Valeur End If Next c End Sub
Cordialement Abed_H
"Vincent" wrote:
Merci je voudrais essayé que ça marche aussi pour les colonnes B, C, jusqu'à N Car ça marche mais seulement pour la colonne A, ou alors faut que j aille me coucher !!
Bonjour * Vincent *
Essaie ceci ça devrait marché. Sub Remplace() DerLig = Cells.Find("*", [A1], SearchDirection:=xlPrevious).Row For Each c In Range("a1:a" & DerLig) If c.Value = "" Then c.Value = c.Offset(-1) End If Next c End Sub
Cordialement Abed_H
Bonjour, je consulte le forum et je trouve ce code pas très différents du mien. Ce que je veux c'est pouvoir scanner ma feuiille Excel et completer les cellules vides par les data du dessus. Avec mon code je n y arrive pas. Ma colonne maximale est la N par contre je peux aller jusqu'à plus de 1000 lignes.
Range("a1").Select Do While ActiveCell <> "" If ActiveCell.Offset(0, 1) = "" Then ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(-1, 1) End If ActiveCell.Offset(1, 0).Select Loop End Sub
adapte ceci avant de se coucher
Sub Remplace()
Adr = [A:IV].Find("*", searchorder:=xlByRows,
SearchDirection:=xlPrevious).Address
Ch = Split(Adr, "$")(1)
Lg = Split(Adr, "$")(2)
Adr = Ch & Lg
For Each c In Range("A1:" & Adr)
Valeur = ActiveCell.Previous
If c.Value = "" Then
c.Value = Valeur
End If
Next c
End Sub
Cordialement Abed_H
"Vincent" wrote:
Merci
je voudrais essayé que ça marche aussi pour les colonnes B, C, jusqu'à N
Car ça marche mais seulement pour la colonne A, ou alors faut que j aille me
coucher !!
Bonjour * Vincent *
Essaie ceci ça devrait marché.
Sub Remplace()
DerLig = Cells.Find("*", [A1], SearchDirection:=xlPrevious).Row
For Each c In Range("a1:a" & DerLig)
If c.Value = "" Then
c.Value = c.Offset(-1)
End If
Next c
End Sub
Cordialement Abed_H
Bonjour,
je consulte le forum et je trouve ce code pas très différents du mien.
Ce que je veux c'est pouvoir scanner ma feuiille Excel et completer les
cellules vides par les data du dessus.
Avec mon code je n y arrive pas.
Ma colonne maximale est la N
par contre je peux aller jusqu'à plus de 1000 lignes.
Range("a1").Select
Do While ActiveCell <> ""
If ActiveCell.Offset(0, 1) = "" Then
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(-1, 1)
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Sub Remplace() Adr = [A:IV].Find("*", searchorder:=xlByRows, SearchDirection:=xlPrevious).Address Ch = Split(Adr, "$")(1) Lg = Split(Adr, "$")(2) Adr = Ch & Lg For Each c In Range("A1:" & Adr) Valeur = ActiveCell.Previous If c.Value = "" Then c.Value = Valeur End If Next c End Sub
Cordialement Abed_H
"Vincent" wrote:
Merci je voudrais essayé que ça marche aussi pour les colonnes B, C, jusqu'à N Car ça marche mais seulement pour la colonne A, ou alors faut que j aille me coucher !!
Bonjour * Vincent *
Essaie ceci ça devrait marché. Sub Remplace() DerLig = Cells.Find("*", [A1], SearchDirection:=xlPrevious).Row For Each c In Range("a1:a" & DerLig) If c.Value = "" Then c.Value = c.Offset(-1) End If Next c End Sub
Cordialement Abed_H
Bonjour, je consulte le forum et je trouve ce code pas très différents du mien. Ce que je veux c'est pouvoir scanner ma feuiille Excel et completer les cellules vides par les data du dessus. Avec mon code je n y arrive pas. Ma colonne maximale est la N par contre je peux aller jusqu'à plus de 1000 lignes.
Range("a1").Select Do While ActiveCell <> "" If ActiveCell.Offset(0, 1) = "" Then ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(-1, 1) End If ActiveCell.Offset(1, 0).Select Loop End Sub
