Ajouter une nouvelle ligne VBA

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

krisprolss

XLDnaute Nouveau
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]
 

Pièces jointes

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

Pièces jointes

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]
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
582
Retour