problème insertion ligne automatique

[chamoisp]

Bonjours à tous et merci à toutes les personnes qui nous concèdent un peut de leur temps pour nous venir en aide.

Voila grace à ce fabuleux forum, je fais actuellement une feuille de bilan, dans ce bilan j'ai un tableau pour les "evenements", "action", nom.

Voila mon problème, lorsque j'arrive à la dernière ligne du tableau j'aimerai que lorsque je rentre du texte dans cette dernière ligne et que je tape entrée une ligne supplémentaire ce rajoute à mon tableau, j'ai réussi a le faire en trouvant un code sur le forum, mais lorsque je rentre du texte sur la ligne 65 je perds la fusion de mes cellules et j'aimerai bien garder la fusion de mes cellules

Voici mon code

Private Sub Worksheet_Change(ByVal Target As Range)
'-------------------------------------------------
' Insertion ligne automatique
'-------------------------------------------------

If Target.Address <> Range("A65536").End(xlUp).Address Then Exit Sub
If Target = "" Then Exit Sub
Dim T
Application.ScreenUpdating = False
Application.EnableEvents = False ' pour ne pas se mordre la queue
T = Target.Value 'mémorise la valeur
Rows(66).Copy Target.EntireRow.Resize(2) 'copie la ligne 2 et colle sur 2 lignes
Union(Target.Resize(, 16), Target.Offset(1).EntireRow).ClearContents
Target = T
Application.EnableEvents = True

End sub


Je vous joint mon fichier

Merci de votre aide

Cordialement
Pascal

 

[chamoisp]

Bonsoir personne ne peut m'aider? Merci

N'y a t'il personne pour m'aider ou mon problème est impossible à résoudre, cela fait trois jours que j'essais de trouver une solution, mais comme je débute en vba et je ne trouve pas cette solution.

Merci de votre aide

Cordialement
Pascal

 

[Efgé]

Re : problème insertion ligne automatique

Bonjour chamoisp,
Vous avez protégé votre feuille avec un mot de passe, comment peut on vous aider?
Cordialement

 

[Staple1600]

Re : problème insertion ligne automatique

Bonsoir à tous


Tu peux utiliser Centrer sur plusieurs colonnes au lieu de fusionner tes cellules.

Le résultat visuel sera identique mais tu auras les problèmes (liés au cellules fusionnées) en moins

Sub exemple()
Selection.HorizontalAlignment = xlCenterAcrossSelection
End Sub

 

[chamoisp]

Re : problème insertion ligne automatique

excuser moi pour la protection voici le fichier sans mot de passe.

Encore merci pour votre aide

 

[Staple1600]

Re : problème insertion ligne automatique

Bonsoir



Ton fichier ne contient pas d'userforms

or tu as du code qui se réfère à 2 userforms

Cela risque d'être embêtant

Sinon tu essayé le centrage sur plusieurs colonnes au lieu des cellules fusionnées ?

 

[chamoisp]

Re : problème insertion ligne automatique

Mon fichier original contient bien des userform, mais mon fichier étant trop volumineux pour le compresser, j'ai supprimer beaucoup de choses pour l'alléger

Merci

 

[jeanpierre]

Re : problème insertion ligne automatique

Bonsoir chamoisp, JM,

Tu peux Exporter ton USF. Clic droit dessus et Exporter et tu nous joins, sous Zip les deux fichiers issus de cette exportation. On pourra ensuite les intégrer à ton fichier de 23h36.

Bonne soirée.

Jean-Pierre

 

[Staple1600]

Re : problème insertion ligne automatique

Re, bonsoir jeanpierre (et bon rétablissement)


Dans ce cas tu devrais mettre en commentaire le code VBA relatif aux userforms , histoire de pouvoir tester ton fichier sans qu'Excel bronche

 

[chamoisp]

Re : problème insertion ligne automatique

voici le fichier sans les codes des userform

 

[Staple1600]

Re : problème insertion ligne automatique

Re

Donc tu ne veux pas essayer sans utiliser la fusion de cellules ?

(comme je te le conseille plus bas ?)

 

[chamoisp]

Re : problème insertion ligne automatique

Bonsoir à tous.

Merci Staple1600

pour ta réponse, mais je ne vois pas ou placcer ton code dans le miens, ou alors ton code fonctionne-t-il avec un bouton affecté à une macro, car le bilan de serie que j'essai de creer sera utilisé par différentes personnes et c'est vrai que j'aimerai bien que lorsque l'on arrive à la dernière ligne du tableau une autre se crée automatiquement.

Excuse moi pour cette réponse tardive mais je n'étais pas présent ce wwek-end.

Encore merci pour ton aide

Cordialement

Pascal