Remplir les cases automatiquement..

CedricSTO · 26 Mai 2017

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 · 26 Mai 2017

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 · 27 Mai 2017

Bonjour, CedricSTO, ERIC S, le Forum,

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

VB:

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 · 27 Mai 2017

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 · 29 Mai 2017

DoubleZero à dit:
Bonjour, CedricSTO, ERIC S, le Forum,

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

VB:

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

Remplir les cases automatiquement..

CedricSTO

XLDnaute Nouveau

ERIC S

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

CedricSTO

XLDnaute Nouveau

CedricSTO

XLDnaute Nouveau

Discussions similaires