Créer variable VBA sur Excel

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Dietvert
  • 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
D

Dietvert

XLDnaute Nouveau
Bonjour,

J'ai essayé de trouver un post sur le formum qui parlerai de mon soucis, mais je n'en ai pas trouvé, veuillez m'excuser au cas ou un cas similaire aurait été traité.Je vais essayer d'être le plus explicite que possible.

Je souhaite créer une macro qui me permettrait d'automatiser l'exportation de données se trouvant dans quelques cellules, dans un tableau (onglet : Listensembles).

J'ai donc utilisé l'enregistreur automatique d'excel 2007, et j'arrive presque à ce que je veux mais je ne sais pas comment créer une variable car ma macro ne fonctionne que pour un seul onglet : PAIN AU RAISIN car c'est avec cet onglet que j'ai enregistré la macro.

Voici le code :
------------------------------------------------

' AjoutEnsemble Macro
'

'
Sheets("Listensembles").Select
ActiveWindow.SmallScroll Down:=-39
Rows("6:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A6").Select
ActiveCell.FormulaR1C1 = "='PAIN AU RAISIN'!R[-2]C[1]"
Range("B6").Select
ActiveCell.FormulaR1C1 = "='PAIN AU RAISIN'!R[-1]C"
Range("C6").Select
ActiveCell.FormulaR1C1 = "='PAIN AU RAISIN'!R[4]C[2]"
Range("D6").Select
ActiveCell.FormulaR1C1 = "='PAIN AU RAISIN'!R[1]C[1]"
Range("E6").Select
ActiveCell.FormulaR1C1 = "='PAIN AU RAISIN'!R[-2]C:R[-2]C[1]"
Range("A6:E6").Select
Range("E6").Activate
Selection.Font.Bold = False
Range("A6").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'PAIN AU RAISIN'!A1"
End Sub
--------------------------------------------------

L'onglet PAIN AU RAISIN est une fiche dans laquelle il y a des donnés que je souhaite exporter automatiquement dans l'onglet Listensembles. Mon soucis c'est que j'ai environs 200 onglets dans lequel j'aurai à exporter les mêmes cellules !

Je pense ne pas être loin de la solution, mais je suis novice en VBA.
Je pense qu'il faudrait pouvoir remplacer :

='PAIN AU RAISIN'

par le nom de l'onglet de la fiche en cours.


Merci pour votre aide.🙂
 
Trier par date Trier par votes
Re : Créer variable VBA sur Excel

Bonjour,

Je ne suis pas sûr du tout, mais essaye tout de même ça si tu veux :

Ajoute Dim Onglet As String en début de macro.
Ajoute en suite Onglet = "PAIN AU RAISIN"
Remplace 'PAIN AU RAISIN' par Onglet
 
Vote positif 0 Vote négatif
Re : Créer variable VBA sur Excel

Dietvert à dit:
Ok, merci je vais essayer !

Je te dis si ca marche !
Cliquez pour agrandir...

J'ai intégré ce que tu m'as dis, mais lorsque je lance la macro, j'ai une boite de dialogue qui s'ouvre "Mettre à jour les valeurs : Onglet".

Voici la modif que j'ai faite :

-----------------

Sub test2()

' AjoutEnsemble Macro
'

'
Dim Onglet As String
Onglet = "PAIN AU RAISIN"
Sheets("Listensembles").Select
ActiveWindow.SmallScroll Down:=-39
Rows("6:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A6").Select
ActiveCell.FormulaR1C1 = "=Onglet!R[-2]C[1]"
Range("B6").Select
ActiveCell.FormulaR1C1 = "=Onglet!R[-1]C"
Range("C6").Select
ActiveCell.FormulaR1C1 = "=Onglet!R[4]C[2]"
Range("D6").Select
ActiveCell.FormulaR1C1 = "=Onglet!R[1]C[1]"
Range("E6").Select
ActiveCell.FormulaR1C1 = "=Onglet!R[-2]C:R[-2]C[1]"
Range("A6:E6").Select
Range("E6").Activate
Selection.Font.Bold = False
Range("A6").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Onglet!A1"
End Sub

------------
 
Vote positif 0 Vote négatif
Re : Créer variable VBA sur Excel

Bonjour,

