Bonjour
J'ai une colonne de données où celles-ci sont espacees de 3 lignes en 3
lignes.
Entre ces données il n'y a rien ...
et je voudrais interpoler linerairement entre ces valeurs
Qui peut me donner une solution generale
Merci beaucoup
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie (pour la colonne A avec des valeurs, pas des formules) :
Sub test() Dim c As Range, Plage As Range, Val As Double Set Plage = Range("A1", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeConstants) Plage.Select For Each c In Plage If c.Offset(3) = "" Then Exit Sub Val = (c.Offset(3).Value - c.Value) / 3 c.Offset(1).Value = c.Value + Val c.Offset(2).Value = c.Value + 2 * Val Next c End Sub
Cordialement. Daniel "MIKE" a écrit dans le message de news:
Bonjour J'ai une colonne de données où celles-ci sont espacees de 3 lignes en 3 lignes. Entre ces données il n'y a rien ... et je voudrais interpoler linerairement entre ces valeurs Qui peut me donner une solution generale Merci beaucoup
Bonjour.
Essaie (pour la colonne A avec des valeurs, pas des formules) :
Sub test()
Dim c As Range, Plage As Range, Val As Double
Set Plage = Range("A1",
Range("A65536").End(xlUp)).SpecialCells(xlCellTypeConstants)
Plage.Select
For Each c In Plage
If c.Offset(3) = "" Then Exit Sub
Val = (c.Offset(3).Value - c.Value) / 3
c.Offset(1).Value = c.Value + Val
c.Offset(2).Value = c.Value + 2 * Val
Next c
End Sub
Cordialement.
Daniel
"MIKE" <MIKE@discussions.microsoft.com> a écrit dans le message de news:
26D74E42-447F-4C6F-8421-8EEAFFDF6354@microsoft.com...
Bonjour
J'ai une colonne de données où celles-ci sont espacees de 3 lignes en 3
lignes.
Entre ces données il n'y a rien ...
et je voudrais interpoler linerairement entre ces valeurs
Qui peut me donner une solution generale
Merci beaucoup
Bonjour. Essaie (pour la colonne A avec des valeurs, pas des formules) :
Sub test() Dim c As Range, Plage As Range, Val As Double Set Plage = Range("A1", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeConstants) Plage.Select For Each c In Plage If c.Offset(3) = "" Then Exit Sub Val = (c.Offset(3).Value - c.Value) / 3 c.Offset(1).Value = c.Value + Val c.Offset(2).Value = c.Value + 2 * Val Next c End Sub
Cordialement. Daniel "MIKE" a écrit dans le message de news:
Bonjour J'ai une colonne de données où celles-ci sont espacees de 3 lignes en 3 lignes. Entre ces données il n'y a rien ... et je voudrais interpoler linerairement entre ces valeurs Qui peut me donner une solution generale Merci beaucoup
MIKE
Merci Daniel...çà marche.
Bonjour. Essaie (pour la colonne A avec des valeurs, pas des formules) :
Sub test() Dim c As Range, Plage As Range, Val As Double Set Plage = Range("A1", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeConstants) Plage.Select For Each c In Plage If c.Offset(3) = "" Then Exit Sub Val = (c.Offset(3).Value - c.Value) / 3 c.Offset(1).Value = c.Value + Val c.Offset(2).Value = c.Value + 2 * Val Next c End Sub
Cordialement. Daniel "MIKE" a écrit dans le message de news:
Bonjour J'ai une colonne de données où celles-ci sont espacees de 3 lignes en 3 lignes. Entre ces données il n'y a rien ... et je voudrais interpoler linerairement entre ces valeurs Qui peut me donner une solution generale Merci beaucoup
Merci Daniel...çà marche.
Bonjour.
Essaie (pour la colonne A avec des valeurs, pas des formules) :
Sub test()
Dim c As Range, Plage As Range, Val As Double
Set Plage = Range("A1",
Range("A65536").End(xlUp)).SpecialCells(xlCellTypeConstants)
Plage.Select
For Each c In Plage
If c.Offset(3) = "" Then Exit Sub
Val = (c.Offset(3).Value - c.Value) / 3
c.Offset(1).Value = c.Value + Val
c.Offset(2).Value = c.Value + 2 * Val
Next c
End Sub
Cordialement.
Daniel
"MIKE" <MIKE@discussions.microsoft.com> a écrit dans le message de news:
26D74E42-447F-4C6F-8421-8EEAFFDF6354@microsoft.com...
Bonjour
J'ai une colonne de données où celles-ci sont espacees de 3 lignes en 3
lignes.
Entre ces données il n'y a rien ...
et je voudrais interpoler linerairement entre ces valeurs
Qui peut me donner une solution generale
Merci beaucoup
Bonjour. Essaie (pour la colonne A avec des valeurs, pas des formules) :
Sub test() Dim c As Range, Plage As Range, Val As Double Set Plage = Range("A1", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeConstants) Plage.Select For Each c In Plage If c.Offset(3) = "" Then Exit Sub Val = (c.Offset(3).Value - c.Value) / 3 c.Offset(1).Value = c.Value + Val c.Offset(2).Value = c.Value + 2 * Val Next c End Sub
Cordialement. Daniel "MIKE" a écrit dans le message de news:
Bonjour J'ai une colonne de données où celles-ci sont espacees de 3 lignes en 3 lignes. Entre ces données il n'y a rien ... et je voudrais interpoler linerairement entre ces valeurs Qui peut me donner une solution generale Merci beaucoup
