Comment copier et insérer la copie d'une ligne en vba
Résolu
coupidon
Messages postés
98
Date d'inscription
Statut
Membre
Dernière intervention
-
coupidon Messages postés 98 Date d'inscription Statut Membre Dernière intervention -
coupidon Messages postés 98 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
voilà, je suis pas un expert en vba
voilà j'aimerais sous excel pouvoir copier et insérer une ligne complète là ou je voudrais et que la feuille retrouve sa protection anti-bêtise par des tiers.
mais, je sais pas comment je peu créer une variable avec un textbox pour insérer dans ce code le nombre pour choisir la ligne à insérer.
voici mon idée en gros:
Private Sub CommandButton1_Click()
' En cliquant sur cette touche insert la ligne, puis reprotége la feuille selon paramètres définis
ActiveSheet.Unprotect
comment mettre le nombre se trouvant dans le commandButton1 et que la valeur se retrouve
ici à la place des "13:13" du Rows ci-dessous....
Rows("13:13").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
End Sub
merci , au talentueux vb-man du site
voilà, je suis pas un expert en vba
voilà j'aimerais sous excel pouvoir copier et insérer une ligne complète là ou je voudrais et que la feuille retrouve sa protection anti-bêtise par des tiers.
mais, je sais pas comment je peu créer une variable avec un textbox pour insérer dans ce code le nombre pour choisir la ligne à insérer.
voici mon idée en gros:
Private Sub CommandButton1_Click()
' En cliquant sur cette touche insert la ligne, puis reprotége la feuille selon paramètres définis
ActiveSheet.Unprotect
comment mettre le nombre se trouvant dans le commandButton1 et que la valeur se retrouve
ici à la place des "13:13" du Rows ci-dessous....
Rows("13:13").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
End Sub
merci , au talentueux vb-man du site
A voir également:
- Comment copier et insérer la copie d'une ligne en vba
- Insérer une vidéo dans powerpoint - Guide
- Partager photos en ligne - Guide
- Comment copier une vidéo youtube - Guide
- Copie cachée - Guide
- Mètre en ligne - Guide
2 réponses
Bonjour,
Essaye de bidouiller ce code :
Essaye de bidouiller ce code :
Sub CommandButton1_Click()
Dim a As Single
a = InputBox("Numéro de ligne ?", "Titre", 0)
Rows(a & ":" & a).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
End Sub
