Création de différents boutons pour ajouter une ligne

[jenor]

Bonjour à tous,

J'aurai besoin de votre aide précieuse du fait que je débute avec l'outil VBA.
Sur Excel, j'ai un tableau avec des colonnes contenant différents types de données. Je souhaiterai mettre en place plusieurs boutons afin d'ajouter une ligne à mon tableau, chaque bouton ajoutant une ligne mais selon différents cas (visibles dans le fichier excel ci-joint)

Je vous remercie par avance pour votre réponse.

 

[natorp]

Re : Création de différents boutons pour ajouter une ligne

Bjr jenor et bienvenu sur XLD

Pourriez-vous être plus précis sur ce que vous attendez ?
Que doit faire le bouton 1, etc....

1er cas : "Colonne C copiée, Colonne D copiée" que doit-il être copié ?

Pas compris par exemple le cas 3, ligne 11 ??? "Colonne C vide, Colonne D remise à zéro (par rapport à la cellule de la colonne B correspondante", or la cellule en C n'est pas vide dans l'exemple

Cordialement, Gérard

 

[gilbert_RGI]

Re : Création de différents boutons pour ajouter une ligne

Bonjour, jenor & le forum et bienvenu sur XLD

Comme natorp rien pigé 😕

 

[jenor]

Re : Création de différents boutons pour ajouter une ligne

Dans chacun des cas, une ligne doit être ajoutée. Mais chaque cas est différent (je copie colle ce qui est dans le fichier ...) :

Chaque bouton donne une cellule A et B vide.
Bouton 1 : Colonne C copiée, Colonne D copiée
Bouton 2 : Colonne C copiée, Colonne D remis à zéro (par rapport à la cellule de la colonne B correspondante)
Bouton 3 : Colonne C vide, Colonne D remise à zéro (par rapport à la cellule de la colonne B correspondante)

Quand je dis qu'une cellule est vide, c'est que son contenu sera rentré manuellement.
Lorsque la cellule de la colonne C est copiée, c'est simplement une copie de la valeur de la cellule C au rang [n-1]
Pour ce qui est de la cellule de la colonne D, je voudrais que la formule, contenue au rang [n-1], soit copiée. De ce fait, le cumul du paramètre X continue.

J'espère que mon problème est maintenant plus clair ... 🙂

 

[Iznogood1]

Re : Création de différents boutons pour ajouter une ligne

Bonjour,

voilà un squelette de fichier.
Je te laisse regarder les code pour l'adapter (tout se joue dans la sub "PutFormulas")

 

[jenor]

Re : Création de différents boutons pour ajouter une ligne

Merci beaucoup, c'est bien ce que j'attendais 🙂

 

[jenor]

Re : Création de différents boutons pour ajouter une ligne

Par contre, pourrais-tu m'expliquer l'utilité des différentes fontions (citées ci-dessous) que tu as mises sur VBA ? (je débute avec VBA ...)

Les fonctions à expliquer sont : PutFormulas, Range("C"& nbLi +1), .EntireRow.Insert, Feuil1.[A1].CurrentRegion.Rows.Count

 

[Iznogood1]

Re : Création de différents boutons pour ajouter une ligne

Voici quelques commentaires.

MAis je t'encourage vivement à lire l'aide en ligne : clique sur un mot que tu ne comprends pas, appuie sut F1.

'On éxécute cette macro en lui passant un paramètre (1, 2 ou 3 suivnat le bouton cliqué)
Private Sub PutFormulas(cas As Integer)
  Dim nbLi As Long
  'On récupère le nomre de lignes de la zone adjacente à la cellule A1
  nbLi = Feuil1.[A1].CurrentRegion.Rows.Count
  
  With Feuil1.Range("C" & nbLi + 1)
    'On insère une nouvelle ligne tout en bas du tableau
    .EntireRow.Insert
    Select Case cas
    'Suivnat le obuton cliqué, on exécute le code correspondant
    Case 1
      .Offset(-1, 0).Formula = .Offset(-2, 0).Formula
      .Offset(-1, 1).Formula = .Offset(-2, 1).Formula
    Case 2
      .Offset(-1, 0).Formula = .Offset(-2, 0).Formula
      .Offset(-1, 1).Formula = 0
    Case 3
      .Offset(-1, 0).ClearContents
      .Offset(-1, 1).Formula = .Offset(-2, 1).Formula
    End Select
  End With
End Sub

 

[jenor]

Re : Création de différents boutons pour ajouter une ligne

Merci pour ta réponse. Par contre, je n'arrive pas à avoir accès à l'aide, y a t-il un autre moyen que de cliquer sur le point d'interrogation ... ? (genre trouvable sur internet ou autre)

 

[Iznogood1]

Re : Création de différents boutons pour ajouter une ligne

D'habitude, tu te positionnes sur un mot et tu cliques sur F1