Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Combler les cellules vides d'une colonne par la valeur immédiatement supérieure

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sellig 29
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sellig 29

XLDnaute Occasionnel
Bonjour,

Je souhaiterais "combler" les cellules d'une colonne par la valeur supérieure la plus proche. J'ai mis en pièce jointe des explications plus précises. La formule actuelle ne prend en compte uniquement le texte 🙁. Peut être existe t-il une solution via une macro?
Merci d'avance pour votre aide.
 

Pièces jointes

Trier par date Trier par votes
Re : Combler les cellules vides d'une colonne par la valeur immédiatement supérieure

Salut,
En F3 = B3
En F4 = SI(ESTVIDE(B4);F3;B4) puis tirer la formule vers le bas.
Est-ce que tu attendais ???
Lolote83
 
Vote positif 0 Vote négatif
Re : Combler les cellules vides d'une colonne par la valeur immédiatement supérieure

Oui c'est cela lolote83,ta formule est bien plus simple que la mienne et prend en compte tous les formats! 🙂 S'il existe l'équivalent en macro, je suis également preneur.
Merci
 
Vote positif 0 Vote négatif
Re : Combler les cellules vides d'une colonne par la valeur immédiatement supérieure

Bonjour,
en A3 :
Code: 
=SI(B3<>"";B3;DECALER(B$2;MAX(SI(B$3:B3<>"";LIGNE(INDIRECT("1:"&LIGNES(B$2:B2)))));))
@ valider par Ctrl+Maj+Entree
@ tirer vers le bas
Amicalement
 
Vote positif 0 Vote négatif
Re : Combler les cellules vides d'une colonne par la valeur immédiatement supérieure

Bonjour,
S'il existe l'équivalent en macro, je suis également preneur.
Cliquez pour agrandir...
par exemple (à adapter à ton cas) :
Code: 
Sub test()
Dim i As Long
Cells(2, 4) = Cells(2, 2)
For i = 3 To 30
    If Cells(i, 2) = "" Then
        Cells(i, 4) = Cells(i - 1, 4)
    Else: Cells(i, 4) = Cells(i, 2)
        End If
    Next i
End Sub

Plus concis mais moins rapide sur des plages importantes :
Code: 
Sub test2()
Dim i As Long
Cells(2, 4) = Cells(2, 2)
For i = 3 To 30
Cells(i, 4) = IIf(Cells(i, 2) = "", Cells(i - 1, 4), Cells(i, 2))
    Next i
End Sub
A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Combler les cellules vides d'une colonne par la valeur immédiatement supérieure

Bonjour Rachid,
La formule de lolote83 m'apparait plus simple mais la tienne (matricielle) fonctionne également très bien! 🙂
Avec tous mes remerciements
 
Vote positif 0 Vote négatif
Re : Combler les cellules vides d'une colonne par la valeur immédiatement supérieure

Bonjour à tous,

autre approche vba :
Code: 
On Error Resume Next
With Range("B3:B30")
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
On Error GoTo 0

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Combler les cellules vides d'une colonne par la valeur immédiatement supérieure

Bonjour à tous,
La macro de Pierrot93 fonctionnait parfaitement (celle de David84 aussi), j'ai collé une valeur colonne B qui ne se reporte pas dans les 2 cellules du dessous? Comme si elles contenaient das valeurs? alors qu'elles sont vides?
Pouvez vous m'apporter une solution
D'avance merci
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Combler les cellules vides d'une colonne par la valeur immédiatement supérieure

Bonjour,
La macro de Pierrot93 fonctionnait parfaitement (celle de David84 aussi), j'ai collé une valeur colonne B qui ne se reporte pas dans les 2 cellules du dessous? Comme si elles contenaient das valeurs? alors qu'elles sont vides?
Cliquez pour agrandir...
Ces cellules ne sont pas vides : elles contiennent des espaces. Enlève-les et cela fonctionne.
A+
 
Vote positif 0 Vote négatif
Re : Combler les cellules vides d'une colonne par la valeur immédiatement supérieure

OK pour la cause, mais serait-il possible d'intégrer dans la macro une fonction qui supprimerait les éventuels espace avant l'exécution de la macro pour le repport des valeurs?
Je me sers de cette fonctionnalité dans mon travail, parfois je colle des centaines de valeurs dans la colonne issues d'un autre fichier, certaines cellules ont manifestement des espaces, j'ignore pourquoi?😕 Ca m'éviterait de supprimer cellule par cellule toute les cellules ayant un espace (cela pourrait être long)
 
