Discussion :

[piderrien]

Bonjour,

Je cherche à créer une macro pour insérer une ligne à la fin d'un tableau, qui possède les mêmes propriétés que les précédentes en termes de format et de conditions. Je ne veux pas insérer une ligne entière avec Insert mais une ligne constituée de quelques cellules parce qu'il y a autre chose que mon tableau sur les mêmes lignes...
J'ai essayé ça :

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
Sub InsèreCopieLigne()
 
'Mon tableau commence en A9
Range("A9").Select
 
'Boucle pour trouver la dernière ligne vide
While ActiveCell.Offset(1, 0).Value <> ""
ActiveCell.Offset(1, 0).Select
Wend
 
'Copier les cellules A à L de la ligne non vide (là il y a un problème avec la copie des colonnes...)
ActiveCell.Column(A:L).Copy
 
'Là je souhaiterais insérer les la mise en forme et les conditions sur les cellules copiées. Un truc avec Paste Special ? 
PasteSpecial Paste:=xlPasteValidation
 
End Sub

Voilà, si quelqu'un a plus l'habitude de VBA et saurait trouver ma solution... J'ai déjà essayé pas mal de choses mais ça n'a jamais donné exactement ce que je voulais. Merci !

[anasecu]

Bonjour,

Regardes si cela te convient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub InsèreCopieLigne()
Dim cel As Range
    ' dernière ligne vide
    Set cel = ActiveSheet.Columns(1).Find("", [A9]) ' Mon tableau commence en A9
    If Not cel Is Nothing Then
        cel.Offset(-1, 0).Resize(2, 12).FillDown ' insérer les la mise en forme et les conditions
        cel.Resize(1, 12).ClearContents ' vide données
    End If
End Sub

[mjpmjp]

bonjour,
est ce que ton tableau est nommé ?
c'est à dire que tu as fait un tableau et que tu as, en suite ,utilisé "insert tableau"

@+JP

[mjpmjp]

re,
dans ce cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ListObjects("TabxlGenre").ListRows.Count

te donne le nombre de ligne de ton tableau (sans la ligne des entêtes)

@+JP

[piderrien]

Bonjour,

Regardes si cela te convient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub InsèreCopieLigne()
Dim cel As Range
    ' dernière ligne vide
    Set cel = ActiveSheet.Columns(1).Find("", [A9]) ' Mon tableau commence en A9
    If Not cel Is Nothing Then
        cel.Offset(-1, 0).Resize(2, 12).FillDown ' insérer les la mise en forme et les conditions
        cel.Resize(1, 12).ClearContents ' vide données
    End If
End Sub

Hello,
Ca a marché, au top ! J'ai juste un petit problème : ce code permet de copier ce que je veux sur la ligne suivante, mais je voudrais qu'il insère en plus la ligne (pour décaler le reste de mon document vers le bas - y compris le bouton macro situé en bas du tableau). Par ailleurs le code supprime tout à la fin de la boucle, du coup il enlève mes formules en colonne 7 et en colonne 9... Il y a un moyen de préciser le Resize avant le ClearContents en (1,6) + 8 + (10,12)? Ou (1,12)-{7,9} (ça ne marche pas sur VBA mais pour voir si vous comprenez l'idée) ?

Pas sûr d'être clair mais bon :/
Merci beaucoup!

[anasecu]

Bonjour,

Avec pas mal de retard, voici la macro modifiée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub InsèreCopieLigne()
Dim cel As Range, col As Integer
    ' dernière ligne vide
    Set cel = ActiveSheet.Columns(1).Find("", [A9]) ' Mon tableau commence en A9
    If Not cel Is Nothing Then
        cel.Offset(1, 0).EntireRow.Insert
        cel.Offset(-1, 0).Resize(2, 12).FillDown ' insérer les la mise en forme et les conditions
        For col = 1 To 12
            If Not Left(Cells(cel.Row, col).Formula, 1) = "=" Then Cells(cel.Row, col).ClearContents         ' vide données
        Next col
    End If
End Sub