Profil de Lameche15

Fonction Excel ou macro?

Bonjour, J'ai un classeur excel avec plusieurs feuilles. Seule la première est utilisée par l'utilisateur. Dans la cellule K4 je souhaiterais mettre une fonction type RechercheV ou Sommeprod qui donnerait le résultat tel que pour toutes les cellules remplies dans ma feuille2( 4400 lignes) si feuil1.B4 = feuil2.A ET feuil2.H < feui... Lire la suite

Je ne comprends pas ce qu'il se passe, j'ai tenté plusieurs format de données et je ne comprends pas pourquoi cela ne fonctionne pas à 100%. Est-il possible de joindre mon tableau? Peut-être que quelqu'un voudra bien y jeter un coup d'oeil? --

Petite précision. En faisant du pas à pas je m'aperçois que le programme fonctionne pour les valeurs de 0.0000 à 9.9999. Au-delà le test reste négatif sur la 2nde boucle If!!!!!! Je crois que j'ai besoin de vacances!! --

Ouverture de fichier sans connaître le nom [Résolu]

Bonjour, Je souhaiterais pouvoir balayer tous les sous-dossiers contenant chacun un fichier excel et après l'ouvrir, copier la première ligne et la coller dans le classeur contenant la macro. J'ai commencé à écrire le code suivant: Sub Liste_Unique()Racine = CurDirSet fs = CreateObject("Scripting.FileSystemObject")Set Dossier = fs... Lire la suite

Pardon autant pour moi j'ai trouvé mon erreur, d est suffisant puisque le dir me retourne le chemin en entier jusqu'au sous dossiers Merci infiniment pour votre aide --

Du coup je tente ce code mais rien n'y fait: Sub Liste_Unique()Dim Racine, nomfichier, fichier As StringRacine = "F:\Dossiers Communs\THM\RECENSEMENT DES MS\Fichiers à envoyer à AREO\MURS"Set fs = CreateObject("Scripting.FileSystemObject")Set Dossier = fs.getfolder(Racine) For Each d In Dossier.SubFolders nomfichier = Dir(...

Fonction somme si en fonction du nom d'onglet [Résolu]

Bonjour, Je butte depuis plusieurs jours sur une macro simple de calcul de somme si en fonction de la couleur de fond et du nom d'un onglet. J'ai un onglet "Récapitulatif" ou je souhaite utiliser mes fonctions. De la cellule B7 à la cellule AI7, figurent mes numéros de semaine. De la cellule B22 à la cellule AI22, j'y appelle... Lire la suite

Merci pour ton aide, je ne vois pas bien comment je peux faire autrement qu'utiliser la méthode Select. Peut-etre une idée? --

Enregistrer une pièce jointe sous oulook 2003

Bonjour, La plupart des scripts trouvés sur le net ne sont pas adaptés pour mon cas qui semble plus simpliste. Je souhaite que l'utilisateur ouvre manuellement le message et en cliquant sur un bouton il lance la macro qui permet d'enregistrer la (seule et unique) pièce jointe du message dans un répertoire prédéfini. J'ai écrit ceci: S... Lire la suite

Rien du tout il plante avant. --

Avec ceci, pas plus de succès

Afficher une valeur dans une cellule en fonction d'un test

Bonjour, j'ai pas mal recherché sur le forum et sur google pour régler mon problème qui doit être tout bête mais je finis malheureusement par poser la question ici. Voilà, j'ai 2 feuilles dans mon classeur. Sur l'une j'ai une liste qui contient une colonne avec Nom Prénom et l'autre colonne avec les adresses mails des personnes. Dans l'... Lire la suite

J'ai donc fini par écrire ceci qui fonctionne parfaitement après avoir supprimé ma liste. Liste Tech est en fait le nom de la feuille. Cette même formule ne fonctionne pas avec une liste j'ai donc fait une simple plage de données =SI($B12="";"";RECHERCHEV($B12;'Liste Tech'!A2:B7;2;0)) Merci pour votre aide Toujours aussi agréa...

Merci pour ton aide. J'ai du mal m'exprimer et même peut être me tromper de forum. Je souhaite faire avec une fonction et non pas avec une macro si cela est possible. J'ai tenté ceci =SI($B12="";"";RECHERCHEV($B12;Liste Tech;2;0)) ou encore (RECHERCHEV($B12;Liste Tech;2;0) à chaque fois j'obtiens #NA

