Discussion :

[jedimaster10]

Bonjour

Je suis en train de bosser sur un fichier Excel dans lequel un tableau de données est représenté. Je l'ai renommé "data" et j'aimerais maintenant créer 2 macros simples afin d'y ajouter ou d'y supprimer une ligne.

En faisant une macro enregistrée, je me positionnais sur la dernière ligne du tableau et je faisais clic droit, insertion. Le problème, c'est qu'en faisant comme ça, dés que je cliquerai sur le bouton de cette macro, il va à chaque fois ajouter la ligne à partir de la ligne que j'ai sélectionné lors de la création de ma macro.

Je souhaiterais donc savoir comment demander à Excel qu'il se positionne à chaque fois sur la dernière ligne de ma plage "data" quel que soit le nombre de lignes dans le tableau ?

Je vous en remercie d'avance

[tomy7]

tu peux faire un check d une colonne et supprimmer toutes les lignes vides ou les masquer

Pour masquer

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim i As Integer
 For i =  1 to 240 'debut de ta cellute a ta derniere cellule 
    If ActiveSheet.Range("Q" & i).Text = "" Then
       Rows(i).Hidden = True
   End If
 Next i
End Sub

sinon pour supprimmer tu remplace hidden par delete et t enleve true

[jedimaster10]

Merci pour ta réponse.

Cependant, le but n'est pas de vider ou de masquer les lignes vides mais simplement de me positionner toujours sur la dernière ligne de mon tableau (nommé "data") puis d'y faire un simple ajout de ligne.

[tomy7]

je lis a chaque fois en diagonale...

ta derniere ligne de ton tableau est elle vide ?

deja pour ajouter une ligne le code est :

Code :

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

Selection.EntireRow.Insert

[jedimaster10]

Elle sera toujours vide au moment de l'ajout d'une ligne.

Pour la suppression également. La seule nuance, c'est qu'à la suppression d'une ligne (la dernière de ma plage de données "data"), il faudra ajouter une bordure en bas de ma plage de données vu que la suppression de la dernière ligne de ma plage supprime également la bordure du bas de mon tableau.

[tomy7]

pour selectionner la derniere ligne y a un code du style :

Code :

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

Range ("...").End(xlup).row.select

Mais je me souviens plus exactement et je cherche mais je retrouve pas ...

[tomy7]

Code :

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

Worksheets("...").Range("..").End(xlDown).Select

sa marche chez moi

[jedimaster10]

Je te joins mon petit fichier test.

Regarde la macro du bouton 1 s'il te plait

[tomy7]

Pièce jointe 26011

[Nad-Dan]

re,

Utilise ce code :

Code :

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

1
2
3
4
5
 Sub ajouter()
Dim derlig As Integer
derlig = Range("c65536").End(xlUp).Row + 1
Worksheets("Feuil1").Range("c" & derlig).EntireRow.Insert
End Sub

Veille à mettre des données dans ta colonne C

A te relire

Dan

[jedimaster10]

Très bien ça marche rien qu'en mettant un chiffre en C19 uniquement.

Comment pourrais-je inclure une sécurité pour cette macro, à savoir qu'elle ne pourrait se déclencher que si la colonne C n'est pas vide ? (avec un petit message d'erreur si tentative avec tableau vide)

Aussi, pour supprimer une ligne en bas de ma plage, tout en gardant la ligne de bordure basse, comment faire ? Je vais tester.

Merci

[jedimaster10]

Bon, pour la ligne c'est bon

Reste à savoir pour l'alerte de sécurité comme demandé juste au-dessus