Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel recopie des cellules vides par cellule précédente

recopie des cellules vides par cellule précédente

3 réponses
Avatar
Help Me
Bonjour à tous

j'ai un tableau comme celui ci-dessous avec des valeurs (en colonne) et des
trous...le but est qu'il me remplie les trous par les valeurs du dessus
...ex :


Source Destination
A A
A
A
B B
B
B
B
B
V V
V
D D
E E
F F

Et ce, en s'arrêtant à la fin des cellules remplies dans le doc (c'est a
dire que si mon tableau est rempli de la ligne 1 à 70, et que la dernière
valeur remplie dans ma colonne selectionnée soit la 65 (par le contenu F
(par ex)) il reproduise F jusqu'à la ligne 70

L'idéal étant que je selectionne la colonne qui m'intéresse et apres,
j'appelle la macro qui détecte la colonne choisie et qui fasse ce test de
fin de document, puis reproduise la manip

je vous remercie infiniment de votre aide, car je perds beaucoup de temps
avec cela, mais ne sais pas assez manipuler le vba pour cela
A cette heure, j'ai fait la formule excel suivante dans une colonne à côté :
=SI(source="";valeur de la ligne de destination du dessus;Source)
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
isabelle
bonjour,

Sub Macro1()
Dim plage As Range, fin As Integer, i As Integer, v
Set plage = Application.InputBox(prompt:="Sélectionner une colonne",
Type:=8)
fin = Cells(65536, plage.Column).End(xlUp).Row
For i = 2 To fin
If Range("A" & i) <> Empty Then
v = Range("A" & i)
Else
Range("A" & i) = v
End If
Next
End Sub

isabelle


Bonjour à tous

j'ai un tableau comme celui ci-dessous avec des valeurs (en colonne) et des
trous...le but est qu'il me remplie les trous par les valeurs du dessus
...ex :


Source Destination
A A
A
A
B B
B
B
B
B
V V
V
D D
E E
F F

Et ce, en s'arrêtant à la fin des cellules remplies dans le doc (c'est a
dire que si mon tableau est rempli de la ligne 1 à 70, et que la dernière
valeur remplie dans ma colonne selectionnée soit la 65 (par le contenu F
(par ex)) il reproduise F jusqu'à la ligne 70

L'idéal étant que je selectionne la colonne qui m'intéresse et apres,
j'appelle la macro qui détecte la colonne choisie et qui fasse ce test de
fin de document, puis reproduise la manip

je vous remercie infiniment de votre aide, car je perds beaucoup de temps
avec cela, mais ne sais pas assez manipuler le vba pour cela
A cette heure, j'ai fait la formule excel suivante dans une colonne à côté :
=SI(source="";valeur de la ligne de destination du dessus;Source)




Avatar
AV
Sans boucle donc rapide... :

Sub zzz_Complète_Lignes()
Set plg = Range("A1", [A65536].End(3))
plg.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
[plg].Value = [plg].Value
End Sub

AV
Avatar
Help Me
Génial

MERCI à vous deux !!!!!

Je peux me remettre à souffler

Michel
"AV" a écrit dans le message de news:
%
Sans boucle donc rapide... :

Sub zzz_Complète_Lignes()
Set plg = Range("A1", [A65536].End(3))
plg.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
[plg].Value = [plg].Value
End Sub

AV