XL 2019 variable

[MOmichel]

bonjour a toute la communauté


j'écris une procédure "Sub importfichierSappro()" et je n'arrive pas a ce que cette variable ResultX = Cells(f, "d") prenne la valeur de la cellule désignée (qui peu etre du texte ou du numérique )

quelqu'un peut m'aider en me disant ou je fais l'erreur ou me donner une solution

merci a tous

 

[fhoest]

Bonjour,
pour moi Worksheets("sappro").Select n'est pas correcte c'est SAPPRO en majuscule.
la suite devrait fonctionner je n'ai pas tester.
A+

 

[MOmichel]

Bonsoir

j'ai revérifié mais cette solution n'a pas d'influence

 

[fhoest]

OK, je préfère mettre les noms correctement je suis étonné que cela fonctionne en minuscule.
par contre à essayer:

  For f = xderlig To Xinit Step -1     'Boucle de la premiere ligne  à derniere ligne
         ResultX = Cells(f, "d")      ' variable a rechercher    
Next f

comme tu vas du plus grand au plus petit la boucle doit avoir un pas négatif.
A+

 

[Phil69970]

Bonjour @MOmichel, @fhoest

Pour compléter ce que dis @fhoest
Et si tu veux aller de la 1ere ligne à la dernière ligne il faut mettre la boucle dans le bon sens

        For f = Xinit To xderlig         'Boucle de la premiere ligne  à derniere ligne
            ResultX = Cells(f, "d")      ' variable a rechercher
        Next f

sinon tu vas de la dernière ligne à la 1ere comme l'as écrit @fhoest

Dans un sens comme dans un autre ResultX prends tour à tour toutes les valeurs mais après tu en fait quoi ?

*Evite les select dans tous les sens.....qui sont à proscrire chaque fois que c'est possible.

Cette partie de ton code :

'      Sheets("base").Activate
'      Rows("5:5").Select
'      Selection.Delete Shift:=xlUp

Peut être remplacé par :

      Sheets("base").Rows("5:5").Delete Shift:=xlUp

Et celle ci :

'      Range("B5").Select
'      ActiveCell.CurrentRegion.Select
'      Selection.Copy
'      Worksheets("SAppro").Activate
'      ActiveSheet.Paste

Par cela :

      Sheets("base").Range("B5").CurrentRegion.Copy
      Worksheets("SAppro").Paste

Ce qui donne :

      Sheets("base").Rows("5:5").Delete Shift:=xlUp

      Sheets("base").Range("B5").CurrentRegion.Copy
      Worksheets("SAppro").Paste

C'est plus simple, non.

Et tu peux faire pareil pour la "Sub importfichierlisteàservir()"

@fhoest ==> Worksheets("sappro") ou Worksheets("SAPPRO") fonctionne dans les 2 cas mais c'est vrai qu'il est toujours préférable d'écrire de la même manière...

@Phil69970

 

[fhoest]

@Phil69970 , oui la il s'agit de VBA, mais la syntaxe est très importante à respecter dans d'autre langage informatique, donc il vaut mieux prendre de bonne habitude dès le début, comme les Select et Activate etc...
n'est ce pas

 

[MOmichel]

merci a vous tous pour ces conseils

 

[Phil69970]

Bonjour @MOmichel

Content que nos réponses te conviennent, mais la logique est que tu valides la solution que tu as retenue et non que tu t'auto-valide la solution sauf si tu as retenue une autre solution bien sur.
En cas de réponses complémentaires la logique est de valider celle qui correspond le mieux à ta problématique et à préciser par exemple voila la solution que j'ai retenue qui est un mix de la solution X et Y....

Valider une solution n'est pas obligatoire mais c'est un plus pour la communauté et me semble assez logique que tu indiques à tout le monde la solution que tu as retenue et même si c'est une autre solution trouvé ailleurs ..... et qui peut aider quelqu'un d'autre....

La validation d'une solution permet à un futur lecteur qui a le même problème de voir tout de suite quelle solution que le demandeur à retenue par rapport à la question posé. Et accessoirement permet aux autres membres de savoir qu'une solution a été trouvée.

Ici il n'y a eu que quelques posts donc c'est assez facile de voir le résultat de ta question mais quand il y a 3 pages de réponses c'est assez difficile pour le lecteur de savoir la réponse retenue en faisant comme tu fait.

Donc si tu retiens la solution de @fhoest c'est à lui que reviens la validation !!!

@Phil69970