Renvoie

LéoTaba -  
 LéoTaba -
Bonjour,
j'ai deux questions, si vous arrivez a répondre à l'une, alors la 2nde sera inutile car c'est 2 facons d'aborder mon probleme :

1- lorsque je saisis une donnée dans une cellule, j'aimerais que lorsque je tape "Entré" pour valider la cellule, ce ne soit pas la cellule suivante qui soit selectionnée :
Je tape en A1 5461564
J'appuie sur entré
La cellule seletionnée est B4 ou C5 ou D8 ou V12 etc....
Je vous demande ca car j'ai une BDD qui crée des nouvelles pages, et ces pages sont liées a des Indirect, donc je ne peux pas modif l'ordre des lignes de ma BDD, donc pas pratique pour de la saisie

2-Est il possible de modifier la même ligne sur plusieurs feuilles du meme classeur d'un coup ?
Du genre je veux deplacer les lignes de 180 a 188 et les lignes 154 a 165 mais pas sur une seule feuille, mais sur 26 ! Sachant que toutes ces feuilles sont identiques (du moins l'intitulé des lignes) y a t-il une manip pour toutes les bouger en meme temps ?

Merci bien !

4 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonjour,

    L'informatique est logique, mais lorsque tu parles de renvoi de la cellule active "de B4 ou C5 ou D8 ou V12" ou est la logique
    Entrée après avoir saisi en A1 active B4 passe, mais après !

    En plus tu ouvres des discussions sans les finaliser, pas très logique tout cela !
    A+
    Mike-31

    Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
    0
  2. LéoTaba
     
    Bonjour,
    cs le pivert bah j'ai fait sans

    Mike31 ok et la 2eme question ? ce serait possible de deplacer plusieurs lignes sur plusieurs feuilles en meme temps si ce sont les mêmes ?
    Merci a vous
    0
  3. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Pour la 2ème question, il faut faire une boucle sur toutes les feuilles de ton classeur. Mais avant sers toi de l’enregistreur de macro pour faire ce que tu veux sur une feuille pour pouvoir t'en servir sur toutes les feuilles comme ceci:

    Sub Test2()
    Dim f As Worksheet
        For Each f In ActiveWorkbook.Worksheets 'on parcourt toutes les feuilles
            'MsgBox f.Name
            f.Select 'on sélectionne chaque feuille
            Macro1 'on applique la macro enregistrée à la feuille
        Next f
    End Sub
    Sub Macro1()
    'exemple fait avec l'enregistreur de macro
    ' Macro1 Macro
        Rows("180:180").Select
        Selection.Copy
        Rows("188:188").Select
        ActiveSheet.Paste
    End Sub
    

    0
    1. LéoTaba
       
      Merci de ton aide.
      Et si je veux COUPER la ligne 180 et L'INSERER a la ligne 188, je dois mettre quoi comme texte ?
      0
      1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > LéoTaba
         
        Sers toi de l'enregistreur de macro!
        Là j'ai copié la ligne 180 dans la ligne 188, il te suffit de supprimer la ligne 180!
        0
    2. LéoTaba
       
      Oui sinon beaucoup plus simple pour ceux qui rencontreront le meme probleme :
      Clic droit sur un onglet "Selectionner toutes les feuilles"
      Enlever les feuilles qui ne vous intéressent pas (CTRL enfoncé + clic gauche sur l'onglet)
      Toutes les modifs que vous ferez se feront aussi dans les autres pages selectionnées.

      Bonne journée !
      LéoTaba.
      0