Discussion :

[BlackWizzard]

Bonjour à tous,

J'ai actuellement 2 fichiers Excels :
- Le fichier A : Liste de données avec coordonnées x, y et z.
- Le fichier B : Macro permettant d'écrire dans SolidWorks (logiciel de conception 3D).

Problème :
J'aimerais copier/coller des données du fichier A au fichier B suivant le processus suivant :
1. Tester valeur de Z dans la colonne C du fichier A.
2. Sélectionner les colonnes A, B et C pour des valeurs de Z identiques (que celles égales à 0, puis que celles égales 0,05,...) -> 200 lignes à chaque fois.
3. Copier ces valeurs dans le fichier B
4. Exécuter la macro "Private Sub btnLines_Click()" du fichier B.
5. Accorder un délais de 5 secondes pour le temps de traitement de la macro du fichier B.
6. Renouveler l'opération.

J'ai un début de code mais il me manque de quoi tester la valeur et attendre...

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Copier_desiner()
 
' Copie valeur fichier A vers fichier B. Exécute la macro du fichier B. Attend 10 secondes.
 
    Range("A1:C200").Select
    Selection.Copy
    Windows("trace_des_points_sur_un_part__xyz_v3.xls").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A201").Select
    Application.CutCopyMode = False
 
End Sub

Merci d'avance pour votre aide !

Les fichiers sont joint.

[Philippe Tulliez]

Bonjour,
Si tu dois copier des données suivant conditions, je ne peux que te conseiller l'utilisation de la méthode AdvancedFilter de l'objet Range (Filtre avancé d'excel).

A lire Les filtres avancés ou élaborés dans Excel

[BlackWizzard]

Dans le cas où mes données sont toujours à intervalle de 200 lignes, n'y a-t-il pas un moyen de l'écrire de cette façon ?
Car je n'arrive pas à écrire le fait de changer de plage de données.

Voici le code que j'ai fait pour le "timer".

Code vb :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Attendre(Secondes As Single)
' Cette procédure temporise pendant le nombre de secondes qu'on lui transmet en argument
Dim Début As Long, Fin As Long, Chrono As Long
Début = Timer
Fin = Début + Secondes
Do Until Timer >= Fin
    DoEvents
Loop
End Sub

Merci encore pour votre réponde !