Discussion :

[Bocage]

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 :

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

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,

[laetitia]

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 :

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

With MaConference

remplacer par

Code :

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

with Sheets("Résultats")

[Bocage]

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

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 ...

[AlainTech]

Tu fais bien un

Code :

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

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

mais, ensuite tu oublies ton objet Xls.

Ceci est parfaitement inutile:

Code :

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

    Sheets("Résultats").Select

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

La bonne solution:

Code :

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

    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é).

[Bocage]

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 :

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

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

[AlainTech]

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 :

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

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 :

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

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)