Discussion :

[lavnad]

Bonjour à tous,

J’apprends de jour en jour le VBA, mais là j’ai du mal avec les références de cellule dynamique qui dépende d’une valeur de cellule.

Voilà je possède la colonne «*B*» avec des numéros et 9 cases avec un tiret.

Je détermine en «*C1*» le numéro de la première ligne vide.

je veux donc en VBA:

1 - ajouter une ligne avant la ligne de valeur «*C1*» donc maintenant j’ai deux lignes vides de coordonnées «*C1 et C1+1*»
2 - copier-coller toute la ligne «*C1-1*» dans la ligne la ligne «*c1*».

En fait c’est un système pour ajouter une ligne en cas de manque, car j’ai des calculs sur chaque colonne (sinon j’aurais fait un tableau dynamique).

je vais lier cela au bouton «*ajouter une ligne*»

et une deuxième macro:

1 - un système de boucle qui va exécuter un nombre de fois («*D1*») la macro précédente (donc ajout d’une ligne et copier-coller).

2 - Copier-coller les valeurs de la colonne A de l’onglet copier à la suite des valeurs de la colonne B de l’onglet Données puis effacer la colonne A de l’onglet copier.

je vais lier cela au bouton «*copier*»)

On doit toujours avoir en B une liste de numéros puis 9 cases remplies avec des tirets.

À l’avance un grand merci.


Daniel


base.xlsm

[a_diard]

j'ai regardé la demande

ce n'est pas très clair pour moi, je n'ai rien imprimé.....

[a_diard]

Pour la première demande

je veux donc en VBA:

1 - ajouter une ligne avant la ligne de valeur «*C1*» donc maintenant j’ai deux lignes vides de coordonnées «*C1 et C1+1*»
2 - copier-coller toute la ligne «*C1-1*» dans la ligne la ligne «*c1*».

En fait c’est un système pour ajouter une ligne en cas de manque, car j’ai des calculs sur chaque colonne (sinon j’aurais fait un tableau dynamique).

je vais lier cela au bouton «*ajouter une ligne*»



je pense que ceci peut répondre à la demande.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Macro1()
'
'calcule la derniére ligne plutôt que d'utiliser la cellule C1
nblignes = Range("A4").CurrentRegion.Rows.Count + 3
 
'insére une ligne
 
  Rows(Format(nblignes) & ":" & Format(nblignes)).Insert Shift:=xlDown
 
'copie la ligne dans la ligne insérée.
 
'
 Rows(Format(nblignes + 1) & ":" & Format(nblignes + 1)).Copy Range("A" & Format(nblignes))
 
End Sub