Discussion :

[argal]

Bonjour,

voici mon problème,

je travail avec deux fichier xls

dans l'un des fichier j'ai la totalité de mes données(fichier 1)
dans l'autres j'aimerai recupéré certaine donnée du fichier 1
pour celà je demande a l'utilisateur de remplir un certain nombre de champs (faculatif)
une fois le champs remplis on clique sur un ptit bouton et le système vas copier juste les ligne correspondant aux critère demandé

Pour le moment mon programme vas bien chercherles donéée mais si par exemple aucun champs n'est rempli il me copie plisieur fois les prelière ligne puis seulement les donnée qui suivent

je travail avec une boucle for...to... next dans lequel j'ai mis des IF

voici une parie du code en Piece jointe

[Invité]

Bonjour,

Je n'ai pas passé en revue tout votre code et je n'ai donc pas de solution pour l'instant mais une première remarque concernant votre déclaration de variables :

Code :

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

1
2
3
4
5
Sub import()
Dim jobName, org, flow, lang, op As String
Dim querok, compleok As String
Dim Dte As Date
Dim i, j, a As Long

De cette façon seules "op" et "compleok" sont du type String et "a" est du type Long.

Il faut préciser pour chaque variable. Pour simplifier vous pouvez utiliser les caractères de déclaration exemple :

Code :

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

1
2
3
Dim jobName$, org$, flow$, lang$, op$, querok$, compleok$
Dim Dte As Date
Dim i&, j&, a&

[/CODE]

[argal]

Merci pour cette information

il ne faut pas mettre le type de variable que celà represente?

[Invité]

Si il faut le mettre mais il faut le répéter pour chaque variable et il est plus facile d'écrire :

Code :

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

1
2
3
4
5
Dim jobName$, org$
 
plutôt que :
 
Dim jobName As String, org As String

Le caractère "$" équivaut à écrire As String, "&" = As Long, "%" = As Integer
mais si vous ne précisez pas la variable est de type Variant.

Regardez ici :

http://silkyroad.developpez.com/VBA/LesVariables/#LII-E