Résultats de la recherche

Bonjour, Au lieu d'ajouter un nouvel onglet, vous dupliquez un onglet modèle contenant l'événement.

Bonjour, A condition que l'onglet TEXTE existe : Sub Macro8() Dim Pvt As PivotTable ActiveWorkbook.RefreshAll Sheets("TEXTE").Cells.Clear Set Pvt = Sheets("TCD").PivotTables("Tableau croisé dynamique5") With Pvt .PivotSelect "TC[All]", xlLabelOnly, True...

Bonjour, Le plus simple serait de créer une macro complémentaire (.xlam) qui contiendrait votre formulaire et qui agirait sur le classeur actif. Il y a des exemples sur les forums. Si cette macro doit être utilisée sur d'autres postes, il suffit de diffuser le fichier .xlam.

Bonjour, Vous avez sauvegardé votre Normal.dotm sous un autre nom ? Si oui, avez-vous essayé de le rouvrir une fois Word lancé ? Votre fichier se situe dans C:\Users\Votre user\AppData\Roaming\Microsoft\Templates

Bonjour, A tester :

Bonjour, A tester

Bonjour, Si une fonction VBA est possible : Nb: Les dates de départ sont incluses dans le calcul. Function NbJours(ByVal DateDebut As Date, ByVal DateFin As Date) As Integer Dim DateEnCours As Date NbJours = 0 For DateEnCours = DateDebut To DateFin Select Case...

Il faut mettre le code dans un module standard. Dans le fichier joint, la macro est déclenchée par le bouton vert dans la barre d'accès rapide.

Bonjour, La forme n'est pas la même que votre tableau d'origine, mais cela me paraît suffisant. Option Explicit Sub ListerLesDoublons() Dim I As Integer, J As Integer, DerniereLigne As Integer, IndexListe As Integer Dim ListeSansDoublons As Object Dim Cellule As Range, AireCellules As...

Bonjour, Je vous souhaite un bon rétablissement.

Au cas où La macro se lance avec le bouton vert dans la barre d'accès rapide.

Bonjour, A tester : Sub ImportFm() With ActiveSheet ChargerLaListeDesFM .Range("A2:A800") End With End Sub Sub ChargerLaListeDesFM(ByVal AireFM As Range) Dim I As Integer, J As Integer, K As Integer Dim ListeFm As Object Dim Fm As String Dim ListeCles As Variant, TabFm As Variant...

Bonjour, Il vous faut adapter les propriétés de la Combobox et charger les deux colonnes. Par exemple: BoundColumn reste à 1, elle correspond à la valeur que vous restituerez (BB92) ColumnCount = 2 (vos deux colonnes) ColumnWidths 0;100 avec 0 on rend invisible la première colonne.

Bonjour, Ce que vous n'indiquez pas, c'est le taux d'absentéisme parmi les enseignants. Le problème étant souvent récurrent, vous avez peut être fait des statistiques 🤬 ... A chaque enseignant défaillant, il vous faut donc un plan B avec un suppléant dont on espère qu'il ne sera pas absent en...

C'est ce qu'on a dans les cellules de C46 à C57 avec la formule : =INDEX(t_Ca;EQUIV(B46;MoisFiscaux;0);EQUIV($C$45;t_Ca[#En-têtes];0))

Pas sur d'avoir compris... Il faudrait expliquer sur le fichier que j'ai transmis ce qu'il faut faire.

Bonjour, Pas sur d'avoir répondu à la question... Faire le choix de l'année fiscale dans la cellule C45. Le tableau des données est un tableau structuré appelé t_Ca

Bonjour, Regardez si la méthode SaveCopyAs pourrait convenir. Vous sauvegardez votre fichier avant toute modification. Il vous faudra ensuite créer une macro pour copier coller les données. Vous pourriez aussi transformer votre fichier d'origine en fichier modèle .xltm et créer un nouveau...

Bonjour, Essayez ce code : Sub copier_coller() Dim ShSource As Worksheet Dim WbCible As Workbook Set ShSource = Sheets("original report") Set WbCible = Workbooks.Open(Filename:= _ "C:\Users\pralo\Documents\Documents pralo\Rapport TME\pralo REPORT SERVICE\Service Report.xlsm")...