Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ajout tableau depuis macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion michel2A
  • Date de début Date de début

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 !

S'inscrire
M

michel2A

XLDnaute Nouveau
Bonjour,

Plutôt qu'un long discours je vous joins mon fichier afin que mon explication ne soit pas trop incompréhensible.
Regarde la pièce jointe LentillesTest(1).xlsx

Je souhaiterais depuis le bouton présent dans la feuil1 ajouter le tableau de la feuil2 dans la feuil1 à la suite du premier et décaler en même temps le bouton.

Le bouton est une affaire qui roule en utilisant :
Code: 
 ActiveSheet.Shapes("Button 1").IncrementLeft 240
    ActiveSheet.Shapes("Button 1").IncrementTop -1

En revanche lorsque je colle le tableau de la feuil2 dans la feuil1 il sélectionne la cellule G1 et le colle. OK jusque la seulement les clics suivant décalent le bouton mais colle le tableau par dessus l'ancien. Cela vient du fait que je ne fais que lui demander de coller en G1. Pour remédier à cela il faudrait que je détecte la première cellule de la première ligne qui soit vide. J'ai eu comme idée d'utiliser cela :
Code: 
Range("A1").End(xlToRight).Column
Seulement je ne fais que sortir le nombre de colonne (et comme j'ai des cellules fusionnées les résultats sont en plus faux ...)

Plusieurs questions :
1. Comment détecter la coordonnée de la première cellule vide de la première ligne ?
2. Comment faire pour que mon tableau en feuil2 ne soit pas figé ? (pour le moment il comporte 6 colonnes mais je peux très bien en rajouter une plus tard donc il faudrait que le programme ne se contente pas de sélectionner une plage prédéfinie mais bien des cellules actives)
3. Semi-Question/précision : le tableau que je copie contient des formules qui dépendent ensuite du tableau précédent ...

Des idées 😕

Merci d'avance
 
Trier par date Trier par votes
Re : Ajout tableau depuis macro

Bonjour Michel et bienvenu, bonjour le forum,

Essaie comme ça :
Code: 
Sub Macro1()
Dim O As Object 'déclare la variable O (Onglet)
Dim PCV As Integer 'déclare la variable PCV (Première Colonne Vide)

Set O = Sheets("Feuil1") 'définit l'onglet O
PCV = O.Cells(2, Application.Columns.Count).End(xlToLeft).Column + 1 'définit la première colonne vide de la ligne 2
Sheets("Feuil2").Range("A1").CurrentRegion.Copy O.Cells(1, PCV) 'copie le tableau de l'onglet Feuil2
PCV = O.Cells(2, Application.Columns.Count).End(xlToLeft).Column + 1 'définit la première colonne vide de la ligne 2
ActiveSheet.Shapes.Range(Array("Button 1")).Select 'sélectionne le bouton
Selection.Left = O.Cells(1, PCV).Left 'déplace le bouton
O.Cells(1, PCV).Offset(0, -1).Select 'sélectionne la cellule première cellule du tableau copié
End Sub
 
Vote positif 0 Vote négatif
Re : Ajout tableau depuis macro

parfait ca marche ! si je veux pouvoir ajouter une fenetre surgissante au clic sur le bouton permettant de choisir le nom du tableau à inserer (donc première cellule de la feuil2) je peux utiliser
Code: 
InputBox("Texte ?", "Titre", "Valeur par défaut")
?
 
Vote positif 0 Vote négatif
Re : Ajout tableau depuis macro

Bonjour Michel, bonjour le forum,

J'ai bien aimé la Fenêtre surgissante... Mais une InputBox ou une boîte d'entrée me semble le terme plus approprié.
Sinon, je n'ai pas compris ta demande... Ou plutôt je n'ai pas compris où tu voulais en venir...
 
Vote positif 0 Vote négatif
Re : Ajout tableau depuis macro

En gros le bouton d'ajout de tableau renvoie à la macro mais je voudrais qu'en cliquant sur ce bouton une fenêtre vienne avant l'insertion du nouveau tableau, demander à l'utilisateur le nom du tableau qui s'ajoutera, cela modifie le contenu de la cellule fusionnée de la feuil2 qui ensuite sera copié avec le bon nom dans la feuil1.
 
Vote positif 0 Vote négatif
Re : Ajout tableau depuis macro

Bonjour Michel, bonjour le forum,

Ok, j'ai compris (enfin !). Essaie comme ça :
Code: 
Sub Macro1()
Dim BE As String 'déclare la variable BE(Boîte d'Entrée)
Dim O As Object 'déclare la variable O (Onglet)
Dim PCV As Integer 'déclare la variable PCV (Première Colonne Vide)

