Discussion :

[pink_marla]

Bonjour à tous,

C'est mon premier message sur ce forum, sur lequel j'ai déjà trouvé beaucoup d'informations qui m'ont permis de faire différents essais et de comprendre la logique de vba (je ne suis pas débutante sur Excel mais en VBA oui, assez néophyte même !).

Voilà ma question : j'ai un fichier de suivi d'activité d'un service. Toutes les colonnes contiennent des contraintes de validation de données et des formats variés, et les 5 dernières colonnes (Y à AC) contiennent des formules.

Ce fichier est utilisé par de nombreuses personnes et j'ai tenté de le contraindre un maximum (d'où les validations de données) car il sert in fine à réaliser des statistiques de l'activité du service !

J'ai ajouté un bouton de contrôle, et avec l'enregistreur de macro, j'ai copié la dernière ligne, inséré juste en dessous la ligne copiée, et effacé les données (mais pas le reste, formats, validations...) des colonnes Y à AC de cette ligne. J'ai affecté cette macro à mon bouton et il fait bien ce que je lui demande... C'est à dire qu'il copie la ligne 946 et l'insère en 947 en conservant tout ce que je veux conserver

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Ajout_Ligne_Suivi()
' Ajout_Ligne_Suivi Macro
    Rows("946:946").Select
    Selection.Copy
    Rows("947:947").Select
    Selection.Insert Shift:=xlDown
    Range("A947:X947").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A947").Select
End Sub

Idéalement, j'aimerais utiliser quelque chose comme Derlig +1 ou End(XlDown) pour que cette ligne copiée soit systématiquement insérée après la dernière ligne remplie (en me basant sur la dernière ligne remplie en colonne A), et ensuite opérer un ClearContents des colonnes A à X de cette nouvelle ligne, quelle que soit sa position à ce moment là.

J'ai fait plusieurs essais infructueux (notamment un qui m'a fait un peu peur, lorsque j'ai tenté un Range("A:X").ClearContents et que toutes mes lignes ont disparu

Si vous pouvez m'aider à remettre tout ça dans le bon sens, ce serait top !

Merci beaucoup et bonne journée !

[patricktoulon]

Bonjour
ceci te copy la derniere ligne utilisée en colonne "A" en gardant le format sans les valeurs
si j'ai bien compris c'est cela que tu veux
adapte le nom de ta feuille (remplace"toto"
si ta colonne de reference n'est pas A change le "A"

et oui meme pour ca on peut se passer des ".select"

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Ajout_Ligne_Suivi2()
' Ajout_Ligne_Suivi Macro
    With Sheets("toto")
        Set cel = .Cells(Rows.Count, "A").End(xlUp)
        cel.EntireRow.Copy
        cel.EntireRow.Insert Shift:=xlDown
        Application.CutCopyMode = False
        .Cells(Rows.Count, 1).End(xlUp).ClearContents
    End With
End Sub

une maniere differente de le coder

Code :

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

1
2
3
4
5
6
7
8
9
Sub Ajout_Ligne_Suivi3()
' Ajout_Ligne_Suivi Macro
    With Sheets("toto").Cells(Rows.Count, 1).End(xlUp)
        .EntireRow.Copy
        .EntireRow.Insert Shift:=xlDown
        Application.CutCopyMode = False
        .Parent.Cells(Rows.Count, 1).End(xlUp).EntireRow.ClearContents
    End With
End Sub

et encore une autre

Code :

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

1
2
3
4
5
6
7
8
9
Sub Ajout_Ligne_Suivi3()
' Ajout_Ligne_Suivi Macro
    With Sheets("toto").Cells(Rows.Count, 1).End(xlUp)
        .EntireRow.Copy
        .EntireRow.Insert Shift:=xlDown
        .EntireRow.ClearContents
        Application.CutCopyMode = False
    End With
End Sub

[Igloobel]

Bonjour,

Si j'ai bien compris tu veux pouvoir rjouter une ligne vide à la fin de ton tableau de suivi mais qu'elles en fasse partie de ton tableau

si c'est bien le cas il te faut utiliser les tableaux structurés car cela fait cet type d'ajout tout seul

Tableau structuré : (Insertion - Tableau)

Ou alors j'ai pas compris dans ce cas réexplique

à bientôt

[pink_marla]

 

Merci beaucoup Patrick,

C'est parfait pour la partie d'ajout, et c'est partiellement ce qu'il me faut, par contre je ne veux utiliser le ClearContents que de A à X (les colonnes Y à AC doivent conserver leurs formules). Je sais qu'on peut faire un if.hasformula mais ça me semble inatteignable, c'est pour ça que j'avais imaginé un clearContents sur une plage du style (je sais que c'est incorrect, mais c'est pour que vous me compreniez) :

Code :

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

Selection.Range(A:X).ClearContents

Vois tu ce que je veux dire ?

Merci encore en tout cas, je savais bien qu'en venant ici, j'avancerais plus vite (même si c'est vous qui me faites avancer en réalité )

 

Merci pour ta réponse Igloobel,

Malheureusement ce fichier est utilisé par beaucoup de collaborateurs qui ne feraient pas glisser les formules (ce qu'il faudrait de toute manière faire sur les dernières colonnes avec un tableau structuré) et qui feraient des copier-coller dans tous les sens (c'est d'ailleurs mon problème actuel). C'est la raison pour laquelle j'ai fait ce bouton : pour les contraindre et éviter de corrompre la qualité des données.

[patricktoulon]

re

Malheureusement ce fichier est utilisé par beaucoup de collaborateurs qui ne feraient pas glisser les formules (ce qu'il faudrait de toute manière faire sur les dernières colonnes avec un tableau structuré)

de la meme maniere qu'avec un range classique puisque tu fait un clearcontents la bonne blague

celles ci te garde les formules

Code :

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

1
2
3
4
5
6
7
8
9
Sub Ajout_Ligne_Suivi3()
' Ajout_Ligne_Suivi Macro
    With Sheets("toto").Cells(Rows.Count, 1).End(xlUp)
        .EntireRow.Copy
        .EntireRow.Insert Shift:=xlDown
        .EntireRow.SpecialCells(xlCellTypeConstants).ClearContents
        Application.CutCopyMode = False
    End With
End Sub

[pink_marla]

Merci beaucoup, ça fonctionne du tonnerre !
C'est par-fait !