Voici un morceau de code qui va déjà te faire aller plus loin:

Code: 
'Pour chaque feuille dans l'ensemble des feuilles
For Each Sheet In Sheets
    'Si le nom de la feuille est différent de "Listensembles" exécuter la suite du code! Peut être te faudra t'il ajouter des feuilles supplémentaire à nier
    If Sheet.Name <> "Listensembles" Then
        Sheets("Listensembles").Rows("6:6").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("A6").FormulaR1C1 = "='" & Sheet.Name & "'!R[-2]C[1]"
        Range("B6").FormulaR1C1 = "='" & Sheet.Name & "'!R[-1]C"
        Range("C6").FormulaR1C1 = "='" & Sheet.Name & "'!R[4]C[2]"
        Range("D6").FormulaR1C1 = "='" & Sheet.Name & "'!R[1]C[1]"
        Range("E6").FormulaR1C1 = "='" & Sheet.Name & "'!R[-2]C:R[-2]C[1]"
        Range("E6").Font.Bold = False
        ActiveSheet.Hyperlinks.Add Anchor:=Range("A6"), Address:="", SubAddress:="'" & Sheet.Name & "'!A1"
    End If
Next Sheet


Bien à toi,
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Créer variable VBA sur Excel

christophe1245 à dit:
Bonjour,

Voici un morceau de code qui va déjà te faire aller plus loin:

Code: 
'Pour chaque feuille dans l'ensemble des feuilles
For Each Sheet In Sheets
    'Si le nom de la feuille est différent de "Listensembles" exécuter la suite du code! Peut être te faudra t'il ajouter des feuilles supplémentaire à nier
    If Sheet.Name <> "Listensembles" Then
        Sheets("Listensembles").Rows("6:6").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("A6").FormulaR1C1 = "='" & Sheet.Name & "'!R[-2]C[1]"
        Range("B6").FormulaR1C1 = "='" & Sheet.Name & "'!R[-1]C"
        Range("C6").FormulaR1C1 = "='" & Sheet.Name & "'!R[4]C[2]"
        Range("D6").FormulaR1C1 = "='" & Sheet.Name & "'!R[1]C[1]"
        Range("E6").FormulaR1C1 = "='" & Sheet.Name & "'!R[-2]C:R[-2]C[1]"
        Range("E6").Font.Bold = False
        ActiveSheet.Hyperlinks.Add Anchor:=Range("A6"), Address:="", SubAddress:="'" & Sheet.Name & "'!A1"
    End If
Next Sheet


Bien à toi,
Cliquez pour agrandir...


Je te remercie pour ce code, qui fonctione, c'est vraiment pas mal.

La seul chose c'est que si je lance la macro plusieur fois, il me fait des doublons. A moins que je suprime a chaque fois avant de lancer la macro.

En tout cas merci !!
 
Vote positif 0 Vote négatif
Re : Créer variable VBA sur Excel

Mon idée n'était manifèstement pas parfaite... loin s'en faut !
Le problème devait venir des guillemets et peut-être qu'avec un truc du genre
ActiveCell.FormulaR1C1 = "='" & Onglet & "'!R[-2]C[1]"
ça aurait pu fonctionner, mais je ne suis même pas sûr...

Désolé. 🙁
 
Vote positif 0 Vote négatif
Re : Créer variable VBA sur Excel

Marcel32 à dit:
Mon idée n'était manifèstement pas parfaite... loin s'en faut !
Le problème devait venir des guillemets et peut-être qu'avec un truc du genre
ActiveCell.FormulaR1C1 = "='" & Onglet & "'!R[-2]C[1]"
ça aurait pu fonctionner, mais je ne suis même pas sûr...

Désolé. 🙁
Cliquez pour agrandir...

Je te remercie pour ton aide, je vais essayer de voir ce que ça donne.

Thank
 
Vote positif 0 Vote négatif
Re : Créer variable VBA sur Excel

Re,

Marcel ton idée était bonne, un très bon début... mais vu que sa variable change selon le nom de la feuille et qu'il a plus de 200 feuilles le but est qu'il ne doit pas à chaque fois entrer le nom de la feuille. Donc il faut automatisé les noms de feuilles avec une boucle...

Bien à toi,
 
