Parcourir ligne & colonne

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Voilà ma question , question basique pour certains je pense mais après plusieurs recherche je galère à trouver une réponse.

je m'explique j'ai un tableau :

Pièce jointe 225469

Un UserForm avec ce code (Pour info Class_Liste est une classe que j'ai crée)
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 ' Oblige la déclaration des variables au préalable Option Explicit '**** ' Déclaratio objet '**** ' Déclare la variable objet Worksheet Dim WsBookTrans As Worksheet ' Déclare la variable objet Classe Liste Dim Liste_Book As Classe_Liste ' Titre UserForm Const Titre_UFbook As String = ".::: Gestion des bookmakers" ' Coin gauche début Tableau Bookmaker Const Deb_Book As String = "B18" ' '**** ' A l'activation de l'USERFORM '**** Private Sub UserForm_Initialize() Set WsBookTrans = Worksheets("Bookmakers & transactions") Init_Liste WsBookTrans, Deb_Book, Liste_Book End Sub
et un module fonction (d'où provient l'érreur)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 '**** ' Construis une liste '**** Sub Init_Liste(ByVal Ws As Worksheet, ByVal Deb_Liste As String, ByRef Liste As Classe_Liste) Dim ind_ligne As Integer Dim ind_col As Integer 'Il faut trouver les indices des dernières lignes et colonnes Dim DerniereLigne As Integer DerniereLigne = Ws.Range(Deb_Liste).CurrentRegion.End(xlDown).Row MsgBox DerniereLigne Dim DerniereColonne As Integer DerniereColonne = Ws.Range(Deb_Liste).CurrentRegion.End(xlToRight).Column End Sub
L'erreur vient du fait que si j'utilise CurrentRegion si le tableau est vide cela produit une erreur !!!
Et de plus je voudrai savoir comment se déplacé dans une feuille sachant que le tableau ne commence pas en 1ere colonne ni 1ere ligne

Merci de votre aide (Message un peu long mais je prefere etre clair)

21/11/2016, 20h32
joe.levrai

Bonjour,

il suffit au préalable de tester si B18 est vide non ?

pour la deuxième question, "naviguer dans une feuille" c'est assez vague, tu peux préciser ton souhait ? Parce que sinon on a un millions de méthodes à te proposer

Parcourir ligne + colonne

Merci pour le test j'ai modifié le code

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
'****

'****
' Construis une liste
'****

Sub Init_Liste(ByVal Ws As Worksheet, ByVal Deb_Liste As String, ByRef Liste As Classe_Liste)
    Dim ind_lig As Integer
    Dim ind_col As Integer
    Dim DerniereLigne As Integer
    Dim DerniereColonne As Integer
    If (Ws.Range(Deb_Liste) = Null Or Ws.Range(Deb_Liste) = "") Then
        ' Poser les traitements si la cellule est vide
        MsgBox "Liste vide"
    Else
        ' Il faut trouver les indices des dernières lignes et colonnes
        DerniereLigne = Ws.Range(Deb_Liste).CurrentRegion.End(xlDown).Row
        DerniereColonne = Ws.Range(Deb_Liste).CurrentRegion.End(xlToRight).Column
        ' MsgBox DerniereLigne & " " & DerniereColonne
        For ind_lig = Ws.Range(Deb_Liste).Row To DerniereLigne
            For ind_col = Ws.Range(Deb_Liste).Column To DerniereColonne
                MsgBox Ws.Range(Cells(ind_lig, ind_col)).Value
            Next ind_col
        Next ind_lig
    End If
End Sub

La ligne en rouge m'affiche une erreur d'éxécution 1004
La méthode rage de l'objet worksheet a échoué

Résolu

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
 
'****
' Construis une liste
'****
 
Sub Init_Liste(ByVal Ws As Worksheet, ByVal Deb_Liste As String, ByRef Liste As Classe_Liste)
    'MsgBox Ws.Name
    Dim ind_lig As Integer
    Dim ind_col As Integer
    Dim DerniereLigne As Integer
    Dim DerniereColonne As Integer
    If (Ws.Range(Deb_Liste) = Null Or Ws.Range(Deb_Liste) = "") Then
        ' Poser les traitements si la cellule est vide
        MsgBox "Liste vide"
    Else
        ' Il faut trouver les indices des dernières lignes et colonnes
        DerniereLigne = Ws.Range(Deb_Liste).CurrentRegion.End(xlDown).Row
        DerniereColonne = Ws.Range(Deb_Liste).CurrentRegion.End(xlToRight).Column
        ' MsgBox DerniereLigne & " " & DerniereColonne
        For ind_lig = Ws.Range(Deb_Liste).Row To DerniereLigne
            For ind_col = Ws.Range(Deb_Liste).Column To DerniereColonne
                MsgBox Ws.Cells(ind_lig, ind_col).Value
            Next ind_col
        Next ind_lig
    End If
End Sub

Si tu pense que ce code peut être amélioré tenez moi au courant

Je met résolu

Ton paramètre Liste, qui plus est en ByRef, m'amène à penser que tu envisages de l'utiliser pour stocker les élément d'une plage excel
Cette plage commence sur la feuille ws, sur la cellule dont l'adresse est Deb_Liste.
Le Currentregion signifie que tu veux aller jusqu'en bas de la plage continument contiguë à Deb_Liste, de même pour les colonnes en allant à droite

Et du coup, on obtient un tableau de valeurs de cette plage ainsi définie.

Ce qui, sauf erreur, me fait dire qu'il serait peut être opportun d'utiliser plutôt une fonction ?

Ici, un exemple à adapter, elle renvoie un Tableau 2D contenant les valeurs, vu que je ne connais pas la Classe que tu utilises.
Si c'est compatible, t'a juste à changer le Type renvoyé par la fonction
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 Function Init_Liste(Cell_Depart As Range) As Variant Dim Tabl() With Cell_Depart If .Value = "" Or .Offset(1, 0) = "" Or .Offset(0, 1) = "" Then Exit Function Tabl = .Cells(1, 1).Resize(.CurrentRegion.End(xlDown).Row - .Row + 1, .CurrentRegion.End(xlToRight).Column - .Column + 1).Value End With Init_Liste = Tabl End Function Sub ede() Dim Plage Plage = Init_Liste(ActiveCell) If IsArray(Plage) Then For i = LBound(Plage, 1) To UBound(Plage, 1) For j = LBound(Plage, 2) To UBound(Plage, 2) Debug.Print Plage(i, j) Next j Next i End If End Sub

22/11/2016, 15h14
thomasaurelien

1 pièce(s) jointe(s)
Bonjour,

Je reprend depuis le début car j'ai un peu beaucoup de mal. Je compte crée un fichier excel qui me permet de gérer mes paris sportifs. j'aurais doc plusieurs feuilles avec plusieurs tableau plusieurs userforms etc...
Pièce jointe 225528
J'ai un module pour remplir les contrôles, un pour les fonctions et pour l'instant un module de classe qui me permet d'instancier chaque tableau. Est-ce une bonne organisation ?
Voila ma classe Liste pour l'instant je prend exemple sur ce lien http://boisgontierjacques.free.fr/pa...e.htm#ClasseBDhttp://boisgontierjacques.free.fr/pa...e.htm#ClasseBD
Code:

1 2 3 4 5 6 7 8 9 10 Option Compare Text Private table() Private nb Private Sub class_initialize() nb = 0 End Sub Sub ajout(cle, item) End Sub
Elle n'est pas très avancé pour le moment car en faite le parametre clé sera toujours présent mais le parametre item sera plutot un tableau avec différetnts éléments car il pourra en avoir un ou plusieurs.
En faite la fonction ajout sera appelé à chaque fois que l'on aura parcouru une ligne dans le tableau d'une feuille.

J'ai étudier ton code joe.levrai je suis obligé de mettre B17 comme cellule de début pour avoir un tableau mais le problème ce sont les en-têtes de mes tableaux