Ajouter/supprimer lignes avec VBA??
anat63
Messages postés
6
Statut
Membre
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour à tous,
Je suis nouveau sur le forum et j'aimerais avoir de l'aide sur un problème que je n'arrive pas à résoudre.
J'ai une cellule contenant un nombre pouvant aller de 1 à 12 dirigé par un spin button.
Ce que je veux, c'est qu'à chaque fois que ce nombre augmente, une ligne s'insère sur un autre onglet (en ligne 17). Et si ce nombre diminue, les lignes ajoutées doivent être supprimées proportionnellement. Au final quand ce nombre est égal à 1, il n'y a pas de lignes supplémentaires insérées sur l'autre onglet.
Quelqu'un a une idée?
Je suis nouveau sur le forum et j'aimerais avoir de l'aide sur un problème que je n'arrive pas à résoudre.
J'ai une cellule contenant un nombre pouvant aller de 1 à 12 dirigé par un spin button.
Ce que je veux, c'est qu'à chaque fois que ce nombre augmente, une ligne s'insère sur un autre onglet (en ligne 17). Et si ce nombre diminue, les lignes ajoutées doivent être supprimées proportionnellement. Au final quand ce nombre est égal à 1, il n'y a pas de lignes supplémentaires insérées sur l'autre onglet.
Quelqu'un a une idée?
A voir également:
- Ajouter/supprimer lignes avec VBA??
- Supprimer rond bleu whatsapp - Guide
- Supprimer page word - Guide
- Supprimer pub youtube - Accueil - Streaming
- Fichier impossible à supprimer - Guide
- Supprimer compte instagram - Guide
4 réponses
ta essayer d'enregistrer une macro et ensuite de le faire a la mano puis annalyser le code ainsi génerer
j'y ai pensé mais le problème c'est de faire le lien entre le chiffre généré dans la cellule et le nombre de lignes à insérer. Je connais le code pour insérer des lignes mais je sais pas comment faire pour lier les deux...
Bonjour,
Exemple :
Derrière la feuille [Feuil1] qui contient le "spin button"
dans un module standard [ Module1 ]
Cdt
Lupin
Exemple :
Derrière la feuille [Feuil1] qui contient le "spin button"
Option Explicit
'
Private Sub SpinButton1_SpinDown()
Sheets("Feuil1").Select
Range("C7").Value = (Range("C7").Value - 1)
Call Module1.Decremente
End Sub
'
Private Sub SpinButton1_SpinUp()
Sheets("Feuil1").Select
Range("C7").Value = (Range("C7").Value + 1)
Call Module1.Incremente
End Sub
'
dans un module standard [ Module1 ]
Option Explicit
'
Sub Decremente()
Sheets("Feuil2").Select
Rows("17:17").Select
Selection.Delete Shift:=xlUp
Range("A17").Select
End Sub
'
Sub Incremente()
Sheets("Feuil2").Select
Range("A17").Select
Selection.EntireRow.Insert
Range("A17").Select
End Sub
'
Cdt
Lupin
