Copier des cellules si vide

tototiti2008

XLDnaute Barbatruc

• 4 Octobre 2010

• #2

Re : Copier des cellules si vide

Bonjour pepane,

Bienvenue sur XLD,

pas trés clair... un bout de fichier exemple, peut-être ?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 4 Octobre 2010

• #3

Re : Copier des cellules si vide

Re,

peut être :

en C1

Code:

=si(A1="";B1;A1)

à recopier vers le bas

puis copier / Collage spécial valeurs de la colonne C sur la colonne A

 

Vote positif 0 Vote négatif

P

pepane

Guest

• 4 Octobre 2010

• #4

Re : Copier des cellules si vide

merci tototiti2008 pour ta réactivité
je précise que je souhaite traiter de cette façon toutes les lignes d'un tableau (30000 lignes)à l'aide d'une macro.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 4 Octobre 2010

• #5

Re : Copier des cellules si vide

Re,

à tester :

VB:

Sub test()
Dim Ligne As Long
    Ligne = Range("A65536").End(xlUp).Row
    For i = 1 To Ligne
        If Range("A" & i).Value = "" Then Range("A" & i).Value = Range("B" & i).Value
    Next i
End Sub

 

Dernière édition: 4 Octobre 2010

Vote positif 0 Vote négatif

P

pepane

Guest

• 4 Octobre 2010

• #6

Re : Copier des cellules si vide

Super tototiti2008, ça marche!
merci pour ton aide
à bientôt

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Octobre 2010

• #7

Re : Copier des cellules si vide

Bonsoir à tous, tototiti208 😉



Pour éviter la boucle (ce qui peut être appréciable)

Code:

Sub a()
Dim r As Range
Set r = Range([A1], [A65536].End(xlUp))
r.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=RC[1]"
    With r
        .Value = .Value
    End With
End Sub

 

Vote positif 0 Vote négatif