Boucler x fois...

[Sophie]

Bonsoir tout le monde !

J'ai encore un souci... pour changer ! Ah, ces débutants !

Voilà, j'ai un code qui est celui-ci :

Public Sub insertion_lignes()
Dim DébutLigne As Integer
Dim NbLignes As Integer

Sheets('mailing virements').Select

DébutLigne = 47 'pour insérer à partir de la ligne 47
NbLignes = Sheets('REGLEMENT DU JOUR').Range('G14').Value 'le nbe de lignes à ajouter est en 'G14'
If NbLignes > 0 Then
Rows(DébutLigne & ':' & (DébutLigne + NbLignes - 1)).Select
Selection.Insert Shift:=xlDown
End If



Range('A46:B46').Select
Selection.Copy
Range('A47').Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False


Range('C4646').Select
Selection.Copy
Range('C47').Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False



Range('A46:B46').Select
Selection.Copy
Range('A47').Select
ActiveSheet.Paste


Range('C4646').Select
Selection.Copy
Range('C47').Select
ActiveSheet.Paste



End Sub



Pour l'expliquer : je fais des avis de virement.
Ma mise en page initiale comporte 23 lignes sur un avis vierge.
Si j'ai réglé 36 factures, il me manque donc 13 lignes sur mon avis.
Le nombre de lignes à ajouter se trouve en G14.

J'ai 2 soucis :
- je voudrais que la mise en forme et les formules de mes champs 'A46:B46' (cellules fusionnées) et 'C4646' (idem) soient recopiées autant de fois que j'ai ajouté de lignes.
- j'aimerai avoir un code pour revenir à ma mise en page de 23 lignes après validation de mon avis...


voilà, c'est tout, et c'est déjà pas mal !
Merci à vous de m'avoir lue, et merci également pour les solutions que vous pourrez m'apporter.


Bonne soirée à vous

Sophie

 

[Sophie]

RE bonsoir...


Petite question : j'ai mal expliqué mon problème, ou bien il est insoluble ?
Je m'inquiète...


Bonne soirée

Sophie

 

[ThomasR]

Bonsoir,

as tu un fichier ?

sinon de tête je dirait de copier une ligne de ton tableau (afin d'avoir les formules)
puis de l'inserer la ligne copier le nombre de fois voulu

pour ce qui est de retourner à la forme initiale
je dirait que sans voir le fichier ni savoir le mode de fonctionnnement ???

je conserverais la valeur ajouté precedemment afin de faire un select des lignes puis un delette..

joint ton fichier (car c'est plus long à dire qu'a faire )

 

[Charly2]

Bonsoir Sophie, bonsoir Thomas,
Bonsoir à toutes et à tous

Peut-être une solution dans le fichier joint (à adapter bien sûr) :

[file name=Sophie_boucler_x_fois.zip size=9648]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Sophie_boucler_x_fois.zip[/file]

A+

 

[Sophie]

Bonjour à tous

Je vous joins une copie édulcorée de mon 'appli'...

J'espère que ce sera plus simple pour vous...
Et encore merci de vous pencher sur mon problème.


Bonne journée à vous et bon appétit


Sophie

 

[Charly2]

Bonjour Sophie, bonjour Thomas, bonjour à toi, Ô forum

Il est vrai qu'elle particulièrement édulcorée, ta copie :lol: , elle serait presque 'homéopathisée'

Tu as gagné le droit de rejouer

A+

 

[Sophie]

Pour le coup, j'ai encore manqué de chance...
même joueur joue encore !!

 

[Sophie]

La dernière sera-t'elle la bonne ? [file name=copie_avis_virement.zip size=20318]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/copie_avis_virement.zip[/file]

 

[Sophie]

Merci beaucoup !

Je viens (enfin) de tester, et ça m'a l'air vraiment tout à fait adapté à mon problème, ma solution miracle !!
Il ne me reste plus qu'à l'adapter pour que mes formules se recopient aussi...

En tout cas, merci beaucoup, ça m'est vraiment d'une très grande aide.


Sophie

 

[Charly2]

re à tout le monde, re Sophie

Je te renvoie ton fichier avec quelques modifs, sans toutefois avoir profondément modifié ton code :

=> Formules nommées : pour éviter les erreurs de référence à l'insertion (feuille mailing)

=> Insertion automatique de lignes, mais en G14 de REGLEMENT, on a le nombre total de lignes et pas seulement le nombre de lignes à ajouter. J'ai ajouté une constante en début de module pour indiquer le nombre de lignes initialement prévues dans l'avis de virement (23 dans ton fichier exemple).

=> Après impression, les lignes précédemment insérées sont supprimées et les colonnes I et J de la feuille REGLEMENT sont effacées.

[file name=Sophie_Avis_de_Virement.zip size=22651]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Sophie_Avis_de_Virement.zip[/file]

Tiens nous au courant

 

[Sophie du 78]

A tout le monde,

Merci de vous être penchés sur mon problème, c'est vraiment très gentil à vous.

Charly2, un énorme merci pour cette solution, c'est parfait, exactement ce dont j'avais besoin pour mon 'appli'

Au moins, maintenant je n'aurai plus d'angoisses existentielles à l'idée de partir en vacances et de trouver un massacre à mon retour...
maintenant en 3 clics tout est fait !!!
quel soulagement...


encore un très grand merci et à bientôt !

Sophie

 

[Charly2]

re Sophie

Je suis très heureux que cela te convienne. Merci de tes mercis

Surtout, ne le dis pas au forum pour tes angoisses, sinon ils vont m'appeler l'anxiolytique :lol:

Bonne soirée