Microsoft Excel

Flodio -  
Bonjour,

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

8 réponses

  • Votes
  • Date
  • Date décroissante
  1. ccm81
    Bonjour

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

    Cdlmnt
    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 ..
  2. ccm81
    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
    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
  3. ccm81
    Comme ceci, ça devrait aller mieux
    http://www.cjoint.com/c/EIhoNMSOo7o

    Cordialement
    1. Flodio
      Fonction pas
  4. ccm81
    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 ?
    1. Flodio1337
      Oui ces ce fichier dont je parle ; donc j'ecris en A51 Valide avec Entre et "j'atterie" en A52 au lieu de D16
  6. ccm81
    Tu as parlé de A50, D50 dans ta demande (post #2)
    1. Flodio1337
      Oui dsl , donc de A50 a D16 De D50 A G16 et de G50 a A62 ..
  7. ccm81
    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
    1. Flodio1337
      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 :/
  8. ccm81
    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
    1. Flodio1337
      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
    2. Flodio1337
      Ci tu savais combien de temps j'ai pris pour fair ce doc excel :(
  9. ccm81
    1. ?
    3. OK
    Je t'ai écrit le début, c'est à toi de continuer
    http://www.cjoint.com/c/EIhrtaFgubo

    Cordialement