Résultats de la recherche

Hello, Ce post va pouvoir t'aider : https://www.excel-downloads.com/threads/copie-de-donne-dans-une-autre-feuille.20020705/ J'avais eu une problématique similaire précédemment. Bonne journée,

- Alt F11 pour afficher l'interface VBA A gauche dans la fenêtre projet, clic droit puis insérer un module, tu colles le code que je t'ai donné. Si tu n'y arrives pas, tu peux téléverser le fichier concerné, je te le ferais

Hello Tarride, Tu souhaites les masquer ou les supprimer ? Pour les supprimer : Sub delete_empty_row() ' ou 2 est égal à la feuille concernée Sheets(2).Range("A2:A65000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub Pour masquer : Sub hide_empty_row() ' ou 2 est égal à la feuille...

J'ai un peu avancé en arrivant au boulot: Voila le nouveau code que j'utilise: Sub tranfertFeuilleClasseursFermes_VersAccess_V02() 'Nécessite d'activer la référence Microsoft ActiveX Data Objects x.x Library 'Nécessite d'activer la référence Microsoft ADO ext x.x for DLL and Security ' Dim Cn...

Hello Staple, oui bien sur. Les 2 références sont bien activées.

Bonjour à tous, J'ai récupéré le code de ce post. Voici le code complet que j'utilise: Sub tranfertFeuilleClasseursFermes_VersAccess() Dim Cn As New ADODB.Connection Dim oProdRS As New ADODB.Recordset, oRS As ADODB.Recordset Dim oConn As ADODB.Connection Dim j As Integer Dim Fichier As String...

Hello Lone-Wolf, Toutes mes excuses pour ce long de réponse. J'étais éloigné de tout écran pendant quelques jours ! Je te remercie de ton aide. Evictius

Bonjour à tous, Merci d'avance pour votre aide. Je dois lier une cellule à une autre cellule en fonction d'une valeur qui se trouve dans un autre feuille. Dans le fichier joint, je souhaite par exemple qui si Feuil1 Data1 est égale à Feuil2 Data1 alors la couleur est Rouge. Dans le tableau...

Merci beaucoup Lone-wolf ! Cela fonctionne à merveille.

2010

Malheureusement, ça ne fonctionne pas. En parallèle, j'ai fait ce code: Sub OpenCopyPaste() Dim Fichier As String Dim Chemin As String Dim wb As Workbook Dim ws As Worksheet Dim Fso As Object Dim FsoRepertoire As Object Dim FsoFichier As Object Chemin = "C:\repD\" Fichier = Dir(Chemin &...

Il ne se passe rien :( Sub test() Dim Fso As Object, MonRepertoire As String Dim f1 As Object, f2 As Object, wb As Workbook Set Fso = CreateObject("Scripting.FileSystemObject") MonRepertoire = "C:\repD\" For Each f1 In Fso.GetFolder(MonRepertoire).SubFolders For Each f2 In f1.Files...

Oui les données sont toutes situées sur la même feuille. J'ai modifié la ligne de code correspondante. Les fichiers Excel qui contiennent les informations à copier ne s'ouvrent pas. Je pense que le code actuel se contente de copier coller la feuille du classeur dans lequel j'exécute la macro...

ça ne fonctionne toujours pas, j'ai pris une partie de ton code pour l'ajouter sur le mien. Cela donne ça: Sub OpenCopyClose1() Dim wb As Workbook Dim ws As Worksheet Dim Fso As Object Dim FsoRepertoire As Object Dim FsoFichier As Object Dim strRepertoire As String...

Bonjour Lone-Wolf, Merci de ton aide. Cela ne fonctionne pas, j'ai une erreur "Chemin d'accès introuvable" sur cette ligne : Set FsoRepertoire = Fso.getfolder(strRepertoire)

Bonjour à tous, Voici ma problématique, je dois récupérer des données qui se trouvent sur différents classeurs et toutes les copier dans un autre classeur. J'ai glané une partie de code pour que la macro passe sur les fichiers d'un dossier. Cela fonctionne partiellement puisque je vois...

Oui, c'est tout à fait ça. Merci. Une idée de comment je pourrais faire si 2 coordonnées sont identiques ?

Bonjour à tous, Voici ma problématique, j'ai un tableau à double entrée qui représente des coordonnées pour un graphique. Lorsque que je créé le graphique "nuage de points", les coordonnées sont celles des extrémités mais je souhaiterais que le résultat s'intègre dans une zone. Je vous...

Merci infiniment !

Il me semblait l'avoir fait mais visiblement ce n'est pas passé... Un grand merci. JBARBE pourrais tu me détailler ta macro ? J'ai envoyé un tableau d'exemple mais ce n'est pas le tableau initial qui comprend des informations que je n'ai pas le droit de divulguer. Merci !