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 :

recuperer le numero d une ligne


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé Avatar de tomy7
    Profil pro
    Étudiant
    Inscrit en
    Janvier 2008
    Messages
    540
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2008
    Messages : 540
    Par défaut recuperer le numero d une ligne
    bonjour,
    je cherche a recuperer le numero d une ligne que je viens d ajouter et a le mettre ds une variable j ai essayer ce genre de code et je v passer en vert ou cela me semble incoherent avec ma demande...
    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
    Private Sub CommandButton25_Click()
        Dim NewSh As Worksheet
        Dim Ligne As Long
    
        Worksheets("Add").Copy After:=ActiveWorkbook.Sheets(Sheets.Count)
        Set NewSh = ActiveWorkbook.Worksheets(Sheets.Count)
        NewSh.Name = "Add" & Sheets.Count - 3
        NewSh.visible = True
        Line = Sheets("Main").Cells(Rows.Count, "G").End(xlUp).Row + 1
        Sheets("Main").Rows(Line).Insert xlShiftDown
        Worksheets("Main").Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(5, "C").Address
        Worksheets("Main").Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(4, "J").Address
        Worksheets("Main").Cells(Rows.Count, "I").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(266, "F").Address
        Worksheets("Main").Cells(Rows.Count, "J").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(266, "Q").Address
        Worksheets("Main").Cells(Rows.Count, "K").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(266, "R").Address
        i = Worksheets("Main").Cells(Rows.Count, "I").End(xlUp).Offset(1, 0).FormulaLocal
        j = Worksheets("Main").Cells(Rows.Count, "J").End(xlUp).Offset(1, 0).FormulaLocal
        Select Case True
        Case Worksheets("Main").Cells(Rows.Count, "H").End(xlUp).Value = "AC"
            Worksheets("Main").Cells(Rows.Count, "L").End(xlUp).Offset(1, 0).FormulaLocal = "=L277 + I" & i
        Case Worksheets("Main").Cells(Rows.Count, "H").End(xlUp).Value = "EAC"
            Worksheets("Main").Cells(Rows.Count, "M").End(xlUp).Offset(1, 0).FormulaLocal = "=M277 + J" & j
        End Select
        Worksheets("Main").Cells(Rows.Count, "N").End(xlUp).Offset(1, 0).FormulaLocal = "=1-(M" & j & "/L" & i & ")"
        Worksheets("Main").Select
    End Sub
    je desirai que i et j soit le num de ma ligne que je viens d ajouter a mon tableau.

    une idée?

    merci

  2. #2
    Membre éclairé Avatar de tomy7
    Profil pro
    Étudiant
    Inscrit en
    Janvier 2008
    Messages
    540
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2008
    Messages : 540
    Par défaut re
    ceci devient
    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
    Private Sub CommandButton25_Click()
        Dim NewSh As Worksheet
        Dim Ligne As Long
     
        Worksheets("Add").Copy After:=ActiveWorkbook.Sheets(Sheets.Count)
        Set NewSh = ActiveWorkbook.Worksheets(Sheets.Count)
        NewSh.Name = "Add" & Sheets.Count - 3
        NewSh.visible = True
        Line = Sheets("Main").Cells(Rows.Count, "G").End(xlUp).Row + 1
        Sheets("Main").Rows(Line).Insert xlShiftDown
        Worksheets("Main").Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(5, "C").Address
        Worksheets("Main").Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(4, "J").Address
        Worksheets("Main").Cells(Rows.Count, "I").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(266, "F").Address
        Worksheets("Main").Cells(Rows.Count, "J").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(266, "Q").Address
        Worksheets("Main").Cells(Rows.Count, "K").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(266, "R").Address
        i = Worksheets("Main").Cells(Rows.Count, "I").End(xlUp).Offset(1, 0).FormulaLocal
        j = Worksheets("Main").Cells(Rows.Count, "J").End(xlUp).Offset(1, 0).FormulaLocal
        Select Case True
        Case Worksheets("Main").Cells(Rows.Count, "H").End(xlUp).Value = "AC"
            Worksheets("Main").Cells(Rows.Count, "L").End(xlUp).Offset(1, 0).FormulaLocal = "=L277 + I" & i
        Case Worksheets("Main").Cells(Rows.Count, "H").End(xlUp).Value = "EAC"
            Worksheets("Main").Cells(Rows.Count, "M").End(xlUp).Offset(1, 0).FormulaLocal = "=M277 + J" & j
        End Select
        Worksheets("Main").Cells(Rows.Count, "N").End(xlUp).Offset(1, 0).FormulaLocal = "=1-(M" & j & "/L" & i & ")"
        Worksheets("Main").Select
    End Sub

    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
    Private Sub CommandButton25_Click()
        Dim NewSh As Worksheet
        Dim Ligne As Long
     
        Worksheets("Add").Copy After:=ActiveWorkbook.Sheets(Sheets.Count)
        Set NewSh = ActiveWorkbook.Worksheets(Sheets.Count)
        NewSh.Name = "Add" & Sheets.Count - 3
        NewSh.visible = True
        Line = Sheets("Main").Cells(Rows.Count, "G").End(xlUp).Row + 1
        Sheets("Main").Rows(Line).Insert xlShiftDown
        Worksheets("Main").Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(5, "C").Address
        Worksheets("Main").Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(4, "J").Address
        Worksheets("Main").Cells(Rows.Count, "I").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(266, "F").Address
        Worksheets("Main").Cells(Rows.Count, "J").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(266, "Q").Address
        Worksheets("Main").Cells(Rows.Count, "K").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(266, "R").Address
           Select Case True
        Case Worksheets("Main").Cells(Rows.Count, "H").End(xlUp).Value = "AC"
            Worksheets("Main").Cells(Rows.Count, "L").End(xlUp).Offset(1, 0).FormulaLocal = "=L277 + I" & Line
        Case Worksheets("Main").Cells(Rows.Count, "H").End(xlUp).Value = "EAC"
            Worksheets("Main").Cells(Rows.Count, "M").End(xlUp).Offset(1, 0).FormulaLocal = "=M277 + J" & Line
        End Select
        Worksheets("Main").Cells(Rows.Count, "N").End(xlUp).Offset(1, 0).FormulaLocal = "=1-(M" & Line & "/L" & Line & ")"
        Worksheets("Main").Select
    End Sub
    je me fais les questions et les reponses , DSL

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Recuperation du numero de la ligne du select
    Par P'tit Jean dans le forum MS SQL Server
    Réponses: 6
    Dernier message: 15/10/2007, 17h31
  2. recuperer 3 float dans une ligne d'un fichier texte
    Par obiwankennedy dans le forum C++
    Réponses: 3
    Dernier message: 14/03/2006, 03h59
  3. [C#] Recuperer le contenu d'une ligne dans datagrid
    Par thierry2001 dans le forum ASP.NET
    Réponses: 2
    Dernier message: 22/09/2005, 14h56
  4. [vb.net][datatable] recuperer l'index d'une ligne
    Par graphicsxp dans le forum Windows Forms
    Réponses: 4
    Dernier message: 05/07/2005, 15h17
  5. [VB.NET] [DataGrid] recuperer l'index d'une ligne
    Par graphicsxp dans le forum Windows Forms
    Réponses: 12
    Dernier message: 29/03/2005, 15h13

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