Pb de navigation dans les feuilles de calcul

Bonjour chacun, forum

Je suis débutante, voici le code qui me pose le pb suivant. Les données qui sont lues avec ce code proviennent de la feuille conference tandis qu'elles devraient provenir de la feuille résultats. La seconde est une copie de la première sans les lignes vides et les entêtes...et je souhaites travailler au niveau de la seconde pour faire le traitement...

Code:

---

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

Sub MonProgramme()   Dim Gain As Variant Gain = ObjectifGain ' rapporte les gains de la sélection effectuée   Dim MonRange As Range Set MonRange = SupprLigneVideVersion3 ' rapporte la plage des conférences à lire sans ligne vide Dim Xls As Worksheet Set Xls = ThisWorkbook.Worksheets("Résultats") Sheets("Résultats").Select   Dim MaConference As Conference Dim LastRow As Long, sRow As Integer sLastRow = Range("A1").End(xlDown).Row   For sRow = 1 To sLastRow   With MaConference .Nom = MonRange.Cells(sRow, 3).Value ' 3 est le nombre correspondant à C .Domaine = MonRange.Cells(sRow, 4).Value ' 4 est le nombre correspondant à D ' .Du = MonRange.Cells(sRow, 8).Value ' 4est le nombre correspondant à G ' .Au = MonRange.Cells(sRow, 9).Value ' est le nombre correspondant à H ' .DateR =MonRange.Cells(sRow, ).Value ' est le nombre correspondant à J ' .DateN =MonRange.Cells(sRow, ).Value ' est le nombre correspondant à K ' .DateF =MonRange.Cells(sRow, ).Value ' est le nombre correspondant à L .Donnees.Envergure = MonRange.Cells(sRow, 19).Value ' est le nombre correspondant à S .Donnees.Envergure = Convertir(1, MaConference.Donnees.Envergure) * Gain(0)

---

je vous épargne le reste du code. Quelqu'un a une idée pour expliquer ceci.

Merci bien,

bonjour Bocage le forum pas simple ton code!! difficile de comprendre le mieux c ' est mettre un petit fichier sans données confide... avec le résultat désire

sans conviction

Code:

---

With MaConference

---

remplacer par

Code:

---

with Sheets("Résultats")

---

Merci du conseil. Je crois avoir trouvé un forme viable de code.:lol:

J'aurai eu le réflexe de lire les données d'une feuille de calcul et de façon virtuelle faire le traitement nécessaire et ensuite d'inscrire le résultat à une autre feuille de calcul. Je ne sais pas faire ca en VBA . Alors je fais une copie de la feuille qui contient les données (sans lignes vides et entêtes), mais le traitement appliqué au range de cette nouvelle feuille, s'est effectué sur les données de départ (avec lignes vides et entêtes). J'ai alors cru que le range était associé à la feuille de calcul de départ...Je crois que c'est résolu.

Je ne vois pas l'avantage de l'o.o. si l'on ne peut jouer avec des objets virtuels lues dans le chiffrier...Il y a définitivement quelque chose que je ne comprends pas ...;)

Tu fais bien un

Code:

---

Set Xls = ThisWorkbook.Worksheets("Résultats")

---

mais, ensuite tu oublies ton objet Xls.

Ceci est parfaitement inutile:

Code:

---

Sheets("Résultats").Select

---

