Discussion :

[Ordo_VBA]

Bonjour,

Je suis un débutant VBA.

Je mets en place un fichier d'ordonnancement de la production et j'aimerai automatiser les actions.
Je voudrai qu' A CHAQUE FOIS QUE JE CLIQUE sur un bouton "actualiser"
que mon code VBA aille chercher dans ma base de données tous les numéros+valeur+vendeur+ref+statut+ qté+stock qui correspondent et les colle dans mon tableau d'ordonnancement.
à la suite de mes numéros de lots déjà présents dans mon tableau.


Merci d'avance pour votre aide

[riaolle]

Bonjour,

Conformément aux règles du forum, ne joins pas de fichier, mais explique nous clairement ton problème.
Quel est ton code actuel ? Où rencontres-tu un problème ? As-tu un message d'erreur ? Si oui, lequel et où ?
Joins éventuellement des copies d'écrans si cela facilite l'explication.

aille chercher dans ma base de données tous les numéros+valeur+vendeur+ref+statut+ qté+stock qui correspondent

Qui correspondent à quoi ?

[Ordo_VBA]

Je veux en cliquant sur un bouton actualiser chercher dans mon fichier Base de données les valeurs dans les colonnes A B C D E et les coller dans mon fichier Planning colonnes A B C D E
faire la boucle jusqu'à ce que je trouve une cellules vide dans ma base.

Merci

[riaolle]

Voici quelques liens utiles pour la résolution de ton problème :

• Boucles en VBA : http://silkyroad.developpez.com/vba/boucles/
• Méthode Copy : https://msdn.microsoft.com/fr-fr/lib.../ff837760.aspx
• Enregistreur de macro : http://fauconnier.developpez.com/tut...istreur-macro/
• Tuto VBA : http://bidou.developpez.com/article/VBA/
• Règles du forum : http://club.developpez.com/regles/, en particulier http://club.developpez.com/regles/#LIV-N

Bon courage !

[Ordo_VBA]

Merci de trouver la macro que j'ai faite et de m'aider pour exécuter une boucle.
En fait je veux copier dans la feuille "Ordo" les cellules déclarées, faire un boucle tant que la cellule n'est pas vide, les copier toutes
puis les coller dans un feuille "planning"
j'aimerai le faire de façon automatique en cliquant sur une zone "actualiser" qui va exécuter la macro.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Public Co As Integer
Public CodL As String
Public CodS As String
Public Codf As String
Public Codf1 As String
Public Codu As String
Public CodV As String
 
Sub dom()
 
 
Co = ActiveCell.Row
Rows(Co).Select
 Range("E" & Co).Select
 Codf = ActiveCell.Value
  Range("c" & Co).Select
 CodL = ActiveCell.Value
   Range("B" & Co).Select
Codu = ActiveCell.Value
   Range("A" & Co).Select
Codf1 = ActiveCell.Value
   Range("D" & Co).Select
CodV = ActiveCell.Value + 1 - 1
   Range("B3").Select
CodS = ActiveCell.Value
 
While Co = Co <> ""
Co = ActiveCell.Row
Rows(Co).Select
 Range("E" & Co).Select
 Codf = ActiveCell.Value
  Range("c" & Co).Select
 CodL = ActiveCell.Value
   Range("B" & Co).Select
Codu = ActiveCell.Value
   Range("A" & Co).Select
Codf1 = ActiveCell.Value
   Range("D" & Co).Select
CodV = ActiveCell.Value + 1 - 1
   Range("B3").Select
CodS = ActiveCell.Value
 
Wend
 
Sheets("Planning").Select
 
'planning
Range("B1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
 
ActiveCell = CodS
ActiveCell.Offset(0, 1).Select
ActiveCell = Codf1
ActiveCell.Offset(0, 1).Select
ActiveCell = Codu
ActiveCell.Offset(0, 1).Select
ActiveCell = Codf
 
ActiveCell.Offset(0, 2).Select
ActiveCell = CodL
ActiveCell.Offset(0, 2).Select
ActiveCell = CodV
 
End Sub

[riaolle]

Bonjour,
Voici quelques conseils et remarques :
1. N'utilise pas Activate/ActiveCell/Select etc ... Cela entraîne souvent des problèmes dans le code. Utilise directement les objets. Par ex. :

Code :

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

1
2
3
4
5
'---------- N'écris PAS : ----------
Range("E" & Co).Select
 Codf = ActiveCell.Value
'---------- MAIS : ----------
Codf = Range("E" & Co).Value

2.

Code :

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

While Co = Co <> ""

Tu veux faire quoi là ?
Co <> "" renvoie VRAI si Co n'est pas vide et FAUX sinon. Là, tu cherche la condition où Co vaut ce que renvoie Co <> "".
3. A quoi ça te sert tout ce que tu fais dans la boucle While ? A chaque iteration, tu attribues une autre valeur aux variables sans les utiliser ... du coup tu "ré-écris" par dessus à chaque iteration. A la fin, les variables vaudront ce qu'elles valent à la dernière itération.
4. Trouver la ligne de la dernière cellule non vide de la colonne A :

Code :

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

1
2
Dim rowN As Long
rowN = Range("A" & Cells.Count).End(xlUp).Row

On utilise pas une boucle pour cela, c'est trop long. La méthode ci-dessus est plus efficace.
5. Tu dis que tu veux copier-coller quelque chose, mais je ne vois pas de méthode Copy ? Ex. d'utilisation de la méthode Copy :

Code :

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

Sheets("Ordo").Range("A1:D25").Copy destination:=Sheets("Planning").Range("A1")

Essaie de simplifier ton code avec tout cela, puis reviens vers nous