Bonjour à tous
Je dispose d'une macro me permettant d'insérer une ligne (ou plusieurs lignes en fonction du nombre de lignes sélectionnées) sous la sélection. Je recopie également les formules de la ligne du dessus dans les lignes insérées.
Cela fonctionne bien.
J'aimerais maintenant incrémenter des valeurs constantes dans des cellules déterminées des lignes insérées...et là je coince.
Si j'insére X nouvelles lignes, je souhaite que s'inscrive "-" dans toutes les cellules de la colonne AB nouvellement créés.
Voici mon code :
Sub InsererLignesCopierFormules2()
'Macro insère ligne(s) en-dessous de la (ou des) cellule(s) choisie(s) et copie les formules uniquement
ActiveSheet.Unprotect
If ActiveSheet.AutoFilterMode = False Then
Else: MsgBox ("Veuillez désactiver le filtre automatique en ligne 4"): GoTo 2
End If
On Error Resume Next
With Selection
.EntireRow.Copy
.EntireRow.Insert xlShiftDown
.EntireRow.SpecialCells(xlConstants).ClearContents
.EntireRow.SpecialCells (xlCellTypeSameFormatConditions)
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
2 End Sub
Merci d'avance pour votre aide
Cordialement
Je dispose d'une macro me permettant d'insérer une ligne (ou plusieurs lignes en fonction du nombre de lignes sélectionnées) sous la sélection. Je recopie également les formules de la ligne du dessus dans les lignes insérées.
Cela fonctionne bien.
J'aimerais maintenant incrémenter des valeurs constantes dans des cellules déterminées des lignes insérées...et là je coince.
Si j'insére X nouvelles lignes, je souhaite que s'inscrive "-" dans toutes les cellules de la colonne AB nouvellement créés.
Voici mon code :
Sub InsererLignesCopierFormules2()
'Macro insère ligne(s) en-dessous de la (ou des) cellule(s) choisie(s) et copie les formules uniquement
ActiveSheet.Unprotect
If ActiveSheet.AutoFilterMode = False Then
Else: MsgBox ("Veuillez désactiver le filtre automatique en ligne 4"): GoTo 2
End If
On Error Resume Next
With Selection
.EntireRow.Copy
.EntireRow.Insert xlShiftDown
.EntireRow.SpecialCells(xlConstants).ClearContents
.EntireRow.SpecialCells (xlCellTypeSameFormatConditions)
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
2 End Sub
Merci d'avance pour votre aide
Cordialement