Discussion :

[Karkan]

Salut,

J'ai un projet informatique à faire pour mon cours d'informatique, on doit créer une application via excel pour aider à l'organisation d'une entreprise. Ce que je voudrais c'est pouvoir rajouter des recettes, des clients, des fournisseurs, dans les tableaux concernés en rajoutant une ligne lorsque je clique sur un bouton. (Une macro par tableau)

Alors voilà mon problème, j'aimerai rajouter une ligne en fin de tableau lorsque je clique sur un bouton. Mais ma macro ne fonctionne pas comme je le voudrais.

La voici:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ajoutligne()
Dim derligne As Integer
derligne = Cells(Rows.Count, "B").End(xlDown).Rows
 
Range("B3:P3").Select
Selection.Copy
Cells(derligne + 1, "B").Select
ActiveSheet.Paste
 
End Sub

Pour faire cette macro je suis partie sur la base d'une que j'ai faite pour ajouter une colonne lorsque je clique sur un bouton (celle ci fonctionne).
Je ne comprends pas comment ça se fait qu'elle ne fonctionne pas.. Lorsque je lance la macro, cette dernière copie la bonne ligne mais la colle pas au bon endroit.
En effet, la ligne copié se retrouve sur la premiere ligne du tableau et non à la fin comme je le voudrais..

J'ai donc essayé plusieurs solutions:

Code :

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

1
2
3
4
5
6
7
8
Sub ligneajout ()
Dim derligne As Integer
derligne = Cells(Rows.Count, "B").End(xlDown).Rows + 1
 
Cells(derligne, "B").Select
Selection.Insert
 
End Sub

Mais celle ci ne marche pas non plus. Lorsque je lance la macro, excel m'indique ceci "Nous ne pouvons aps effectuer cette action car cela impliquerait le déplacement de cellules d'une tableau de votre feuille de calcul.

Est-ce que quelqu'un peut m'aider à comprendre pourquoi mes macros de marche pas?

Merci d'avance et bonne journée

[unparia]

Bonjour
La dernière ligne n'est pas :

derligne = Cells(Rows.Count, "B").End(xlDown).Rows

mais

Code :

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

derligne = Range("B" & rows.count).End(xlUp).Row

[Karkan]

En effet ça fonctionne bien!

Merci beaucoup!