Vote positif 0 Vote négatif
Re : Créer variable VBA sur Excel

christophe1245 à dit:
Re,

Marcel ton idée était bonne, un très bon début... mais vu que sa variable change selon le nom de la feuille et qu'il a plus de 200 feuilles le but est qu'il ne doit pas à chaque fois entrer le nom de la feuille. Donc il faut automatisé les noms de feuilles avec une boucle...

Bien à toi,
Cliquez pour agrandir...

Oui, c'est bien ça pour les 200 feuilles, le but est de ne pas modifier à chaque fois le code.

Christophe, j'ai l'impression que cette commande ne fonctionne pas :

If Sheet.Name <> "Listensembles, Accueil, Articles, Fiche" Then
Sheets("Listensembles").Rows("6:6").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

car il me copie même les données de l'onglet Listensembles.
il y a d'autre onglet que je voudrais qu'il n'analyse pas, comment faire?

Merci
 
Vote positif 0 Vote négatif
Re : Créer variable VBA sur Excel

christophe1245 à dit:
Re,

Code: 
If Sheet.Name <> "Listensembles" And Sheet.Name <> "Temp" Then

Ajoute les feuilles de cette façon...

Bien à toi,
Cliquez pour agrandir...

SUPER GENIALE 🙂 ça fonctione, merci beaucoup christophe, je vais gagner un temps fou et surtout je ne vais eviter les erreurs !!

C'est vraiment chouette de trouver de bonne âme charitable.

Un grand merci 🙂🙂
 
Vote positif 0 Vote négatif
Re : Créer variable VBA sur Excel

Dietvert à dit:
SUPER GENIALE 🙂 ça fonctione, merci beaucoup christophe, je vais gagner un temps fou et surtout je ne vais eviter les erreurs !!

C'est vraiment chouette de trouver de bonne âme charitable.

Un grand merci 🙂🙂
Cliquez pour agrandir...

Salut Christophe, encore merci pour ce coup de pouce, j'ai pu améliorer ton code en fonction de mes besoins.

Cependant, est-il possible d'empêcher qu'il scan tous les onglets mis a part ceux que j'ai ecris, et aussi ceux qui commenceront commençant par un début de nom ?

Enfaite j'ai des onglets qui se génèrent automatiquement via une macro qui commence par INGREDIENT, mais que je ne voudrais pas avoir dans mon tableau.

Merci d'avance.
 
Vote positif 0 Vote négatif
Re : Créer variable VBA sur Excel

Bonsoir dietvert,

Puisque Christophe à l'air absent, essaie avec ceci
Code: 
If Sheet.Name <> "Listensembles" And Sheet.Name <> "Temp" And Left(Sheet.Name,10)<>"INGREDIENT" Then

Bonne soirée
 
Vote positif 0 Vote négatif
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

V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
106
vazvaz
V
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
146
job75
job75
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
255
xavieralvaro
X
K
  • Question Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
323
vgendron
vgendron
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
559
Phil69970
Phil69970
ph.vanne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
554
ph.vanne
ph.vanne
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
167
Pierreavecunp
P
M
  • Résolu(e)
XL 2010 Code VBA pour Appeler un onglet avec texte + variable
Réponses
9
Affichages
914
Phil69970
Phil69970
J
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
863
jebibo
J
Bernard38
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
2 K
mapomme
mapomme
J
  • Résolu(e)
XL 2021 Aide code VBA - à partir de deux listes, créer une base de donnée
2
Réponses
22
Affichages
1 K
merinos-BernardEtang
merinos-BernardEtang
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
522
Gégé-45550
Gégé-45550
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
253
ManuEven
M
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
541
telemarrk
T
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
578
Chaton77
Chaton77
G
  • Question Question
Microsoft 365 vba intégrer réf onglet dans code sauvegarde
Réponses
2
Affichages
540
patricktoulon
patricktoulon
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
780
marie3107
M
D
  • Question Question
Microsoft 365 Problème de format de cellule en VBA
Réponses
11
Affichages
777
David
D
Etoto
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
376
Etoto
Etoto
cocro
  • Question Question
Microsoft 365 Créer autant d'onglet que de commune dans ma base principale
Réponses
14
Affichages
715
job75
job75
Retour