Contenu récent par Arnaud59000

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 !