Discussion :

[AB-ES]

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

[Stanler]

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 :

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

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

[AB-ES]

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

[pasdechances]

boujour,
tu peut essayer un truc du genre :

Code :

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

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

[AB-ES]

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

[pasdechances]

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 :

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

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

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

[AB-ES]

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 :

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

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