combler des cellules vides !

Version imprimable

Bonjour

J’ai des colonnes dans lesquelles il manque des valeurs. Il y a parfois plusieurs cellules vides de suite.
Je souhaite remplir ces trous par une sorte d’extrapolation linéaire entre la valeur du row avant le vide et la valeur du row juste après le vide.

Ex :
Je sélectionne les cases C3 à C25 :
3
3
3.5
vide
vide
6
5
Vide
7.2
6.8
vide
vide
vide
5.6

Les deux cellules vides du haut devraient être remplies par : 4,33 et 5,16
4,33 = (6-3.5)/(nombre de cellules vides de suite + 1)

Voici le code que j’ai écrit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub remplissage() debutselection = Selection.Row finselection = debutselection + Selection.Rows.Count - 1 col = Selection.Column For deb = debutselection To finselection If Range(deb, col).Value = "" Then valdeb = Range(deb - 1, col).Value While Range(deb + 1, col) <> valfin = ActiveCell.Value increment = (valfin - valdeb) / (Range(deb, col).Value - Active.Row) Wend For peupl = Range(deb, col) To Active.Row - 1 Range(peupl, col) = valdeb + increment Next peupl End If Next deb End Sub
Mais çà ne marche pas ! :cry:

Des idées ?
Merci.

salut

Bien que nous ayons là un cas où je préfèrerais utiliser un tableau dynamique résultant de la sélection ...;)
Voici comment tu peux te faciliter la tâche :
Je ne te mets ici que le début du code et je te laisse le compléter (mes .....)
regarde : je définis la plage des vides de la sélection, puis la décompose en "aires". Je t'en affiche les adresses et leur nombre de lignes ;)
Le reste est facile à deviner et mettre en oeuvre, non ?
Je te laisse finir ;) Ce devrait être un jeu, maintenant.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CommandButton2_Click() Dim col As Long, plage As Range, a As Range With Selection col = .Column Set plage = .SpecialCells(xlCellTypeBlanks) End With For Each a In plage.Areas MsgBox a.Address & " " & a.Rows.Count ' ..... facile à partir de là, non ? ' ................ Next End Sub

Bonjour.

En reprenant ton idée :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub remplissage()
Dim oSh As Excel.Worksheet
Dim debutselection As Long, finselection As Long, i As Long, peupl As Long, deb As Long
Dim col As Integer, increment As Single
 
debutselection = Selection.Row
finselection = debutselection + Selection.Rows.Count - 1
col = Selection.Column
Set oSh = Selection.Worksheet
 
For i = debutselection To finselection
    If oSh.Cells(i, col).Value = "" Then
        deb = i
        While oSh.Cells(i + 1, col).Value = ""
            i = i + 1
        Wend
        increment = (oSh.Cells(i + 1, col).Value - oSh.Cells(deb - 1, col)) / (i - deb + 2)
        For peupl = deb To i
            oSh.Cells(peupl, col).Value = oSh.Cells(deb - 1, col).Value + increment * (peupl - deb + 1)
        Next peupl
 
    End If
Next i
 
End Sub

Ne fonctionne que si la cellule en première ligne n'est pas vide...
Si la sélection est très grande, le temps d'exécution deviendra long. Il faut alors charger la plage dans un tableau, faire le même traitement et recopier le tableau dans la plage.

Cordialement,

PGZ