Bouton Insérer une ligne
Fermé
samson1977
Messages postés
19
Date d'inscription
vendredi 28 septembre 2012
Statut
Membre
Dernière intervention
20 juin 2022
-
28 janv. 2019 à 12:13
samson1977 Messages postés 19 Date d'inscription vendredi 28 septembre 2012 Statut Membre Dernière intervention 20 juin 2022 - 30 janv. 2019 à 19:21
samson1977 Messages postés 19 Date d'inscription vendredi 28 septembre 2012 Statut Membre Dernière intervention 20 juin 2022 - 30 janv. 2019 à 19:21
A voir également:
- Bouton Insérer une ligne
- Insérer une vidéo sur powerpoint - Guide
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Partager photos en ligne - 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
samson1977
Messages postés
19
Date d'inscription
vendredi 28 septembre 2012
Statut
Membre
Dernière intervention
20 juin 2022
28 janv. 2019 à 16:54
28 janv. 2019 à 16:54
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
samson1977
Messages postés
19
Date d'inscription
vendredi 28 septembre 2012
Statut
Membre
Dernière intervention
20 juin 2022
29 janv. 2019 à 18:01
29 janv. 2019 à 18:01
Merci Theo,
Reste une seule chose, je veux que la ligne insérer garde la même mise en forme et les formules de la ligne précédente.
Reste une seule chose, je veux que la ligne insérer garde la même mise en forme et les formules de la ligne précédente.
samson1977
Messages postés
19
Date d'inscription
vendredi 28 septembre 2012
Statut
Membre
Dernière intervention
20 juin 2022
29 janv. 2019 à 18:26
29 janv. 2019 à 18:26
c bon, j'ai fais :
NumLigne = Range("A" & Rows.Count).End(xlUp).Row - 1
j'ai trouver la solution
mais est ce que je peux verrouiller la colonne "I" a partir du 7 ligne parce qu'il contient une formule et quand je ferai insérer une ligne la ligne suivante de la colonne "I" soit verrouillé
NumLigne = Range("A" & Rows.Count).End(xlUp).Row - 1
j'ai trouver la solution
mais est ce que je peux verrouiller la colonne "I" a partir du 7 ligne parce qu'il contient une formule et quand je ferai insérer une ligne la ligne suivante de la colonne "I" soit verrouillé
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
samson1977
Messages postés
19
Date d'inscription
vendredi 28 septembre 2012
Statut
Membre
Dernière intervention
20 juin 2022
30 janv. 2019 à 19:21
30 janv. 2019 à 19:21
Merci pour vos aide,
j'ai une formule L8=L7-G8-H8+J8
Dans la cellule I8 j'ai fais un carreau à cocher, si I8 est coché la formule devient L8=L7-G8+J8 sinon elle reste la même cad L8=L7-G8-H8+J8
Merci
j'ai une formule L8=L7-G8-H8+J8
Dans la cellule I8 j'ai fais un carreau à cocher, si I8 est coché la formule devient L8=L7-G8+J8 sinon elle reste la même cad L8=L7-G8-H8+J8
Merci