sauf pour des raisons "cosmétiques" (montrer la feuille à l'utilisateur).

La bonne solution:

Code:

---

sLastRow = Xls.Range("A1").End(xlDown).Row

---

Il y a des chances que ta définition de MonRange souffre du même défaut (non utilisation de l'objet feuille concerné).

Bonjour/soir Forum, AlainTech

MonRange est déclaré as range : je ne vois pas comment le relier à la feuille de calcul dans la déclaration. Dans la sub qui retourne la plage au pgm principal, la déclaration est la suivante

Code:

---

1 2 3 4 5

While Range(MaPlage.End(xlDown).Address(rowabsolute:=False, columnabsolute:=False)).Value <> "" Set MaPlage = Range(MaPlage.End(xlDown).Address(rowabsolute:=False, columnabsolute:=False)) Wend Set MaPlage = Range("A1:" & MaPlage.Address(rowabsolute:=False, columnabsolute:=False))

---

J'ai tenté l'ajout de la proposition sans grand succès...

Merci et a+

Bo

Citation:

---

Envoyé par Bocage

MonRange est déclaré as range : je ne vois pas comment le relier à la feuille de calcul dans la déclaration.

---

Ce n'est pas dans la déclaration mais au moment de l'affectation.

Un Range est un objet, propriété d'une feuille.

Dans le code que tu montres, je ne vois pas MonRange.
De plus, je ne vois pas l'utilité de travaiiler sur les adresses comme tu le fais.

Un exemple pour trouver la dernière cellule utilisée d'une colonne:

Code:

---

1 2 3 4

Dim wksDest As Worksheet Dim rLastCell As Range Set wksDest = ThisWorkbook.Sheets("Feuil1") ' Par exemple Set rLastCell = wksDest.Cells(Rows.Count, 1).End(xlUp)

---

Si tu veux la cellule vide suivante:

Code:

---

1 2 3 4

Dim wksDest As Worksheet Dim rLastCell As Range Set wksDest = ThisWorkbook.Sheets("Feuil1") Set rLastCell = wksDest.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

---

Bonjour/soir Forum, AlainTech

J'ai éliminé "MonRange" ceci n'est pas nécessaire, maintenant que je peux spécifier la feuille. Donc plus de pb de navigation entre les différentes feuilles.

Par contre, je ne saisi pas la portée de cette phrase

Citation:

---

De plus, je ne vois pas l'utilité de travailler sur les adresses comme tu le fais.

---

Est ce que tu fais référence à cette section du code, qui maintenant ressemble davantage à ceci;

Code:

---

1 2 3 4 5 6

For sRow = 1 To sLastRow SommeLigne = 0 With MaConference .Nom = Xls.Cells(sRow, 3).Value ' 3 est ... .Domaine = Xls.Cells(sRow, 4).Value ' 4 est .. .Donnees.Envergure = Xls.Cells(sRow, 19).Value

---

où je dois lire et convertir une à une (algo différent) les données d'une ligne pour ensuite inscrire le résultat en bout de ligne. Existe-t-il une autre facon de faire ca ?
Autre chose, j'aurais voulu faire la conversion, par exemple de .Données.Envergure et inscrire le résultat à même cette variable pour ensuite ne faire que la somme. Tjrs en conservant les données de la feuille intacte...

Code:

---

.Donnees.Envergure=Convertir(code de conversion ,.Donnees.Envergure)

---

Est ce que ceci peut fonctionner selon toi..

Merci de ton aide, c'est très très apprécié
Bo:D

Citation:

---

Envoyé par Bocage

Par contre, je ne saisi pas la portée de cette phrase

Citation:

---

De plus, je ne vois pas l'utilité de travailler sur les adresses comme tu le fais.

---

---

Je faisais référence à ceci:

Code:

---

1 2 3 4

While Range(MaPlage.End(xlDown).Address(rowabsolute:=False, columnabsolute:=False)).Value <> "" Set MaPlage = Range(MaPlage.End(xlDown).Address(rowabsolute:=False, columnabsolute:=False)) Wend Set MaPlage = Range("A1:" & MaPlage.Address(rowabsolute:=False, columnabsolute:=False))

---

qui, en reprenant mon exemple précédent, pourrait avoir cette forme:

Code:

---

1 2 3 4

Dim wksDest As Worksheet Dim MaPlage As Range Set wksDest = ThisWorkbook.Sheets("Feuil1") ' Par exemple Set MaPlage = Range(wksDest.Cells(1, 1), wksDest.Cells(Rows.Count, 1).End(xlUp))

---

Pour ce code:

Code:

---

1 2 3 4 5 6

For sRow = 1 To sLastRow SommeLigne = 0 With MaConference .Nom = Xls.Cells(sRow, 3).Value ' 3 est ... .Domaine = Xls.Cells(sRow, 4).Value ' 4 est .. .Donnees.Envergure = Xls.Cells(sRow, 19).Value

---

je travaillerais plutôt avec un For Each.

Petite question qui n'a rien à voir avec la validité du code:
Pourquoi utilises-tu le préfixe s pour sRow et sLastRow?
s ou str est habituellement utilisé pour les variables de type String.

Concernant ta dernière question, je ne la comprends pas, désolé.

Bonjour/soir Forum, AlainTech,

La boucle "While" est utilisée pour déterminer la plage à sélectionner. Initialement la section des données comprend des lignes vides et des entêtes. Le nombre de conférences peut varier et une ligne de données valide contient un numéro en A1.

Pour le préfixe, j'ai du copier ca directement du code dont je me suis "inspirée" . J'ai laissé le préfixe croyant éviter d'utiliser un mot réservé, dans le cas du Row.

En ce qui a trait à la dernière question, j'ai du code fonctionnel qui utilise SommeLigne pour faire la somme des colonnes x à y...pas très élégant mais comme ca marche, je crois que je vais le garder comme ca. Ce qui est contraignant ici c'est que chaque valeur (colonne) doit être convertie (algo différent) avant de faire la somme.

Voilà, merci encore et a+
Bo