BE = InputBox("Texte ?", "Titre du Tableau", "Contrôle ") 'définit la boîte d'entrée BE
If BE = "" Then Exit Sub 'si bouton annuler ou non renseignée, sort de la procédure
Set O = Sheets("Feuil1") 'définit l'onglet O
PCV = O.Cells(2, Application.Columns.Count).End(xlToLeft).Column + 1 'définit la première colonne vide de la ligne 2
Sheets("Feuil2").Range("A1").CurrentRegion.Copy O.Cells(1, PCV) 'copie le tableau de l'onglet Feuil2
PCV = O.Cells(2, Application.Columns.Count).End(xlToLeft).Column + 1 'définit la première colonne vide de la ligne 2
ActiveSheet.Shapes.Range(Array("Button 1")).Select 'sélectionne le bouton
Selection.Left = O.Cells(1, PCV).Left 'déplace le bouton
O.Cells(1, PCV).Offset(0, -1).Select 'sélectionne la cellule première cellule du tableau copié
ActiveCell.Value = BE 'renvoie le texte dans la première cellule du tableau copié
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

M
  • Résolu(e)
XL 2021 VBA Ajouter ligne tableau + autres cellules hors tableau
Réponses
3
Affichages
81
sylvanu
P
  • Résolu(e)
Microsoft 365 activer macro après collage
Réponses
6
Affichages
91
pat66
P
Y
  • Question Question
XL 2019 macro pour dupliquer un tableau
Réponses
3
Affichages
346
Yogean
Y
C
  • Résolu(e)
XL 2016 Macro masquer certaines lignes en fonction de l'état d'une cellule (vide ou pas)
Réponses
2
Affichages
67
Chris1263
C
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
126
ChTi160
  • Résolu(e)
XL 2019 Création d'un second bouton qui ne fonctionne pas
Réponses
2
Affichages
104
Titof06
I
  • Question Question
Microsoft 365 Atteindre la première case vide après collage
Réponses
5
Affichages
126
job75
N
  • Question Question
Microsoft 365 Créer une fenêtre de vente qui alimentera un cumul dans un tableau
Réponses
2
Affichages
178
job75
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
273
mimednejma
M
T
  • Question Question
XL 2019 tableau , cellule protégé et ligne vide
Réponses
2
Affichages
124
sylvanu
  • Résolu(e)
Microsoft 365 Formule entre 2 feuilles
Réponses
7
Affichages
132
TooFatBoy
  • Question Question
Microsoft 365 Problème Création Sommaire
Réponses
4
Affichages
145
sylvanu
  • Résolu(e)
XL 2021 PB Alimentation Tableau structuré depuis un ListBox
2
Réponses
27
Affichages
645
jeff1494
  • Question Question
XL 2021 Mise à jour d'un tableau depuis une feuille Excel
Réponses
5
Affichages
214
thunder23
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
276
AtTheOne
S
  • Question Question
XL 2016 Création de factures à parti d'un tableau
Réponses
5
Affichages
177
sfconstant
S
F
  • Résolu(e)
XL 2021 Génération d'un fichier TXT à partir d'une feuille Excel
Réponses
3
Affichages
234
fd.30
F
  • Résolu(e)
Microsoft 365 récupérer la dernière ligne de chaque anomalie déclarée
Réponses
3
Affichages
83
natorp
N
  • Question Question
XL 2021 Tableau conversion
Réponses
4
Affichages
590
TooFatBoy
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
286
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…