Vote positif 0 Vote négatif
Re : Combler les cellules vides d'une colonne par la valeur immédiatement supérieure

Bonjour sellig, David🙂

essaye peut être de convertir au préalable la colonne en question avec la méthode "TextToColumns". une petite recher dans l'aide vba et ou le forum t'en dira un peu plus...

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Combler les cellules vides d'une colonne par la valeur immédiatement supérieure

Bonjour à tous,

Peux-tu essayer ceci :

VB: 
On Error Resume Next
    With Range("B3:B30")
        .Replace What:=" ", Replacement:=""
        .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With
    On Error GoTo 0

A + à tous

Edition : Salut Pierrot, David et Rachid
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Combler les cellules vides d'une colonne par la valeur immédiatement supérieure

Merci JCGL, impeccable! 😀
Pierrot, je n'ai pas eu le temps de chercher beaucoup mais me donner ainsi la bonne direction est également une aide pour progresser😱 et j'en ai bien besoin......
Bon dimanche (Pour une fois pluvieux dans le finistère... )
Gilles
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
XL 2021 Automatisation de la randomisation des cellules d'une colonne
3 4 5
Réponses
61
Affichages
3 K
Dranreb
P
  • Question Question
Microsoft 365 Extraire la totalité du contenu d'une cellule si une cellule commence par un nombre
2
Réponses
16
Affichages
916
PR.
P
C
  • Résolu(e)
XL 2016 Propriété pour déterminer si la sélection correspond à une plage de cellules
Réponses
2
Affichages
267
crocrocro
C
2
  • Résolu(e)
Microsoft 365 Filtrer plage afficher cellules avec plus d'une valeur dans une colonne
Réponses
6
Affichages
558
2pi_N
2
Z
  • Question Question
XL 2021 InputBox and focus à la fin de la ligne d'une valeur par défaut
Réponses
4
Affichages
603
zedude
Z
D
  • Question Question
Microsoft 365 Épurer les lignes vides d'une cellule puis fractionner la cellule en plusieurs lignes
2
Réponses
20
Affichages
1 K
fanch55
L
  • Question Question
Microsoft 365 Récupérer le nom de la colonne portant la dernière valeur supérieure à 0 sur une ligne
Réponses
3
Affichages
743
LucileCrn
L
W
  • Question Question
Microsoft 365 Fusionne les cellules vides parmi celle avec des valeurs
Réponses
4
Affichages
616
woira95
W
E
  • Question Question
Microsoft 365 Création d'un filtre sur une cellule avec recherche de mot indexé
Réponses
3
Affichages
349
elgringo123456
E
J
  • Résolu(e)
XL 2021 Renvoyer la plus grande valeur d'une colonne avant la mention "#NOMBRE!"
Réponses
5
Affichages
456
djidji59430
C
  • Résolu(e)
XL 2016 Formule de calcul de la somme conditionnée des écarts d'une plage par rapport à une valeur témoin
Réponses
3
Affichages
346
crocrocro
C
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
575
fanch55
L
  • Question Question
Microsoft 365 Trier des données d'une colonne dans une autre
Réponses
2
Affichages
524
Langrand
L
D
  • Question Question
XL 2016 Future date la plus proche d'aujourd'hui + mise en forme conditionnelle
Réponses
8
Affichages
548
vgendron
Z
  • Résolu(e)
XL 2021 Faire clignoter un texte spécifique dans les cellules d'une colonne
Réponses
4
Affichages
638
ZE21000
Z
K
  • Question Question
XL 2019 VBA colorer les cellules et éliminer les cellules en rouge dans le calcul de plus proche valeur
Réponses
3
Affichages
482
KAMARY
K
L
  • Question Question
Microsoft 365 TCD et référence de cellules
Réponses
7
Affichages
653
alexga78
A
M
  • Question Question
Microsoft 365 trouver la dernière valeur numérique non nulle dans une colonne comportant des cellules vides et des cellules avec la valeur zéro.
Réponses
5
Affichages
1 K
matgrim
M
R
  • Résolu(e)
XL 2019 supprimer lignes vides qui ont été coupées - collées
Réponses
6
Affichages
632
rh.finances
R
  • Résolu(e)
Microsoft 365 Calcul de Moyenne d'une colonne avec cellules vides
Réponses
14
Affichages
1 K
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…