XL 2019 variable

MOmichel · 10 Avril 2021

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

Phil69970 · 10 Avril 2021

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

VB:

        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 :

Code:

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

fhoest · 10 Avril 2021

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 · 10 Avril 2021

Bonsoir

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

fhoest · 10 Avril 2021

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

Code:

  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 · 10 Avril 2021

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

VB:

        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 :

Code:

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

Peut être remplacé par :

Code:

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

Et celle ci :

Code:

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

Par cela :

Code:

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

Ce qui donne :

Code:

      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 · 11 Avril 2021

@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 · 11 Avril 2021

merci a vous tous pour ces conseils

Phil69970 · 11 Avril 2021

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

XL 2019 variable

MOmichel

XLDnaute Junior

Pièces jointes

Phil69970

fhoest

XLDnaute Accro

MOmichel

XLDnaute Junior

fhoest

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

fhoest

XLDnaute Accro

MOmichel

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

Discussions similaires