Insértion de lignes (nbre variable) dans tableau (nbre de lignes variable)

Bonjour à tous,

Je suis nouvelle sur le forum et suis débutante sur le tas, en VBA.
J'élabore une macro actuellement et bloque sur la finalisation de celle-ci.
Voilà mon problème :

Insertion de numéros de devis manquants.

J’ai une macro de contrôle, qui me référence en colonne J, les numéros de devis qui manque dans ma base de données (tableau_X sur Excel). (Ces devis sont présents sur les dossiers des chargés d’affaire mais pas dans ma base de données).
J’ai une formule simple NB.SI en colonne K qui me compte le nombre de devis qui manquent à mon tableau_X.
Le tableau_X, base de données, me référence les devis, et je veux ajouter par macro, ces N° de devis manquants au tableau_X existant.
Le nombre de devis manquants est variable.
Le nombre de lignes du tableau est variable.
Idéalement, la fonction souhaitée doit insérer les numéros de devis colonne J manquants à la fin du tableau_X.

Merci d'avance ;)

Bonjour,

Peux tu être plus précise s'il te plait ? Je n'ai pas bien compris ce que tu veux.
Voilà quelques pistes pour commencer :

Code:

---

1 2	'Insert une ligne à la dernière ligne de la colonne A range("A1048576").End(XlUp).EntireRow.Insert

---

Pièce jointe 193730

Ok, oui je vais essayer d'être plus claire :

- Dans mon fichier, j'ai dans une colonne (J), une liste de numéros (devis), que je dois ajouter à la fin de mon tableau.
- Le nombre de devis à ajouter peut-être de 5 ou 10 ou 15, variable.
- Le nombre de lignes du tableau existant peut-être de 100, 200 ou 300, variable.
- Je souhaite finir ma macro de contrôle, par un "mouvement", qui prend tous mes numéros de devis (colonne J), pour les ajouter à la fin du tableau.

ça n'a pas l'air si farfelu mais je ne maîtrise pas bien le langage VBA ;)

boujour,
tu peut essayer un truc du genre :

Code:

---

1 2 3 4 5 6 7 8 9

ligne = range("A1").End(xlDown).Row 'dernière ligne du tableau   y = 2 'ligne de début des devis   while cells(y,10) <> "" 'tant que tu as des devis a ajouter cells(ligne+1,1) = cells(y,10) ' on copie le devis dans la colonne a ligne = ligne + 1 ' on incrémente le numéro de ligne y = y + 1 wend

---

ça ne fonctionne pas je dois oublier quelque chose :/

dans quel sens sa fonctionne pas ?
XD
une erreur apparait ?
ça ne fait rien du tout ?

verifie que je ne me soit pas tromper de numéro de colonne

autant pour moi je viens de voir une chose a laquelle je n’avais pas prêté attention voici qui devrai être fonctionnel :

Code:

---

1 2 3 4 5 6 7 8 9

ligne = range("A3").End(xlDown).Row 'dernière ligne du tableau   y = 2 'ligne de début des devis   while cells(y,10) <> "" 'tant que tu as des devis a ajouter cells(ligne+1,1) = cells(y,10) ' on copie le devis dans la colonne a ligne = ligne + 1 ' on incrémente le numéro de ligne y = y + 1 wend

---

:alerte: avec le précédant code, tes premiers devis on été modifier :alerte:

Pour le 1er code rien ne se produisait, elle semblait ne pas se lancer.
J'ai testé avec le deuxième également, rien ne change.

En VBA j'ai ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Macro1() ' ' Macro1 Macro '   Sheets("BASE DEVIS").Select Range("A1").Select ligne = Range("A3").End(xlDown).Row 'dernière ligne du tableau   y = 2 'ligne de début des devis   While Cells(y, 10) <> "" 'tant que tu as des devis a ajouter Cells(ligne + 1, 1) = Cells(y, 10) ' on copie le devis dans la colonne a ligne = ligne + 1 ' on incrémente le numéro de ligne y = y + 1 Wend   End Sub

---

Optimisation de ton code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Ajoutdevis() With Application .ScreenUpdating = False .DisplayStatusBar = False .Calculation = xlCalculationManual End With ligne = Range("A3").End(xlDown).Row 'dernière ligne du tableau y = 2 'ligne de début des devis While Cells(y, 10) <> "" 'tant que tu as des devis a ajouter Cells(ligne + 1, 1) = Cells(y, 10) ' on copie le devis dans la colonne a ligne = ligne + 1 ' on incrémente le numéro de ligne y = y + 1 Wend With Application .Calculation = xlCalculationAutomatic .DisplayStatusBar = True .CutCopyMode = False .ScreenUpdating = True .StatusBar = False End With End Sub

---

Tes select ne servaient à rien et il vaut mieux éviter d'en mettre pour ne pas ralentir la macro.

Stanler pourquoi lance tu toujours des calcule sur feuilles ? tu peut juste cocher ou décocher la fonction calcule de la feuille automatique ?

Cela dit stanler a raison les "select" et les "activate" ne servent pas a grand choses.

En revanche je peut t'assurer que le code marche je le teste en se moment même.

voila ce dont je me sert pour les test

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Macro1()   ligne = Range("A3").End(xlDown).Row 'dernière ligne du tableau   y = 2 'ligne de début des devis   While Cells(y, 10) <> "" 'tant que tu as des devis a ajouter Cells(ligne + 1, 1) = Cells(y, 10) ' on copie le devis dans la colonne a Cells(y, 10).Clear ligne = ligne + 1 ' on incrémente le numéro de ligne y = y + 1 Wend End Sub

---

PS : Dsl pour le double double post :?

Pasdechances, je met toujours ce "With" avant et après chaque macros. Souvent, le code que l'on aide à réaliser est plus long que ce qu'on nous présente et ça peut aider pour le codes plus longs :)
Pour cocher et décocher, tu parles de cela ? :
Pièce jointe 193740
La plupart ne connaissent pas trop ce bouton ^^

Avec ou sans les codes de calcul cela ne fonctionne toujours pas, je ne comprend pas :/

Tu es sûre d'avoir activé les macros ? Comme cela :

Pièce jointe 193746

Aussi, tu as bien noté la macro dans un module normal ?

Oups... oui effectivement, mon fichier backup test de ma base de données n'avait pas les macros activées... désolé pour la perte de temps.
C'est parfait, encore merci pour vos conseils, la macro fonctionne et ajoute bien les devis manquants au tableau ;)