Résultats de la recherche

  1. Sophie11

    Trouver une valeur en VBA pour la remplacer par la valeur de sa colonne A

    Bonjour, Je dispose d’une plage B1:P50 avec des prénoms. je souhaite créer une macro qui me permettrais de remplacer le prénom «*SOPHIE*» par la valeur de la colonne A. j’ai fait une recherche sur le forum et j'ai réussi créer la fonction excel ci-dessous: =SI(B9="SOPHIE";A9;B9)...
  2. Sophie11

    RechercheV sur un fichier externe sans connaitre completement le nom du classeur

    Bonjour, Pouvez-vous m'indiquer le code pour effectuer un rechercheV de donnée dont le tableau a chercher se situe dans un autre classeur. Ce classeur est ouvert mais change de nom régulierement sauf le début. Exemple: Soit 2 classeurs ouvert : data_a_chercher_XXXX.xls (XXXX change...
  3. Sophie11

    Selection.Count

    Bonjour, Je souhaite compter mes cellules mais je voudrais pas que ca selectionne ma plage de cellules, est-il possible d'uliser du 'activate' ?? Sheets("Sheet1").Range("A2").Activate Range(Selection, Selection.End(xlDown)).Select nbre_de_lignes = Selection.Count Merci :)
  4. Sophie11

    Problème de Filtre

    Bonjour, Ma feuille excel contient un filtre automatique mais il arrive parfois qu'un filtre soit activé sur un critère. J'ai écris une macro qui me permets d'effacer une partie de mes données : Sheets("Sophie").Range("A8:H" & [E65536].End(xlUp).Row).ClearContents Pour bien prendre en...
  5. Sophie11

    Pb de onversion en date

    Bonjour, J'importe un fichier avec des dates format anglais (mm/dd/yyyy) Mais le problème c'est que excel convertis mes dates inferieure a douze mois en date. exemple: 02/09/2010 (9 février 2010) il me le convertit en 02/09/2010 (2 sept 2010) Comment faire pour ne pas que ca se produise...
  6. Sophie11

    Remplacer une valeur par une autre

    Bonjour, je souhaite remplacer la valeur "Sophie" par "Jolie" sur tout le range A2 jusqu'à qu'il ne contient plus de valeurs. j'ai fais ce code amsi il est incorrect... Sheets("Sheet1").Range("A2:A").End(xlUp).Row.Replace What:="Sophie", Replacement:="Jolie", LookAt:=xlPart, _...
  7. Sophie11

    Ouvrir un fichier qui contient une date

    Bonjour je souhaite faire un rechercheV en VBA en connaissant le nom du fichier qui depant de la date exemple: faire une recherche sur un fichier du jour: Sophie2508.xls (onglet cuisine) donc je défini mon fichier : sophieate = Date ChDir "F:\Macro" Workbooks.Open Filename:= _...
  8. Sophie11

    Enregistrement de fichier word suivant un champs

    Bonjour, j'utilise du publipostage Word à partir de valeur Excel et je souhaite enregisrer mon fichier Word dont le nom correspond à la valeur d'un champs de fusion présent dans le document word (nom du champs: FRUIT) Comment faire pour récupérer la valeur de ce champs ? Ci-dessous mon code...
  9. Sophie11

    Enregistrer un document suivant nom

    Bonjour, j'utilise du publipostage Word à partir de valeur Excel et je souhaite enregisrer mon fichier Word dont le nom correspond à la valeur d'un champs de fusion présent dans le document word (nom du champs: FRUIT) Comment faire pour récupérer la valeur de ce champs ? Ci-dessous mon code...
  10. Sophie11

    Effacer tous les onglets sauf 1

    Bonjour Je dispose d'un classeur de plusieurs onglets: onglet1: pomme onglet2: poire onglet3: orange Je voudrais effacer tous mes onglets sauf poire. Je peux faire : Sheets("pomme").delete Sheets("orange").delete Mais j'aimerais faire un code sans utiliser le nom de mes onglet...
  11. Sophie11

    Triple condition dans fonction SI

    Je me pose une question pour réaliser cette multiple condition en fonction VBA Si A1= sophie1 ET si A2=sophie2 ET si A3=sophie3 alors MsgBox "Sophie Vrai" sinon MsgBox "Sophie Faux" Merci pour votre aide. :) :)
  12. Sophie11

    Gestion des erreurs #2

    J'ai une macro qui va ouvrir un fichier spécifique, si ce fichier n'existe pas ma macro m'envoie sur l'éditeur. J'aimerais créer un message box : "La macro va s'arreter" je sais faire juste : MsgBox "La macro va s'arreter" Exit Sub Je ne sais pas indiquer en vba "si la macro trouve pas...
  13. Sophie11

    Arret de la macro si une cellule contient une valeur

    Bonjour, J'ai un tableau avec des valeurs et je voudrais que lorsque une cellule de la colonne K contient la valeur #N/A, un message box s'affiche avec un message qui dit que la macro s'arrete. J'ai développé ce code : For s = Range("A65536").End(xlUp).Row To 2 Step -1 If Range("D" & n)...
  14. Sophie11

    Option dans VB Editor

    Bonjour, J'ai vu un ecran de VBEditor où lorsque on déplacait le curseur de la souris sur le code VBA, il apparait en dessous dans un cadre jaune, l'exécution de la ligne je crois. Je sais pas si je suis trés claire :( mais je ne suis pas sur sur ce qui s'affichait au niveau de la souris. Ca...
  15. Sophie11

    Gestion des erreurs

    Bonjour, Si je supprime une feuille mais cette feuille n'existe pas, je voudrais que la macro continue de s'exécuter. Comment faire pour ne pas avoir un message d'erreur??? Mercii :) :) Sheets("feuille_sophie").delete
  16. Sophie11

    Modifier une cellule selon critere dur dur dur

    Bonjour, J'ai un tableau qui a quelques fois 2 valeurs identique dans la colonne A avec tjrs la 2ieme ligne pas renseigné. J'aimerais créer une macro qui me permette de modifier ce tableau de la facon suivante: (voir fichier joint) Je voudrais modifier la valeur de ma cellule C3 par ma...
  17. Sophie11

    Effacer des lignes

    Bonjour, J'ai un code qui me permet d'effacer des lignes si ma cellule contient la valeur "Sophie". Le problème c'est que l'execution du code est beaucoup trop long. Je me demandais si il était possible d'optimiser ce code? For n = Range("B65536").End(xlUp).Row To 3 Step -1 If...
  18. Sophie11

    Rechargement d'un classeur partagé

    Actualiser un classeur partagé Bonjour, Est il possible de créer une macro qui recharge un classeur excel partagé si des modifications ont eu lieu? J'ai indiqué 5 minutes pour les "update change automatically" mais j'aimerais aussi créer un bouton pour le faire manuellement.. merci...
  19. Sophie11

    Copier une feuille sans formule

    Bonjour, J'ai une feuille d'un classeur contenant plein de formule, je souhetrais "extraire" cette feuille avec uniquement ces valeurs (sans ses formules) Mon code est le suivant : ActiveSheet.Copy Cells.Select Selection.Copy Range("A1").Select Selection.PasteSpecial...
  20. Sophie11

    Mise en forme conditionnelle

    Bonjour, Comment identifier toutes les mise en forme diponible sous ma feuille???