remplir les vides

[chermiti]

bonjour le forum,

je possède le fichier suivant où entre les dates il y'a des lignes vides, s'il vous plait qu'elle est la meilleure formule qu'on pouvait utiliser pour remplir ces dites lignes

 

[Pierrot93]

Re : remplir les vides

Bonjour,

bah... et tu veux mettre quoi dans les cellules intermédiaires...

bonne journée
@+

 

[chermiti]

Re : remplir les vides

la meme date que celle affiché cà dire pour une date 03/07 toutes les lignes suivantes doivent eter 03/07

 

[Pierrot93]

Re : remplir les vides

Re,

essaie ce code :

Option Explicit
Sub test()
On Error Resume Next
With Range("A1:A40")
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
On Error GoTo 0
End Sub

 

[chermiti]

Re : remplir les vides

merci pour la réponse , mais existe t'il une formule simple, au lieu du macro, parce que mon fichier est plus compliqué que ça

 

[Pierrot93]

Re : remplir les vides

Re,

en A3 tu mets =A2 et tu fais glisser....

 

[chermiti]

Re : remplir les vides

encore une fois merci, mais mon souhait que lorsque j'insère la formule , elle s'étalle sur toute la feuille car ma base est plus volumineuse que ça

 

[Pierrot93]

Re : remplir les vides

Re,

bah... utilise la macro donnée... car si tu fais glisser sur toute la colonne tu va écraser les cellules renseignées... enfin perso je sais pas faire autrement...

 

[job75]

Re : remplir les vides

Bonjour chermiti, Pierrot,

Voyez le fichier joint avec cette formule en B1 à tirer vers le bas :

=SI(SUPPRESPACE(A1)="";DECALER(B1;-1;);A1)

Après vous faites ce que vous voulez avec la colonne B.

Copier-Collage spécial-Valeurs par exemple...

A+

 

[job75]

Re : remplir les vides

Re,

En VBA il vaut mieux passer par un tableau (t) c'est plus rapide :

Sub Completer()
'touche Ctrl+M pour lancer la macro
Dim P As Range, t, i&
Set P = ActiveSheet.UsedRange.Columns(1) 'colonne à adapter
If P.Rows.Count = 1 Then Exit Sub
t = P 'matrice, plus rapide
For i = 2 To UBound(t)
  If Trim(t(i, 1)) = "" Then t(i, 1) = t(i - 1, 1)
Next
P = t
End Sub

Fichier joint.

A+

 

[job75]

Re : remplir les vides

Re,

Il est intéressant de comparer les durées d'exécution sur 100 000 lignes :

- méthode par SpecialCells/Formules (Pierrot93) => 11,70 secondes

- méthode par tableau VBA (job75) => 0,55 seconde sur Win 8 - Excel 2013.

Fichiers joints.

A+

 

[chermiti]

Re : remplir les vides

merci infiniment