Copier des cellules si vide

[pepane]

Bonjour le forum!

Je cherche à copier à l'aide d'une macro,la valeur d'une celulle de la colone B vers la colone A,
si seulement la cellule en colone A est vide, et ceci pour toutes les lignes.
Voici un exemple



Merci de vos lumières

pepane

 

[tototiti2008]

Re : Copier des cellules si vide

Bonjour pepane,

Bienvenue sur XLD,

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

 

[tototiti2008]

Re : Copier des cellules si vide

Re,

peut être :

en C1

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

à recopier vers le bas

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

 

[pepane]

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.

 

[tototiti2008]

Re : Copier des cellules si vide

Re,

à tester :

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

 

[pepane]

Re : Copier des cellules si vide

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

 

[Staple1600]

Re : Copier des cellules si vide

Bonsoir à tous, tototiti208 😉



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

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