Incrementer une colonne selon valeur d'une cellule

Bonjour

Tout est dit dans le titre et le fichier ci-joint

Je vous remercie pour votre aide

Cordialement

Bonjour Joco7915, le forum,

Un essai....

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim lig As Integer
  If Not Application.Intersect(Target, Range("C1")) Is Nothing Then
   cancel = True
    If Target.Value = "" Or Target.Value = 0 Or Not IsNumeric(Target.Value) Then Exit Sub
     Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
      For lig = 1 To Target.Value
       Range("A" & lig + 1) = lig
      Next lig
  End If
End Sub

Le code est à placer dans le module de la feuille.....

Cordialement,

Bonjour xorsankukai

Exactement ce qu'il me fallait.

Bonne fin de journée

Je reviens avec mon fichier test

Quand je met le code sur le fichier original ça ne fonctionne pas

Dans le fichier test ci-joint j'ai la même présentation que dans l'original (formule ,colonnes, cellules)

J ai du oublier quelque chose dans le code

.

Bonjour à tous,

Quelques propositions (formules) :

Bonjour Joco7915, xorsankukai,

Une alternative via formule excel

A+

Bonjour JFL, réponse croisée

Bonjour

Merci pour votre aide

Bonne fin de journée

Bonjour de nouveau,

Gabin37 a écrit :

Bonjour JFL, réponse croisée

@Gabin37 : C'est fort délicat de votre part de veiller à ce que je ne sois pas systématiquement en retard....

Bonjour à tous,

J ai du oublier quelque chose dans le code

Il faut procéder autrement.....la macro doit s'exécuter à l'actualisation de la formule en E4....donc, dès que tu inscris une valeur en colonne C.

Private Sub Worksheet_Calculate()
  Dim lig As Integer
    If Range("E4").Value = "" Or Range("E4").Value = 0 Then Exit Sub
     Range("B4:B" & Range("B" & Rows.Count).End(xlUp).Row).ClearContents
      For lig = 1 To Range("E4").Value
       Range("B" & lig + 3) = lig
      Next lig
End Sub

Cordialement,

Re xorsankukai

J'ai un beug avec ton code

Private Sub Worksheet_Calculate()
  Dim lig As Integer
    If Range("E4").Value = "" Or Range("E4").Value = 0 Then Exit Sub         'SUR CETTE LIGNE ERREUR 28 PILE INSUFFISANTE
     Range("B4:B" & Range("B" & Rows.Count).End(xlUp).Row).ClearContents
      For lig = 1 To Range("E4").Value
       Range("B" & lig + 3) = lig
      Next lig
End Sub

Dossier résolu avec ci-dessous

Application.EnableEvents = False
Application.EnableEvents = True

Re,

Bizarre, pas de souci sur mon excel 2010....

Tu as bien placé le code dans le module de la feuille ?

Chez moi, si je rajoute (où supprime)une valeur en colonne C , la macro est bien exécutée...

Tu peux supprimer cette ligne, si la valeur est nulle en E4, toutes les lignes sont effacées.

Private Sub Worksheet_Calculate()
  Dim lig As Integer
   Range("B4:B" & Range("B" & Rows.Count).End(xlUp).Row).ClearContents
    For lig = 1 To Range("E4").Value
     Range("B" & lig + 3) = lig
    Next lig
End Sub

Dossier résolu avec ci-dessous

Application.EnableEvents = False
Application.EnableEvents = True

Cool, .......................et bravo également aux "formulistes"...

Cordialement,