Insertion auto des lignes avec formule

Version imprimable

29/01/2015, 15h28
maximob

1 pièce(s) jointe(s)

Insertion auto des lignes avec formule

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 :
29/01/2015, 15h35
Kimy_Ire

Bonjour maximob,

Très simple ! "Enregistrer une macro" ! :ccool:

Cordialement,
Kimy
29/01/2015, 15h57
maximob

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

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

maximob,

Bon, en fait, c'était pas aussi évident ! :aie:
Voici ce que je te propose :

Code:

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 ! :ccool:

Cordialement,
Kimy

29/01/2015, 16h45
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.
29/01/2015, 16h48
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
29/01/2015, 17h00
maximob

1 pièce(s) jointe(s)

ok, merci de ta patience, voici mon fichier exemple :

tu trouvera un exemple de résultat que je souhaite obtenir dans Feuil1.
29/01/2015, 17h07
Kimy_Ire

Tu écris dans ton premier post ceci :

Citation:

je veux insérer automatiquement une ligne après chaque 3 lignes

Dans ton fichier exemple, je ne vois qu'une ligne inséré, et je ne comprends donc pas.

Que veux dire "IL FAUT QUE J12 = K12" ?

Bref, je te demande, une dernière fois, d'être explicite dans ta demande.
Ce n'est pas à moi d'aller à la pêche aux infos...

Cordialement,
Kimy
29/01/2015, 17h12
maximob

Citation:

Dans ton fichier exemple, je ne vois qu'une ligne inséré, et je ne comprends donc pas.

c'est la première ligne insérée comme exemple et sera de même pour toute les trois lignes en dessous de 49.xxx pour aboutir aux totaux égaux J12=K12.

autrement dit, la valeur 250.000 au crédit doit être diviser en deux cellules : une =250.000-(49.xxx * 5) et l'autre = 250.000-le résultat obtenu dans la une.

ça parait compliqué mais j'ai confiance en toi. merci

Si tu me dis que ce code est celui que tu cherches...

Code:

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 = 5
 
With Worksheets("ecritures")
    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 - 1) * 5
        '.Range("A" & i) = "+++"
        i = i + 4
    Loop While i <= .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
End With
 
End Sub

29/01/2015, 18h04
maximob

ça bloque au niveau Loop while. Merci de voir d"ou ça vient.
29/01/2015, 18h22
Kimy_Ire

Citation:

Envoyé par maximob

ça bloque au niveau Loop while. Merci de voir d"ou ça vient.

lol ?!
Tu veux un coup de main ou qu'on bosse pour toi ?!

Je suis carrément choqué ! o_O

Ca commençait mal dès le départ et j'ai pris du temps pour te pondre un truc tout fait sur un fichier exemple. Tu ne prends même pas la peine de chercher un peu par toi même en demandant une solution toute faite et sur mesure. En plus de ça, c'est moi qui doit chercher les infos...
Laisse moi te dire, mon grand, qu'avant que tu ne te creuses la tête, au vu de ce genre de remarque, je ne ferais plus grand chose pour t'aider, surtout que la solution fonctionne sur les fichiers que tu m'as passé.

Ciao.
Kimy

EDIT : quelle mentalité...
30/01/2015, 09h10
maximob

t'as raison, j'ai pas fait d'effort pour adapter ton code à mes besoins mais finalement j'ai réussi à le faire et ça marche à 100%.

pardonne moi de t'avoir embêter avec mes questions . et merci bcp de ton aide .