Aide vba

Résolu
Bonjour,

J'aurais besoin d'un peu d'aide pour cette manipulation.

Si dans cellule A1= valeur supérieure à 1
alors
Faire une insertion de ligne correspondant à la valeur entrée

5 réponses

  1. Bonjour

    Un peu d'explication me semble nécessaire
    Exemple
    1. si dans A1 il y a 2, il faut insérer 1/2 lignes avant/après la ligne 1?
    2. La macro doit faire la même chose pour une autre cellule?

    Cdlmnt
    0
    1. Bonjour,
      quand tu double clic dans A1, tu inseres le nombre de ligne ecrit dans A1 a partir de la ligne 2

      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      If ActiveCell.Value > 1 Then
      Rows("2:" & (Int(ActiveCell.Value))).Select
      Selection.Insert Shift:=xlDown
      End If
      End Sub

      Ce que l'on conçoit bien s'énonce clairement,
      Et les mots pour le dire arrivent aisément.
      0
      1. @ccm81

        1. si dans A1 il y a 2, il faut insérer 1 ligne après la ligne 1
        2. La macro doit faire la même chose pour une autre cellule : oui sur toutes ma colonne

        @dlt-pan

        Merci c'est que je recherche dans le principe.
        Mis a part que les lignes s'ajoutent au dessus ( dans mon fichier ) or dans un nouveau doc cela j'ajoute en dessous ( comme je le recherche ) une idée ?
        0
        1. non desolé je ne vois pas, l'insertion decale les lignes vers le bas et dans mon fichier de test, le decalage va bien vers le bas....
          0
      2. @ccm81 parfait merci beaucoup
        0