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

Aide Macro VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion spino91
  • 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
S

spino91

Guest
J'ai mis en place une macro qui permet de créer un nouvel onglet, qui est renommé automatiquement "fiche nouvelle".
Certaines infos sont automatiquement reportées dans un autre onglet "récapitulatif" et ils sont positionnés à la dernière ligne vide des colonnes destinées.
Ce que je souhaiterais dans un premier temps c'est que chaque onglet créé n'est pas le même nom (sinon erreur) et que le nom deviennent: "Fiche 1", "Fiche 2", "Fiche 3", ... aulieu de "fiche nouvelle".
Mais aussi, que l'une des infos reportées sur le "récapitulatif" permet d'être renvoyé directement sur l'onglet en question, en cliquant dessus et pour chaque onglet (utilisation d'un lien hypertexte ou double clique sur cellule).

Ci dessous la macro qui permet d'exécuter ce que j'ai expliqué en préambule:

Sub NouvelleFiche()
Sheets("Fiche").Select
Sheets("Fiche").Copy after:=Sheets(2)
Sheets("Fiche (2)").Select
Sheets("Fiche (2)").Name = "Fiche Nouvelle"

Sheets("Fiche Nouvelle").Range("C53").Copy
Sheets("RECAPITULATIF").Activate
ActiveSheet.Range("D65536").End(xlUp)(2).Select
ActiveSheet.Paste Link:=True

Sheets("Fiche Nouvelle").Range("E53").Copy
Sheets("RECAPITULATIF").Activate
ActiveSheet.Range("E65536").End(xlUp)(2).Select
ActiveSheet.Paste Link:=True

Sheets("Fiche Nouvelle").Range("F3").Copy
Sheets("RECAPITULATIF").Activate
ActiveSheet.Range("B65536").End(xlUp)(2).Select
ActiveSheet.Paste Link:=True

Sheets("Fiche Nouvelle").Range("F6").Copy
Sheets("RECAPITULATIF").Activate
ActiveSheet.Range("F65536").End(xlUp)(2).Select
ActiveSheet.Paste Link:=True

Sheets("Fiche Nouvelle").Range("F8").Copy
Sheets("RECAPITULATIF").Activate
ActiveSheet.Range("A65536").End(xlUp)(2).Select
ActiveSheet.Paste Link:=True

Sheets("Fiche Nouvelle").Range("F9").Copy
Sheets("RECAPITULATIF").Activate
ActiveSheet.Range("C65536").End(xlUp)(2).Select
ActiveSheet.Paste Link:=True

Sheets("Fiche Nouvelle").Range("I6").Copy
Sheets("RECAPITULATIF").Activate
ActiveSheet.Range("G65536").End(xlUp)(2).Select
ActiveSheet.Paste Link:=True

End Sub

Je vous remercie d'avance pour toute l'aide que vous pourriez m'apporter.

Cordialement
 
Trier par date Trier par votes
Re : Aide Macro VBA

Bonsoir

Histoire d'alléger ton code existant

Code: 
Sub NouvelleFiche()
Dim ADRS, ADRD, i As Long
Sheets("Fiche").Copy after:=Sheets(2)
ActiveSheet.Name = "Fiche Nouvelle"

ADRS = Split("C53+E53+F3+F6+F8+F9+I6", "+")
ADRD = Split("D+E+B+F+A+C+G", "+")

For i = LBound(ADRS) To UBound(ADRS)
Sheets("Fiche Nouvelle").Range(CStr(ADRS(i))).Copy
With Sheets("RECAPITULATIF")
    .Activate
    .Range(CStr(ADRD(i)) & "65536").End(xlUp)(2).Select
    .Paste Link:=True
End With
Next i
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
100
deudecos
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
741
ph.vanne
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
456
job75
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
335
AlineJ
A
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
400
patricktoulon
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
390
sylvanu
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
491
xavieralvaro
X
  • Question Question
XL 2021 création d'onglets en masse depuis un modele
Réponses
6
Affichages
281
Phil69970
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
709
AtTheOne
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
563
AtTheOne
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
363
juju91
J
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
567
spike29
S
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
314
job75
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
815
Chaton77
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
506
zendb
Z
M
  • Résolu(e)
XL 2010 Code VBA pour Appeler un onglet avec texte + variable
Réponses
9
Affichages
1 K
Phil69970
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
869
Zonmé
Z
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
932
Phil69970
R
  • Question Question
XL 2010 Effacement de données dans plusieurs feuilles de calcul dans un même classeur
Réponses
3
Affichages
798
robbynasch
R
M
  • Question Question
Microsoft 365 Récupération des plages nommées des fichiers dans un répertoire
Réponses
8
Affichages
268
dysorthographie
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…