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

Macro Générique / choisir l'onglet pour appliquer la macro

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

GADENSEB

XLDnaute Impliqué
Bonjour Le Forum,

j'ai une question bête mais je n'arrive pas à comprendre le systéme

Dans une BDD excel j'ai 2 USF et 2 Onglets


Comment faire pour lancer une macro pour à partir d'un onglet pour quel affecte l'autre onglet.

Dois-je la mettre dans un module ?

Schéma général

- Onglet 1 avec un bouton d'action
- Module avec la macro
- Onglet 2 -> Onglet modifié

Comment dit-on dans la macro d'aller affecter l'onglet 2 ?


Merci par Avance

Bonne journée

Seb
 
Trier par date Trier par votes
Re : Macro Générique / choisir l'onglet pour appliquer la macro

Yes !

et avec une macro comme celle la ?

Code: 
Sub DATEGOOGLEAGENDA()

'Convertit la DATERELANCE en Format de DATE pour GOOGLEAGENDA
j = Range("A1").End(xlDown).Row
For i = 2 To j
  Cells(i, "AP") = "'" & Format(Cells(i, "AL"), "yyyy-mm-dd")
 Cells(i, "A") = Cells(i, "B") & "-" & Cells(i, "C") & "-" & Cells(i, "AF") & "-" & Cells(i, "BB")
Next


End Sub
 
Vote positif 0 Vote négatif
Re : Macro Générique / choisir l'onglet pour appliquer la macro

Re,

possible d'utiliser aussi un bloc "with"
Code: 
With Sheets("NomFeuille")
    For i = 2 To j
       .Cells(i, "AP") = "'" & Format(.Cells(i, "AL"), "yyyy-mm-dd")
        .Cells(i, "A") = .Cells(i, "B") & "-" & .Cells(i, "C") & "-" & .Cells(i, "AF") & "-" & .Cells(i, "BB")
     Next
End With
 
Vote positif 0 Vote négatif
Re : Macro Générique / choisir l'onglet pour appliquer la macro

mmmmm
je coince sur


Code: 
Sub DATEGOOGLEAGENDA()
With Sheets("BASE EMPLOI")
'Convertit la DATERELANCE en Format de DATE pour GOOGLEAGENDA
j = Range("A1").End(xlDown).Row
For i = 2 To j
Cells(i, "AP") = "'" & Format(Cells(i, "AL"), "yyyy-mm-dd")
Next
End With

End Sub
 
Vote positif 0 Vote négatif
Re : Macro Générique / choisir l'onglet pour appliquer la macro

Re,

quand tu utilises un bloc "with" il faut mettre des points devant les propriétés, objets auquels tu veux l'appliquer...
Code: 
With Sheets("BASE EMPLOI")
 'Convertit la DATERELANCE en Format de DATE pour GOOGLEAGENDA
 j = .Range("A1").End(xlDown).Row
 For i = 2 To j
 .Cells(i, "AP") = "'" & Format( .Cells(i, "AL"), "yyyy-mm-dd")
 Next
 End With
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro Générique / choisir l'onglet pour appliquer la macro

MMMMM

J'ai bien mis, mais cela ne veut pas fonctionner .....

Code: 
Sub DATEGOOGLEAGENDA()
With Sheets("BASE EMPLOI")
'Convertit la DATERELANCE en Format de DATE pour GOOGLEAGENDA
j = .Range("A1").End(xlDown).Row
For i = 2 To j
.Cells(i, "AP") = "'" & Format(Cells(i, "AL"), "yyyy-mm-dd")
Next
End With

End Sub
 
Vote positif 0 Vote négatif
Re : Macro Générique / choisir l'onglet pour appliquer la macro

Oups !!!
J'ai vu mon erreur
Merci

Code: 
Sub DATEGOOGLEAGENDA()
With Sheets("BASE EMPLOI")
'Convertit la DATERELANCE en Format de DATE pour GOOGLEAGENDA
j = .Range("A1").End(xlDown).Row
For i = 2 To j
.Cells(i, "AP") = "'" & Format(.Cells(i, "AL"), "yyyy-mm-dd")
Next
End With

End Sub
 
Vote positif 0 Vote négatif
Re : Macro Générique / choisir l'onglet pour appliquer la macro

Par contre celui-ci ne veut pas passer

Code: 
Sub CODEBASE()
With Sheets("BASE EMPLOI")
j = .Range("B1").End(xlDown).Row
For i = 2 To j
 .Cells(i, "A") = .Cells(i, "B") & "-" & .Cells(i, "C") & "-" & .Cells(i, "AF") & "-" & .Cells(i, "BB")
 Next
End With
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

  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
1 K
Eric 888
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
621
JJ69
J
G
  • Résolu(e)
XL 2019 macro pour masquer puis afficher colonnes a la demande
Réponses
4
Affichages
310
Phil69970
J
  • Résolu(e)
Microsoft 365 macro effacement sélection cellules
2 3 4
Réponses
55
Affichages
4 K
Phil69970
S
  • Question Question
Autres macro au ruban qui ajoute une feuille avec menu déroulant
Réponses
5
Affichages
720
Sirberthoult
S
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
963
Dock91
D
E
  • Résolu(e)
Microsoft 365 Conception d'un outils alliant faciliter d'utilisation et optimisation de la RAM/Processeur/Espace Disque
Réponses
6
Affichages
916
elgringo123456
E
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
591
Lu76Fer
B
  • Question Question
XL 2016 Macro BVA pour créer une synthèse à partir de plusieurs onglets Excel
Réponses
6
Affichages
1 K
bnolwalid
B
S
  • Question Question
Microsoft 365 Macro pour addition dynamique de donnees
Réponses
8
Affichages
1 K
AtTheOne
G
  • Résolu(e)
Microsoft 365 Formule avec pour référence le résultat d'une autre formule pour indiquer la colonne de référence
Réponses
1
Affichages
844
JHA
J
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
935
GADENSEB
  • Question Question
Microsoft 365 Soucis boucle pour Compléter deux datas base avec un seul usf
Réponses
1
Affichages
727
GADENSEB
  • Résolu(e)
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
10 K
TooFatBoy
C
  • Question Question
XL 2016 Liste intuitive dans menu déroulant
Réponses
6
Affichages
1 K
com689
C
L
  • Résolu(e)
XL 2019 Envoi Mail PDF (mise en forme)
Réponses
2
Affichages
1 K
LuanaDDC
L
C
  • Résolu(e)
Microsoft 365 Macro pour générer du contenu en masse
2
Réponses
17
Affichages
2 K
Coralie01120
C
A
  • Question Question
Microsoft 365 Macro copier selon critères
Réponses
1
Affichages
952
Lolote83
L
S
  • Question Question
Autres Lourdeur du fichier excel et lenteur du traitement macro : comment identifier les éléments générant ces lenteurs et lourdeurs et comment optimiser ?
Réponses
9
Affichages
5 K
TooFatBoy
A
  • Résolu(e)
XL 2013 Actionner les commandes présentes dans d'autres feuilles
Réponses
3
Affichages
1 K
arnoldbrice19
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…