Résultats de la recherche

Merci tout le monde toutes vos solutions fonctionnent !

J'ai réussi a transposer avec ce code : Mais pas moyen d'insérer une colonne sur deux avec l'info souhaitée

Bonjour tout le monde, Petite question du jour, je souhaiterai mettre en colonne des lignes avec un espace de 1 colonne entre chaque colonne. J'ai bien essayé de me chercher ma solution ne fonctionne pas du tout : Sub transposetest() Dim i As Integer Dim NL As Range i = 1 NL =...

Alors : Allez dans l'onglet développeur, et accédez au petit dossier "Feuilles" Cliquez sur USFperiode Double ciquez sur le sélecteur des années, vous arriverez sur le code qu'il contient Descendez et trouvez le texte : "Private Sub UserForm_Initialize()" et ajoutez en dessous de ...

Je travaille actuellement sur un envoi de mail également, mais pour votre demande, je pense qu'il ne soit pas possible de prendre plusieurs adresses mails provenant d'une seule cellule. Votre question est toujours d'actualité ?

Une période dans une seule cellule ?

Dans ton code VBA tu souhaites mettre la date dans une seule cellule ou dans toutes les cellules d'une ligne ? Sans fichier ou partie de fichier compliqué de faire mieux :)

Salut @Mouchette il manque le fichier en question

Trop rapide pour moi

Et voilà ! Il faut libérer les volets (affichage -> libérer les volets)

Bonjour tout le monde ! J'aimerai que le code suivant : Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.DisplayAlerts = False If Sheets("YT").PivotTables("Tableau croisé dynamique20").PivotFields("Ag. Analytique").PivotItems("Test").Visible = False...

Bonjour Patrick, J'avais chopé ca sur un bout de code sur le net ^^ Que fait DIR alors ?

Re, J'ai eu un coup de main pour trouver la solution que voici : Sub ImportBDDCM() Dim Fichier As String 'Acceleration du traitement des données Application.ScreenUpdating = False Fichier = Application.GetOpenFilename("Fichiers csv, *.csv") If Fichier =...

Bonjour tout le monde ! Me voilà avec le nouveau problème du moment ! La macro suivante : Sub ImportBDDCM() Dim Fichier As String 'Acceleration du traitement des données Application.ScreenUpdating = False Fichier = Application.GetOpenFilename(FileFilter:=" Excel...

Alors là chapeau bas ! Il faut "juste" que je me familiarise avec power query mais quel outil !

Bonjour ! J'espère que vous allez bien ! Voici le problème du jour : J'ai deux TCDs qui proviennent de deux BDD différentes, et je ne peux pas depuis l'outil de TCD pour affecter des slicer (trancheur) (segment) à mes différents TCds comme ils ne proviennent pas de la même base. Cependant...

Bonjour tout le monde ! Je reviens vers vous avec un nouveau problème : Je souhaite enregistrer automatiquement mes onglets dans un nouveau fichier en fonction de la date actuelle. C'est c'est bon. Cependant, quand je veux utiliser la fonction MkDir() pour créer mon fichier, la première...

Oui c'est parfait merci !!!

Edit 2 : Solution : Sub gfugs() ' ' gfugs Macro ' Dim col As Integer Dim ColABouger As Integer col = 26 Do While col < 1000 If ActiveWorkbook.Worksheets("Hypothèses Technique").Cells(3, col) <> "" Then col = col + 5 Else ColABouger = col - 5 GoTo tartanpion End If...

Edit : Evolution de ma macro : Sub gfugs() ' ' gfugs Macro ' Dim col As Integer Dim ColABouger As Integer col = 26 Do While col < 1000 If ActiveWorkbook.Worksheets("Hypothèses Technique").Cells(3, col) <> "" Then col = col + 5 Else ColABouger = col - 5 GoTo tartanpion...