Discussion :

[Maude_84]

Bonjour à tous,
voilà, je cherche un code me permettant de rajouter simultanément des valeurs dans 2 colonnes différentes.
Ma première colonne ne commence pas à 0, je veux la faire commencer par 0 avec un pas de 0.1( a déjà été résolu dans un précédent post)
la dexiéme, liée à la première, les valeurs doivent décoler vers le bas et les vides devenir des 999.25.
je joins un exemple de ce que je cherche à obtenir.
Merci déjà pour votre aide.

[Kimy_Ire]

Bonjour Maude_84,

Voici ce que je te propose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Option Explicit
 
Sub ajout_pas()
Dim rng As Range
Dim strt As Double
Dim nb As Integer, i As Double
 
With Worksheets("Feuil1")
    Set rng = .Columns(1).Find("Depth", LookIn:=xlValues, LookAt:=xlWhole).Offset(1, 0)
    strt = rng.Value
    nb = Int(strt * 10)
 
    .Range(rng, rng.Offset(nb - 1, 0)).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
    Set rng = .Columns(1).Find("Depth", LookIn:=xlValues, LookAt:=xlWhole).Offset(1, 0)
 
    For i = 0 To strt Step 0.1
        rng.Offset(i * 10, 0) = i
        rng.Offset(i * 10, 1) = -999.25
    Next i
 
 
End With
 
End Sub

Il me semble que cela répond à ton besoin.
N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[Maude_84]

Merci Kimy_Ire,
c'est vraiment ce que je cherchais.