Macro pour ajouter des lignes a un tableau
Résolu
ydb
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je cherche a faire une macro qui ajouterai du contenu dans un tableau
exemple:
j'ai trois case nom, prenom, adresse
et un bouton,
je voudrais que lorsque je clique sur le bouton il aille ajouter le contenu de ces case dasn un tableau qui contiendrait toute une liste de nom...
merci
je cherche a faire une macro qui ajouterai du contenu dans un tableau
exemple:
j'ai trois case nom, prenom, adresse
et un bouton,
je voudrais que lorsque je clique sur le bouton il aille ajouter le contenu de ces case dasn un tableau qui contiendrait toute une liste de nom...
merci
A voir également:
- Macro pour ajouter des lignes a un tableau
- Tableau word - Guide
- Trier un tableau excel - Guide
- Tableau ascii - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Imprimer un tableau excel - Guide
4 réponses
Bonjour
Voici un bout de macro
Sheets("nom de la feuille ou vous entrez le nom, prénom, adresse").Select
Application.Goto Reference:="nom du champ contenant le nom, prénom, adresse"
Selection.Copy
Sheets("nom de la feuille ou vous collez les informations").Select
Application.Goto Reference:="nom de la cellule au coin supérieur gauche au-dessus de la base nom prénom, adresse exemple ancre_Base"
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Voici un bout de macro
Sheets("nom de la feuille ou vous entrez le nom, prénom, adresse").Select
Application.Goto Reference:="nom du champ contenant le nom, prénom, adresse"
Selection.Copy
Sheets("nom de la feuille ou vous collez les informations").Select
Application.Goto Reference:="nom de la cellule au coin supérieur gauche au-dessus de la base nom prénom, adresse exemple ancre_Base"
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
