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

  • Votes
  • Date
  • Date décroissante
  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 ?
    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....
  2. 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.
    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