IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Fonction rechercher remplacer sur selection


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Audit interne
    Inscrit en
    Juin 2014
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Audit interne
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Juin 2014
    Messages : 14
    Par défaut Fonction rechercher remplacer sur selection
    Bonjour,

    J'ai actuellement environ 100 classeurs (de statistiques de production du personnel) comprenant entre 1 a 4 tableaux, à modifier de la facon suivante :

    dans le tableau 2, je dois modifier chaque ligne avec "A1" en A2 pour la ligne 2, A3 pour la ligne 3, A4 pour la ligne 4 etc, de maniere a ce que ce soit comme dans le tableau 1.

    (Chaque feuille correspond à un agent en fait)

    Une petite image !


    Nom : Sans titre.jpg
Affichages : 2309
Taille : 544,3 Ko


    Le premier tableau est bon. Je souhaite faire en sorte que le tableau 2 devienne comme le premier (incrémentation de 1 le numéro de l'onglet à chaque ligne)

    Alors pour se faire, j'utilise une macro mais elle ne fonctionne que si le tableau se situe exactement à la même position, hors chaque classeur à une disposition différentes.

    Pouvez-vous m'aider en modifiant ma macro pour qu'elle fonctionne dans la selection active ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
     
     
    Sub Renommer_onglets()
    '
    ' Renommer_onglets Macro
    '
     
    '
        Range("C159:L159").Select
        Selection.Replace What:="A1", Replacement:="A2", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Range("C160:L160").Select
        Selection.Replace What:="A1", Replacement:="A3", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Range("C161:L161").Select
        Selection.Replace What:="A1", Replacement:="A4", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Range("C162:L162").Select
        Selection.Replace What:="A1", Replacement:="A5", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Range("C163:L163").Select
        Selection.Replace What:="A1", Replacement:="A6", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
         Range("C159:L159").Select
        Selection.Replace What:="A1", Replacement:="A7", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Range("C160:L160").Select
        Selection.Replace What:="A1", Replacement:="A8", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Range("C161:L161").Select
        Selection.Replace What:="A1", Replacement:="A9", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Range("C162:L162").Select
        Selection.Replace What:="A1", Replacement:="A10", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Range("C163:L163").Select
        Selection.Replace What:="A1", Replacement:="A11", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
           Range("C160:L160").Select
        Selection.Replace What:="A1", Replacement:="A12", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Range("C161:L161").Select
        Selection.Replace What:="A1", Replacement:="A13", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Range("C162:L162").Select
        Selection.Replace What:="A1", Replacement:="A14", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Range("C163:L163").Select
        Selection.Replace What:="A1", Replacement:="A15", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
     
    End Sub
    Je vous remercie BEAUCOUP par avance!!!

    je me tape les modifs à la main depuis lundi !!!

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 168
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 168
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Je n'ai pas regardé l'ensemble de ton code mais s'il s'agit de partir d'une sélection.
    Option 1
    il suffit de supprimer la ligne 7 (Range("C159:L159").Select).
    Tu sélectionnes la plage et tu lances ta macro.
    Option 2
    Si tu souhaites que la macro sélectionne ta plage automatiquement, tu remplaces la ligne 7 par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Selection.CurrentRegion.Select
    Pour faire fonctionner la macro, tu sélectionnes une cellule du tableau et tu lances la macro.
    Option 3
    Tu remplaces la ligne 7 par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveSheet.UsedRange.Select
    Pour faire fonctionner la macro, tu ouvres la feuille et tu lances la macro

    Idéalement, ce serait mieux de ne pas utiliser la méthode Select et l'objet Selection mais si c'est pour un travail ponctuel, je pense que cette petite modification est suffisante.
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    Membre averti
    Homme Profil pro
    Audit interne
    Inscrit en
    Juin 2014
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Audit interne
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Juin 2014
    Messages : 14
    Par défaut
    Bonjour,

    Merci pour ta réponse rapide.

    J'ai essayé les 3 solutions, aucune ne fonctionne (la selection que j'effectue est l'ensemble du tableau, sauf la premiere ligne car elle toujours bonne)

    Solution 1,2 et 3
    Toutes les lignes se retrouvent en A2 (au lieu d'incrémenter de 1 chaque ligne au niveau de la page).

    Que faire ?

    Merci !

  4. #4
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 168
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 168
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Evidemment, je n'avais regardé que les deux premières lignes du code et n'avais pas remarqué qu'il y avait des sélections pratiquement partout.
    Désolé de cette mauvaise réponse
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  5. #5
    Membre averti
    Homme Profil pro
    Audit interne
    Inscrit en
    Juin 2014
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Audit interne
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Juin 2014
    Messages : 14
    Par défaut
    Mais rassurez moi, c'est possible en VBA ??

  6. #6
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 168
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 168
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Mais rassurez moi, c'est possible en VBA ??
    Tout est possible en informatique, c'est une question de temps et d'argent
    Tu peux t'inspirer de cet exemple ci-dessous. (J'ai juste testé sur un tableau se trouvant dans une feuille active)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub t()
     Dim sht As Worksheet, rng As Range, row As Long
     Set sht = ActiveSheet ' Feuille active
     Set rng = sht.UsedRange ' Plage des cellules remplies de la feuille active (sht)
     For row = 1 To rng.Rows.Count ' parcourt toutes les lignes de la plage
       ' Remplacer sur toute la ligne les valeurs "Agent" & numéro de la ligne de la plage -1 (row-1) par le numéro de la ligne
       rng.Rows(row).Replace what:="Agent" & row - 1, replacement:="Agent" & row
     Next
     End Sub
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

Discussions similaires

  1. [WD-2003] Fonction chercher/remplacer sur des liens hypertextes
    Par Meyotl dans le forum Word
    Réponses: 5
    Dernier message: 08/03/2013, 11h38
  2. Rechercher-Remplacer sur une partie d'un document
    Par Arsene12 dans le forum VBA Word
    Réponses: 1
    Dernier message: 01/09/2012, 09h06
  3. [XL-2003] Problème fonction recherche / remplacer sous VBA
    Par DVano dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 01/04/2010, 12h13
  4. rechercher remplacer sur plusieurs colonnes
    Par deca2 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 23/05/2008, 11h57
  5. comment automatiser la fonction rechercher/remplacer ?
    Par tristan_sauvage dans le forum Access
    Réponses: 4
    Dernier message: 28/12/2006, 17h05

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo