Insertion automatique à partir d'une valeur

[blackorchid]

Bonjour à tous,

Voilà ma question : je souaiterai faire insérer automatiquement dans un tableau des lignes en fonction d'une valeur saisie manuellement dans une cellule.
Ex : quand on saisit le nombre 2, 2 lignes sont insérées. Si on saisit 3, 3 lignes, etc.

Pensez-vous que cela soit possible ?

Merci d'avance pour vos réponses et Joyeux Noël à tous !!! 🙂

 

[fhoest]

Re : Insertion automatique à partir d'une valeur

bonjour,
oui c'est possible mais connais tu le vba
A bientot

 

[fhoest]

Re : Insertion automatique à partir d'une valeur

rebonjour,
voici une petite solution encore a affiner:
ne pas utiliser la ligne 1 par exemple mettre des titres
voici du code
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
Dim valeur_de_ma_cellule As String
Dim repere As Integer
valeur_de_ma_cellule = ActiveCell.Offset(-1, 0).Value
If IsNumeric(valeur_de_ma_cellule) Then
repere = ActiveCell.Row - 1
Do
x = x + 1
Rows(repere).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Loop Until x = valeur_de_ma_cellule
End If
Application.ScreenUpdating = True
End Sub
a bientot et joyeux noel

 

[blackorchid]

Re : Insertion automatique à partir d'une valeur

Bonjour fohest.

Et bien malheureusement non, je ne connais pas le vba. N'y a-t-il pas d'autres moyens le cas échéant ?

Merci.

 

[fhoest]

Re : Insertion automatique à partir d'une valeur

salut
non je ne pense pas a ma connaissance,
le fait est qu'il faut créer des actions d'insertion selon des conditions de valeur interne de chaques cellules de ta feuille,a moins que quelqu'un de trés fort sur excel n'ai une solution pour toi moi je ne vois rien.
A+