Microsoft Excel

Flodio -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour,

Je suis en a50 en appuyant sur ENTER je voudrais aller en d16 comment ca marche ?

8 réponses

  1.
    ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Il faudra une petite macro
    http://www.cjoint.com/c/EIenSZed42d

    Cdlmnt
    0
    1. Flodio
       
      Hi ,
      Ca ne fonction pas .. moi j'ai ca ; http://www.cjoint.com/c/EIhm5FY0ofa ,et j'aimerais bien aller de A50 a D16 , de D50 a G16 et ainsi de suite je suis vraiment bloquer ..
      0
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    De rien

    Dans le module de la feuille à traiter 

    Const li = 50

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Rows(li)) Is Nothing Then
      If Target.Column Mod 3 = 1 Then Target.Offset(-34, 3).Select
    End If
    End Sub

    Cordialement
    0
    1. Flodio
       
      Merci a toi ccm81 mais ca ne marche pas j'ai vraiment du mal a comprendre pourquoi .. 
      Sub Makro1(A51
      )
      '
      ' Makro1 Makro
      GoTo D16
      '

      'Const li = 50

      Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Target, Rows(li)) Is Nothing Then
        If Target.Column Mod 3 = 1 Then Target.Offset(-34, 3).Select
      End If
      End Sub

          Range("A51").Select
          Application.Run "'Verlesungsprotokoll Excel Entwurf.xls'!Makro1"
          Application.Goto Reference:="Makro1"
          Application.WindowState = xlMinimized
          Application.Run "'Verlesungsprotokoll Excel Entwurf.xls'!Makro1"
          Range("A51").Select
          ActiveSheet.Paste
          ActiveCell.FormulaR1C1 = _
              "=HYPERLINK(""#A""&MATCH(RC,R[-35]C:R[49]C[3],0)+1,""Suche"")"
          Range("A51").Select
          Selection.ClearContents
          Range("A51").Select
          ActiveCell.FormulaR1C1 = ""
          Range("D1").Select
          ActiveCell.FormulaR1C1 = "Verlesungsprotokoll"
          Range("D57").Select
          ActiveWindow.SmallScroll Down:=-12
          ActiveCell.FormulaR1C1 = "=R[-56]C"
          Range("D58").Select
          ActiveWindow.SmallScroll Down:=30
          Range("D57").Select
          Selection.Copy
          ActiveWindow.SmallScroll Down:=45
          Range("D112").Select
          ActiveSheet.Paste
          Application.CutCopyMode = False
          ActiveCell.FormulaR1C1 = "=R[-111]C"
          Range("D113").Select
          ActiveWindow.SmallScroll Down:=42
          Range("D167").Select
          ActiveCell.FormulaR1C1 = "=R[-166]C"
          Range("D168").Select
          ActiveWindow.SmallScroll Down:=72
          Range("D222").Select
          ActiveCell.FormulaR1C1 = "=R[-221]C"
          Range("D223").Select
          ActiveWindow.SmallScroll Down:=42
          Range("D277").Select
          ActiveCell.FormulaR1C1 = "=R[-276]C"
          Range("D278").Select
          ActiveWindow.SmallScroll Down:=54
          Range("D332").Select
          ActiveCell.FormulaR1C1 = "=R[-331]C"
          Range("D333").Select
          ActiveWindow.SmallScroll Down:=-153
          ActiveWindow.LargeScroll Down:=-3
          ActiveWorkbook.Save
          Range("A51").Select
          ActiveSheet.Paste
          Range("A51").Select
          Selection.Cut
          Application.CutCopyMode = False
      End Sub
      0
  3. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Comme ceci, ça devrait aller mieux
    http://www.cjoint.com/c/EIhoNMSOo7o

    Cordialement
    0
    1. Flodio
       
      Fonction pas
      0
  4. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Il faudrait un peu plus de détail sur ce qui ne va pas
    C'est le fichier que je t'ai envoyé qui ne fonctionne pas ?
    0
    1. Flodio1337 Messages postés 5 Statut Membre
       
      Oui ces ce fichier dont je parle ; donc j'ecris en A51 Valide avec Entre et "j'atterie" en A52 au lieu de D16
      0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Tu as parlé de A50, D50 dans ta demande (post #2)
    0
    1. Flodio1337 Messages postés 5 Statut Membre
       
      Oui dsl , donc de A50 a D16 De D50 A G16 et de G50 a A62 ..
      0
  7. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Il faudrait formuler un peu plus explicitement tes demandes et tes commentaires, je ne peux pas deviner où tu veux en venir

    1. Et qu'est ce que ça donne pour A50 et D50 ?
    2. de G50 a A62 .. .... nouveau !
    Si je comprends, tu veux qu'une fois le 3° tableau rempli, te retrouver au début du 4° (en ligne 62)
    Il suffit de compléter le code
    MAIS
    Tes tableaux n'ont pas tous le même nombre de lignes, et ne sont pas disposés régulièrement (verticalement) dans la feuille
    Est ce normal ?
    Si oui, il faudra compléter la macro cas par cas
    Sinon, on doit pouvoir faire plus simple
    0
    1. Flodio1337 Messages postés 5 Statut Membre
       
      Pour A50 et D50 ne fonction pas ,
      Exactement j'aimerais comme tu la dit qu'une fois le tableau 3° rempli, que je me retrouve au debut du tableau 4° et ainsi de suite .j'ai vraiment du :/
      0
  8. ccm81 Messages postés 11033 Statut Membre 2 434
     
    1. Pour A50 et D50 ne fonction pas ,
    Je ne comprends pas, chez moi ça fonctionne, je te renvoie le fichier
    http://www.cjoint.com/c/EIhqIhYAr7o
    Je mets une valeur en A50, je valide, le curseur se place en D50
    2. tu ne réponds pas à cette question
    Tes tableaux n'ont pas tous le même nombre de lignes, et ne sont pas disposés régulièrement (verticalement) dans la feuille
    Est ce normal ?
    3. Exactement j'aimerais comme tu la dit qu'une fois le tableau 3° rempli, que je me retrouve au debut du tableau 4° et ainsi de suite .j'ai vraiment du :/
    ça va dépendre de ta réponse au point 2
    0
    1. Flodio1337 Messages postés 5 Statut Membre
       
      1 . https://www.youtube.com/embed/s6lE5AtfoD4
      2. qu'il on pas le meme nombre de ligne ces normal car ce document une fois rempli doit etre imprimer donc page 2,3,4,5,6,7,8 sont different que la page 1, mais verticalement j'ai du mal a saisir ¿¿
      3. prenons par exemple le tableau n°3 de la page 5 par exemple donc en G271 pour finir en page 6 donc en A282 , fonction pas non plus
      0
    2. Flodio1337 Messages postés 5 Statut Membre
       
      Ci tu savais combien de temps j'ai pris pour fair ce doc excel :(
      0
  9. ccm81 Messages postés 11033 Statut Membre 2 434
     
    1. ?
    3. OK
    Je t'ai écrit le début, c'est à toi de continuer
    http://www.cjoint.com/c/EIhrtaFgubo

    Cordialement
    0