Remplir colonnes avec des text differents

[elodieavayou]

Bonjour,
Afin de pouvoir utiliser ces données dans un tableau croise dynamique je dois avoir toutes les cellule remplies. un extrait du tableau en pj .
J'ai plus de 50 000 lignes et ne vais pas drager les cellules manuellement.
Pouvez vous m'indiquer comment faire avec uneformule ou une option xl ?
Un grand merci d'avance

 

[mth]

Re : Remplir colonnes avec des text differents

Bonjour,

Un essai avec ce code

Sub remplir()
Application.ScreenUpdating = False
Dim lig As Long
With Sheets("SALES KIDS 2010")
lig = .Cells(Rows.Count, 6).End(xlUp).Row
For Each c In .Range("A6:E" & lig).SpecialCells(xlCellTypeBlanks)
   If c = "" Then
    c.Value = c.Offset(-1, 0).Value
   End If
Next c
End With
Application.ScreenUpdating = True
End Sub

Bon après-midi,

mth

Edit: Hi tototiti🙂
re Ges 🙂 🙂 🙂

 

[tototiti2008]

Re : Remplir colonnes avec des text differents

Bonjour elodieavayou,

Bienvenue sur XLD,

Colonne par colonne :
à titre d'exemple, sélectionnes de E5 à E50000
touche F5
Cellulles
Cellules vides
ok
tapes la formule =E5
Ctrl + entrée

Edit : Bonjour Hasco 🙂, mth 😉

 

[Guest]

Re : Remplir colonnes avec des text differents

Bonjour Elodie, Bienvenue sur le forum
Mimi🙂
TotoTiti🙂

Puisque fait:

Sub remplir()
Dim col As Long, derlig As Long
Dim rng As Range
With Sheets("SALES KIDS 2010")
    derlig = .Range("F" & .Rows.Count).End(xlUp).Row
    For col = 5 To 1 Step -1
        Set rng = .Cells(derlig, col)
        Do While rng.Row > 4
            Set rng = .Range(rng, rng.End(xlUp))
                rng.Value = rng(1).Value
                Set rng = rng.Offset(-1)(1)
        Loop
    Next
End With
End Sub

A+

 

[elodieavayou]

Re : Remplir colonnes avec des text differents

bonjour, merci beaucoup.
pouvez vs me dire pourquoi qd je "play " le code ca me fait "run time error '1004', no celles were found

merci d'avance

 

[Guest]

Re : Remplir colonnes avec des text differents

Re,

Quel code? Celui de mth? le mien?

A+

 

[elodieavayou]

Re : Remplir colonnes avec des text differents

Les deux ...

 

[Guest]

Re : Remplir colonnes avec des text differents

Re,

j'en doute, "run time error '1004', no celles were found" est un message d'erreur provoqué par SpecialCells, que je n'utilise pas dans mon code.

En tout cas, sur la base du classeur que tu nous as donné, le mien fonctionnait bien.

A+

 

[elodieavayou]

Re : Remplir colonnes avec des text differents

ok je vais refaire alors, en tout cas merci bcp
a bientot