Discussion :

[maximob]

Bonjour,

je veux insérer automatiquement une ligne après chaque 3 lignes et qui doit comporter les mêmes données qu’au dessus sauf la cellule (G) qui doit être remplie par (7121141000), et (K5) =250.000-k3 et ainsi de suite pour toutes les lignes.

j'ai 1000 lignes.


voici mon fichier :

[Kimy_Ire]

Bonjour maximob,

Très simple ! "Enregistrer une macro" !

Cordialement,
Kimy

[maximob]

je suis novice en la matière , je cherche une solution à appliquer.

merci d'avoir donnée de votre temps à mon problème.

[Kimy_Ire]

maximob,

Bon, en fait, c'était pas aussi évident !
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
Option Explicit
 
Sub maximob()
 
Dim i As Integer
 
'Ligne de départ
i = 3
 
With Worksheets("Feuil2")
    Do
        .Rows(i & ":" & i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        .Range("A" & i).EntireRow.Value = .Range("A" & i - 1).EntireRow.Value
        .Range("G" & i) = 7121141000#
        .Range("K" & i) = 250000 - .Range("K" & i - 2)
        '.Range("A" & i) = "+++"
        i = i + 4
    Loop While i <= .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
End With
 
End Sub

A adapter, bien entendu !

Cordialement,
Kimy

[maximob]

ça n'a pas marché, je crois qu'on s'est mal compris, je dois insérer un ligne en au dessous de 49.xxx au crédit qui me donne (k5)=250.000-(49.xxx * 5) et les valeurs dans le crédit qui sont = 250.000 seront modifiées on déduisant (k5). et ainsi de suite pour les autres lignes.

[Kimy_Ire]

Rien compris.

1. Clair
2. Explicite
3. Ordonné ("J'insère une ligne toutes les 3 lignes. Je cherche la valeur en K. Si j'ai X valeur, alors...")
4. Fichier exemple

Je te laisse revenir vers moi.

Cordialement,
Kimy