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

[maximob]

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



tu trouvera un exemple de résultat que je souhaite obtenir dans Feuil1.

[Kimy_Ire]

Tu écris dans ton premier post ceci :

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

[maximob]

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

[Kimy_Ire]

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

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 = 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

[maximob]

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

[Kimy_Ire]

ç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é...

[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 .