Bouton Insérer une ligne
samson1977
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
samson1977 Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
samson1977 Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je veux faire un bouton insérer une ligne à partir de la ligne N°9 en gardant la même mise en forme de la ligne précédente et le bouton a cocher dans la colonne "I" et les formules sachant que la formule dans la cellule "I9" liée par la cellule "I8". quand je clique sur le bouton une autre fois l'insertion se fera à partir de la ligne N°10 puis N°11 et ainsi de suite.
Merci pour vos aides.
Je veux faire un bouton insérer une ligne à partir de la ligne N°9 en gardant la même mise en forme de la ligne précédente et le bouton a cocher dans la colonne "I" et les formules sachant que la formule dans la cellule "I9" liée par la cellule "I8". quand je clique sur le bouton une autre fois l'insertion se fera à partir de la ligne N°10 puis N°11 et ainsi de suite.
Merci pour vos aides.
Configuration: Windows / Chrome 71.0.3578.98
A voir également:
- Bouton Insérer une ligne
- Insérer une vidéo dans powerpoint - Guide
- Partager photos en ligne - Guide
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Insérer une ligne sur word - Guide
3 réponses
Bonjour,
Pour répondre au mieux à votre besoin, pouvez-vous partager votre fichier via : www.cjoint.com
cdt,
Théo
Pour répondre au mieux à votre besoin, pouvez-vous partager votre fichier via : www.cjoint.com
cdt,
Théo
J'ai fais ce macro
Private Sub CommandButton1_Click()
'make new row
Cells(9, 1).EntireRow.Insert Shift:=xlDown
'copy the row above
Cells(9, 1).Offset(-1, 0).EntireRow.Copy Cells(Cells(9, 1).Row, 1)
On Error Resume Next
'clear every cell in the new line that does not have a formula
Cells(9, 1).EntireRow.SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub
je veux savoir comment quand je clique au bouton une autre fois il termine la même procedure mais avec la ligne suivante cad la ligne 10 puis 11 etc
Private Sub CommandButton1_Click()
'make new row
Cells(9, 1).EntireRow.Insert Shift:=xlDown
'copy the row above
Cells(9, 1).Offset(-1, 0).EntireRow.Copy Cells(Cells(9, 1).Row, 1)
On Error Resume Next
'clear every cell in the new line that does not have a formula
Cells(9, 1).EntireRow.SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub
je veux savoir comment quand je clique au bouton une autre fois il termine la même procedure mais avec la ligne suivante cad la ligne 10 puis 11 etc
Bonjour,
Essaie avec ce code là
Essaie avec ce code là
Sub CommandButton1_Click()
Dim NumLigne As Double
NumLigne = Range("A" & Rows.Count).End(xlUp).Row
'make new row
Cells(NumLigne, 1).EntireRow.Insert Shift:=xlDown
'copy the row above
Cells(NumLigne, 1).Offset(-1, 0).EntireRow.Copy Cells(Cells(NumLigne, 1).Row, 1)
On Error Resume Next
'clear every cell in the new line that does not have a formula
Cells(NumLigne, 1).EntireRow.SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub
Pour Verrouiller une cellule :
Etape 1 : Déverrouillée l'ensemble des cellules :
Ctrl + A
Clic droit -> Format de cellule
"Protection"
Décocher "Verrouillée"
OK
Etape 2 : Protéger la feuille :
Onglet "Révision"
Protéger la feuille
Ok
Ensuite ajouter le code suivant a la fin de la macro :
Etape 1 : Déverrouillée l'ensemble des cellules :
Ctrl + A
Clic droit -> Format de cellule
"Protection"
Décocher "Verrouillée"
OK
Etape 2 : Protéger la feuille :
Onglet "Révision"
Protéger la feuille
Ok
Ensuite ajouter le code suivant a la fin de la macro :
If NumLigne > 7 Then Cells(NumLigne, 9).locked = true End If