XL 2013 Aide Excel VBA

Yurushi

XLDnaute Nouveau
Bonjour à tous je vous contacte car étant novice dans le VBA j’ai du mal à produire un code.

Le fichier correspondant est en pièce jointe.

Voici la démarche que j’ai pensé :
I - Données définis par l’utilisateur : Dans l’exemple ci-joint « 51 » au « 56 » (Utilisateur renseigne ces données dans l’onglet « ParamètresImpression ».
(On retrouve les données ci-dessus (51 au 56) dans l’onglet « TABLEAU DE BORD » en colonne B)
  • Sélectionner l’onglet « ParamètresImpression »
  • Sélection cellule C3 (Garder en mémoire le numéro de ligne qui correspond ► Cellule E3)
  • Copier-coller l’onglet « Formalisme RTE Vierge »
  • Sélection Onglet « Formalisme RTE vierge » (celle copier)
  • Intégrer la valeur C3 dans la cellule H2 (Support gauche)
  • Ensuite passer à la ligne suivante (numéro de ligne 14 pour la donnée 52)
  • Récupérer la valeur 52 (Onglet « TABLEAU DE BORD » Colonne B) par rapport au numéro de ligne. (Je pense que pour récupérer la donnée 52 on peut faire « Numéro de ligne précédent +1, mais je m’y connais pas assez)
  • Copier-coller l’onglet Formalisme RTE Vierge
  • Intégrer la valeur 52 dans la cellule H2 de l’onglet précédemment copier (Support gauche)
  • Refaire le schéma de la partie qui varie (Etape 6 à 9) jusqu’à 56 pour ce cas, mais j’aimerais avoir la possibilité que cette donnée varie. (Mais cette donnée se trouve obligatoirement dans l’onglet « Tableau de bord » colonne B) ► C'est vraiment cette partie "Intégration d'une boucle" que j'ai du mal à comprendre.
En tout cas je vous remercie grandement pour votre aide.

Bien cordialement,

Julien
 

Pièces jointes

  • Voici la démarche2-VBA.xlsx
    649.2 KB · Affichages: 5

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Yurushi, bonjour le forum,

Le Gestionnaire de noms contient une multitude de noms sans référence et quand on fait une copie de l'onglet Formalisme RTE Vierge il est demandé si on désire conserver ces noms ou si on désire les renommer. Je pense que tu devrais commencer par supprimer les noms qui ne servent plus a rien et nous dire ce que l'on doit demander au code de faire : accepter ou renommer...
 

Yurushi

XLDnaute Nouveau
Bonjour,

Merci de ta remarque, tu trouveras le fichier ci-joint nettoyé, les données dans le gestionnaire de noms sont une erreur de ma part.

Cordialement,

Julien
 

Pièces jointes

  • Voici la démarche2-VBA.xlsx
    128.9 KB · Affichages: 5

Robert

XLDnaute Barbatruc
Repose en paix
Re,

Voici un début de code. Après je me suis perdu dans tes explications...

VB:
Sub Macro1()
Dim OT As Worksheet 'déclare la variable OT (Onglet Tableau de bord)
Dim OFV As Worksheet 'déclare la variable OFV (Onglet Formalisme RTE Vierge)
Dim OFC As Worksheet 'déclare la variable OFC (Onglet Formalisme RTE Copie)
Dim OP As Worksheet 'déclare la variaboe OP (onglet ParamètresImpression)
Dim LD As Integer 'déclare la variable LD (Ligne de Début)
Dim LF As Integer 'déclare la variable LF (Ligne de Fin)

Set OT = Worksheets("TABLEAU DE BORD") 'définit l'onglet OT
Set OFV = Worksheets("Formalisme RTE Vierge") 'définit l'onglet OFV
Set OP = Worksheets("ParamètresImpression") 'définit l'onglet OP
LD = OP.Range("E3").Value 'définit la ligne de début LD
LF = OP.Range("E5").Value 'définit la ligne de fin LF
For I = LD To LF
    OFV.Copy After:=Sheets(Sheets.Count) 'copie l'onglet OFV en dernière position
    ActiveSheet.Name = "Formalisme RTE " & OT.Cells(I, "B").Value 'renomme l'onglet avec le la valeur du support gauche de la ligne de la boucle
    Set OFC = ActiveSheet 'définit l'onglet OFC
    OFC.Range("H2").Value = OT.Cells(I, "B").Value 'récupère dans la cellule H3 de l'onglet OFC la valeur du support gauche de la ligne de la boucle
Next I 'prochaine ligne de la boucle
End Sub
 

Discussions similaires

Réponses
2
Affichages
554

Statistiques des forums

Discussions
311 721
Messages
2 081 928
Membres
101 842
dernier inscrit
seb0390