Ajouter une nouvelle ligne VBA

[krisprolss]

Bonjour à tous,

Dans un tableau de gestion, je dois pouvoir ajouter une ligne fournisseur à tout moment.
J'aimerai donc faire une macro qui me rajoute une ligne exactement comme la ligne 33 du fichier joint. C'est-à-dire, avec le texte 'Fournisseur' écrit dans la premiere cellule de la ligne (qui est la fusion de 4 colonnes), etc. (c.f la ligne 33)

Merci d'avance [file name=Gestion_20060415224444.zip size=27989]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Gestion_20060415224444.zip[/file]

 

[_Thierry]

Bonsoir KisProlss, le Forum

Regarde si un code tout simple comme celui-ci pourrait convenir, car je ne suis pas certain d'avoir compris pour les cellules grisées en colonne 'E'; et aussi pour la Zone du Code SAP..

Sub TheSupplierInsert()

With ThisWorkbook.Worksheets('Fiche Technique')
    .Rows(33).Insert Shift:=xlDown
    .Range('A34:AA34').Copy Range('A33:AA33')
End With
   
End Sub

Bonnes Pâques
[ol]@+Thierry[/ol]

EDITION !!!

Oups un erreur de Chiffre (32) au lieu de (33) sur ma destination initiale

Message édité par: _Thierry, à: 15/04/2006 23:07

 

[gex1403]

Salut krisprolls
J'ai modifié ta macro, clic sur le bouton ajout fournisseur et tu pourras en rajouter autant que tu veux

@micalement [file name=Gestion_20060415224444_20060415230524.zip size=29216]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Gestion_20060415224444_20060415230524.zip[/file]

 

[gex1403]

Salut krisprolls
J'ai modifié ta macro, clic sur le bouton ajout fournisseur et tu pourras en rajouter autant que tu veux

@micalement [file name=Gestion_20060415224444_20060415230629.zip size=29216]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Gestion_20060415224444_20060415230629.zip[/file]

 

[krisprolss]

Merci ça marche d'enfer