Macro pour ajouter des lignes a un tableau
Résolu
ydb
Messages postés
19
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
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