Probleme méthode PasteSpécial [Résolu]

Bonjour, La méthode PasteSpécial de l'objet range à échoué. Voilà le message d'erreur que je reçois en lançant la macro suivante: Private Sub CommandButtonOK_Click()Dim numsemaine As IntegerApplication.Selection.Copy'MsgBox ActiveSheet.Namenumsemaine = Semaine.TextBoxNumSheets("Semaine Type").Copy Before:=Sheets(1)Sheets("Semaine... Lire la suite

Moi je dis, à ce niveau la de bêtise, il faut arrêter le vba. Merci ucfoutu de m'avoir sorti la tête du guidon...

Merci ucfoutu, Malheureusement je ne trouve pas comment faire si plage cible n'est pas prédéfinie dans ma macro. Je voudrais que la plage selectionnée d'une feuille se copy dans une plage prédéfinie d'une autre. Worksheets(nomfeuille).Range("F7:S35").Copy _ Destination:=Worksheets("Sem" & numsemaine).Range("D11") A savoir ...

Après avoir lu de nombreux posts sur le sujet j'ai l'impression que mon problème est insoluble. Bref, Je souhaiterais changer de méthode et utiliser un truc du style: Sheets(1).Range(X)=Sheets(2).Range(Y) Mais en conservant les mises en forme notamment la couleur de remplissage. Qqn sait-il faire cela? Merci d'avance

Ecrire dans un fichier excel à partir d'une macro vba word

Bonjour, J'ai un fichier Word duquel je lance une macro. (publipostage avec enregistrement du fichier avec un nom prédéterminé (DocName).) En parallèle, j'ai un fichier Excel qui est ouvert et où je sélectionne une cellule. Je souhaiterais qu'à la fin de ma macro Word, je puisse lui faire inscrire la variable DocName dans la... Lire la suite

Vous êtes très gentils et surtout très compétents mais je vous rappelle que mon coeur de métier n'est pas l'informatique et que je fais tout cela parce que j'ai qq bases et de lointains souvenirs. Maintenant faut savoir que cette "application" est destinée à des personnes qui savent tout juste allumer un ordinateur. ALors ma procédure...

Autant pour moi il manquait un espace entre New et DataObject Bon la solution à ucfoutu fonctionne avec le presse papier. Ce qui me donne une idée: Plutôt que de coller manuellement la valeur du presse papier Peut etre puis-je passer par ma macro excel pour récupérer cette valeur dans le presse papier et la coller automatiquemen...

Encore pardon mais j'écris ceci qui ne fonctionne pas Dim MonNomArrete As DataObject Set MonNomArrete = NewDataObject MonNomArrete.SetText ("" & DocName) MonNomArrete.PutInClipboard J'ai lu qqpart qu'il fallait cocher la Référence Microsoft forms 2.0 Object Librar...

Ben oui il le connait mais après le publipostage --

Transformer veut dire qu'une valeur était bien présente avant traitement. C'est cette valeur, que j'appelle N° de dossier à traiter. C'est exactement ça. Pour simplifier: Ce que je veux faire avec ma macro word qui enregistre le fichier traité sur un serveur c'est venir mettre son nom dans ma cellule excel afin que je n'ai pas à l...

En fait ce numéro est une combinaison de plusieurs champs de fusion. Il est donc connu à la fin de l'exécution de ma macro publipostage. Ou si on ne fait pas cette macro, on peut utiliser le publipostage word et enregistrer le document manuellement ce que je voudrais éviter. Mon document type de publipostage est donc un doc word lié à...

Bonjour à tous, et merci infiniment pour votre aide. Je retiendrai dans un 1er temps la solution de Ucfoutu mais je garde sous le coude celle de cs_Le pivert que j'essaierai à temps perdu d'appliquer à mon projet. Je vous explique mon projet d'ailleurs, comme cela peut etre aurez-vous une autre approche à me proposer. Donc, j'ai un...

Peux etre me dire comment utiliser ton code. J'ai ecrit Option Explicit du coup j'ai du déclarer touts les variables que j'utilise dans ma macro (Docname, lig...) Dois-je aussi utiliser Private sub Worksheet_SelectionChange..? Dans ce cas comment faire le lien entre les 2 macros? --