Remplir les cases automatiquement..

[CedricSTO]

Bonjour,

Je suis face à une problématique gênante.. En faisant un export, je me retrouve avec le tableau ci-dessous :

Je souhaiterai que les cases, par exemple "C3" et "D3" se remplisse automatiquement avec les éléments de la case supérieurs mais que si la case inférieures, celle-ci doit reste tel quel.. En gros que "C5" reste 2.. Cela bien sur une quantité de ligne de 500/1000..

En vous en remerciant par avance,

 

[ERIC S]

Bonjour

tu crées une colonne intermédiaire
en ligne 2 formule : =si(C2="";C1;C2)
tu tires jusqu'en bas

si le résultat est ok
copier ta nouvelle colonne/ sélection C2 collage valeurs

...

 

[DoubleZero]

Bonjour, CedricSTO, ERIC S, le Forum,

Autre possibilité avec le code suivant, logé dans un module standard :

Option Explicit
Sub Cellules_vides_compléter()
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In Range("e:e").SpecialCells(xlCellTypeConstants)
        If c.Offset(, -1) = "" Then c.Offset(, -1) = c.Offset(-1, -1)
        If c.Offset(, -2) = "" Then c.Offset(, -2) = c.Offset(-1, -2)
    Next
End Sub

A bientôt

 

[CedricSTO]

Bonjour,

Merci pour vos réponses.

J'avoue que la première solution, j'aurais dû la trouver...

Pour la seconde, je vais la tester.

Bon WE à vous

 

[CedricSTO]

Bonjour, CedricSTO, ERIC S, le Forum,

Autre possibilité avec le code suivant, logé dans un module standard :

Option Explicit
Sub Cellules_vides_compléter()
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In Range("e:e").SpecialCells(xlCellTypeConstants)
        If c.Offset(, -1) = "" Then c.Offset(, -1) = c.Offset(-1, -1)
        If c.Offset(, -2) = "" Then c.Offset(, -2) = c.Offset(-1, -2)
    Next
End Sub

A bientôt

Après délibération, la solution VBA est vraiment la meilleure!!

Merci