XL 2016 Insérrer une ligne en vba

Dranreb

XLDnaute Barbatruc

• 22 Juin 2018

• #2

Bonsoir.

VB:

Private Sub CommandButton1_Click()
Dim L As Long
L = TextBox1.Value
Rows(L).Copy: Rows(L).Insert
Application.CutCopyMode = False
Cells(L, "A").Value = TextBox2.Text
End Sub

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Juin 2018

• #3

Bonjour Fanck, Dranreb 🙂

@Dranreb: pourquoi copier - inserer?? 🙄

VB:

Private Sub CommandButton1_Click()
Dim cel As Range
  Set cel = Cells(TextBox1.Value, 1)  ' activer la ligne
  cel = TextBox2.Value
  'On Error Resume Next
  'Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 1).ClearContents ' efface le nom dans la nouvelle ligne copier
  '???? insérer le nouveau salarié avec le textbox2
   
End Sub

 

Dernière édition: 23 Juin 2018

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Juin 2018

• #4

Pourquoi pas ?
Ça revient au même que Insérer, copier, coller sauf que ça ne requiert que 2 opérations, pour la reconduction des formules d'une ligne voisine.

 

Dernière édition: 23 Juin 2018

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Juin 2018

• #5

Re

@Dranreb

Euuuhh! Wath'Is?? 😵. Tu as vu le code que j'ai mis?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Juin 2018

• #6

Oui, il ne semble pas reconduire les formules. D'ailleurs il n'insère même pas de ligne, ça me semble totalement hors sujet.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Juin 2018

• #7

Re

@Dranreb : c'est vrai, tu as raison.

Edit: macro corrigée

VB:

Private Sub CommandButton1_Click()
Dim cel As Range
  Set cel = Cells(TextBox1.Value, 1)
  cel = TextBox2.Value
  Range(cel.Offset(-2, 1), cel.Offset(-2, 3)).Copy cel.Offset(0, 1)
  cel.Interior.Color = cel.Offset(0, 1).Interior.Color
End Sub

 

Dernière édition: 23 Juin 2018

Vote positif 0 Vote négatif

F

Franck DEVISSCHER

XLDnaute Nouveau

• 23 Juin 2018

• #8

Dranreb à dit:

Bonsoir.

VB:

Private Sub CommandButton1_Click()
Dim L As Long
L = TextBox1.Value
Rows(L).Copy: Rows(L).Insert
Application.CutCopyMode = False
Cells(L, "A").Value = TextBox2.Text
End Sub

Cliquez pour agrandir...

Merci Beaucoup super

 

Vote positif 0 Vote négatif