Nombre de cellule en fonction d'un chiffre dans une cellule

Bonjour,

Je voudrais savoir si vous aviez une solution pour faire en sorte que selon le chiffre rentré en C10 le nombre de ligne de mon tableau augmente en suivant tout en notant par ordre croissant les nombres dans le tableau.

exemple ci joint :

Merci d'avance

Bonjour,

Je te retourne un essai:

Tout d'abord merci à toi pour la réponse!

Donc il y juste un problème, après avoir tapé 0 dans la case c10, la macro ne fonctionne plus!

Re

C'est voulu, je me suis dis qu'il fallait au moins une ligne dans ton fichier, du coup, si tu saisis une valeur inférieur à 1, la macro ne tourne pas, vois ça comme une sécurité

D'accord, mais depuis elle ne marche plus ?

Re,

Ah ça, c'est une erreur de ma part, je désactive les évènements en début de macro, mais quand je sors du programme, je le fais tellement brutalement que je ne rétablis pas les évènements, j'ai changé ça afin de pouvoir les réactiver, ça devrait fonctionner à nouveau :

D'accord, super cela fonctionne!

Juste du coup je vais avoir plusieurs tableau et j'aurais aimé savoir comment on fait pour rétablir les événements ?

J'ai déjà recopié la macro et depuis aucunes d'entres-elles ne fonctionnent ?

Bonsoir Quentin, Ausecour,

tu a écrit :

comment on fait pour rétablir les événements ?

mets ce code VBA dans Module1, puis exécute-le :

Sub RéactivEvents()
  Application.EnableEvents = True
End Sub

dhany

Bonjour,

@ Ausecour,

L'utilisation de EnableEvents n'est pas utile dans ta procédure.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Address = "$C$10" Then
        If Target > 0 Then
            Me.ListObjects(1).ShowTotals = False
            Me.ListObjects(1).Resize Range("G3:M" & 3 + Target)
            Me.Range("G" & 4 + Target, "M" & Rows.Count) = ""
            Me.ListObjects(1).ShowTotals = True
        End If
    End If
End Sub

Bonsoir Jean Eric,

La formule pour la première feuille fonctionne mais si je modifie les valeurs par celles de la feuille 2 cela ne fonctionne pas.

Je vous renvoi le tableau avec mes modifications pour que vous voyez ou est mon erreur.

Merci

Bonjour le forum,

Tu n'as pas bien fait le décallage des lignes dans ton code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Address = "$I$1" Then
        If Target > 0 Then
            Me.ListObjects(1).ShowTotals = False
            Me.ListObjects(1).Resize Range("B5:G" & 5 + Target)
            Me.Range("B" & 6 + Target, "G" & Rows.Count) = ""
            Me.ListObjects(1).ShowTotals = True
        End If
    End If
End Sub

@Jean-Eric, ce n'est pas moi qui aie répondu avec le enableevents, mais dhany

Re,

Je viens de récupérer la macro pour le rajout d'une ligne mais le problème c'est que maintenant le nombre de cellule est défini par une formule, qui est modifié en fonction de la valeur d'une autre cellule. (elle compte le max en fonction de la date défini dans l'autre cellule)

Du coup le seul moyen que j'ai d'activer la macro c'est d'aller dans la formule et de la valider par la touche entrée

je vous envoi le fichier :

Ce qui m'intéresse est dans la feuille "JOURNALIER".

Merci d'avance

Bonjour,

Tu devrais refaire un sujet parce que je ne me rappelle plus du sujet car il date d'il y a 3 mois

D'accord pas de souci