propriété variable pour RANGE et cellule.Offset qui ne fonctionnent pas

Version imprimable

29/01/2024, 15h21
sgh.chafaa

1 pièce(s) jointe(s)

propriété variable pour RANGE et cellule.Offset qui ne fonctionnent pas

Bonjour,

svp je cherche d'automatisé la recherche de colonne ( sans définr nom colonne pour eviter risque changement ordre colonne en source données)

je suis en bonne étape, sauf qu'à l'apelle , Range et Cell.offset n'accepte pas les variables

impossible de changer "A1:A" en Range et 1 en Cell.offset

Set plageRecherche = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)

resultat = resultat & cellule.Offset(0, 1).Value & vbCrLf

Ci-Joint le Source
29/01/2024, 19h57
deedolith

Heu, pas compris.

Peux-tu être plus explicite ?

Citation:

Envoyé par deedolith

Heu, pas compris.

Peux-tu être plus explicite ?

tt de suite,

en effet, je vise éviter le risque de changement d'ordre des colonne après un certain temp d'utilisation , ce que nuit au chargement des données correctes

donc j'ai voulu développer code VBA qui permet de chercher la ligne demandé par son nom (1er cellule en fait) , une fois trouver je continue à parcourir et extacter les données selon d'autres conditions

dans le cas de la pièce jointe, je veux chercher la colonne nommé "continent" et charger le textbox "TextBox1" par toutes les équivalents trouvées en colonne nommé "pays" , indépendamment des positions des colonnes

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Dim valeurRecherche As String
Dim plageRecherche As Range
Dim cellule As Range
Dim resultat As String
Dim ws As Worksheet
Dim regCol As Range
Dim regCo2 As Range
Dim regColName1 As String
Dim regColName2 As String
Dim regColPosition As Long
 
 
     ''''******((((( Chercher Position de colonne auomatiquement , sans définr nom colonne pour eviter risque changement ordre colonne en source données))))******
 
    ' Spécifiez le nom de la colonne à parcourir
    regColName1 = "pays"
 
    ' Spécifiez le nom de la colonne d'extraction des données
    regColName2 = "continent"
 
    ' Spécifiez la feuille de calcul dans laquelle vous souhaitez rechercher la colonne
    Set ws = ThisWorkbook.Worksheets("Feuil1")
 
 
 
    ' Recherchez la colonne nommée "pays" dans la feuille de calcul spécifiée
    Set regCol = ws.Rows(1).Find(regColName1, LookIn:=xlValues, LookAt:=xlWhole)
 
    ' Récupérez la position de la colonne
    regColPosition = regCol.Column
 
 
 
 
    ' Recherchez la colonne nommée "pays" dans la feuille de calcul spécifiée
    Set regCol2 = ws.Rows(1).Find(regColName2, LookIn:=xlValues, LookAt:=xlWhole)
 
    ' Récupérez la position de la colonne
    regColPosition2 = regCol2.Column
 
 
    ' Affichez la position de la colonne dans la fenêtre de l'éditeur VBA
    MsgBox "La colonne nommée (((" & regColName & "))) se trouve à la position " & regColPosition & " dans la feuille de calcul '" & ws.Name & "'."
    _______________________________________________________________________________________________
 
 
    ' Spécifiez la valeur à rechercher
    valeurRecherche = "Afrique"
 
    ' Spécifiez la plage de recherche (colonne A)
    Set plageRecherche = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
 
    ' Réinitialise le résultat
    resultat = ""
 
    ' Parcourt chaque cellule de la plage de recherche
    For Each cellule In plageRecherche
        ' Vérifie si la valeur recherchée correspond à la valeur de la cellule
        If cellule.Value = valeurRecherche Then
            ' Ajoute la valeur équivalente (colonne pays) au résultat
            resultat = resultat & cellule.Offset(0, 1).Value & vbCrLf
        End If
    Next cellule
 
    ' Affiche le résultat dans une zone de texte
    TextBox1.Text = resultat

à la logique des chose, j'aurais la possibilité de changer

Code:

1
2
 ' Spécifiez la plage de recherche (colonne A)
    Set plageRecherche = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)

par

Code:

1
2
 ' Spécifiez la plage de recherche (colonne A)
    Set plageRecherche = Range(regColPosition  & Cells(Rows.Count, 1).End(xlUp).Row)

et j'aurais aussi la possibilité de changer

Code:

resultat = resultat & cellule.Offset(0, 1).Value & vbCrLf

par

Code:

resultat = resultat & cellule.Offset(0, regColPosition2).Value & vbCrLf

j'espère que j'ai pu clarifier le besoin :(

Franchement,
Ne te fais pas chier à chercher des noms de colonne dans une plage quelconque, et passe par des tableau structuré.
Ces derniers embarquent plein d'infos utiles, leur taille, les colonnes avec leur nom, les lignes ect ect ...
et tu n'auras pas à te soucier de la position des colonnes.

Exemple:
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim Ws As Excel.Worksheet Set Ws = thisWorkbook.Worksheets("Feuil1") Dim Lo As Excel.ListObject Set Lo = Ws.ListObjects(1) '// reference sur le 1er tableau structuré de la feuille Dim Lc As Excel.ListColumn Set Lc = Lo.ListColumns("pays") '// Referece sur la colonne "pays" MsgBox "Adresse de la colonne pays: " & Lc.Range.Address MsgBox "Adresse des données de la colonne pays: " & Lc.DataBodyRange.Address

Citation:
Envoyé par deedolith
Franchement,
Ne te fais pas chier à chercher des noms de colonne dans une plage quelconque, et passe par des tableau structuré.
Ces derniers embarquent plein d'infos utiles, leur taille, les colonnes avec leur nom, les lignes ect ect ...
et tu n'auras pas à te soucier de la position des colonnes.

Exemple:
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim Ws As Excel.Worksheet Set Ws = thisWorkbook.Worksheets("Feuil1") Dim Lo As Excel.ListObject Set Lo = Ws.ListObjects(1) '// reference sur le 1er tableau structuré de la feuille Dim Lc As Excel.ListColumn Set Lc = Lo.ListColumns("pays") '// Referece sur la colonne "pays" MsgBox "Adresse de la colonne pays: " & Lc.Range.Address MsgBox "Adresse des données de la colonne pays: " & Lc.DataBodyRange.Address
oh la la !!!
je savais pas que ça existait une solution pareil, ça m'aurais sauvait énormement de temp

c magique pour moi en terme de nombre de ligne de code, complexité d'execution du programme et tt

t'es mon sauveur cher deedolith !

grosse merci pour toi

j'essayerais la solution et je te remet la situation, je commence par chercher quoi tableau structuré ;)

30/01/2024, 13h37
Philippe Tulliez
Bonjour,
On n'est pas obligé non plus de préciser la feuille pour référencer un ListObject présent dans le classeur actif

Exemple
Code:

1 2 3 4 5 Sub t() Dim t As ListObject Set t = Range("t_Facturier").ListObject Debug.Print t.Range.Address(External:=True) End Sub
30/01/2024, 16h46
deedolith

@Philippe Tulliez:
Mouais, heu ...

Implicitement, ce que tu as écrit, c'est:

Code:

ActiveWorkbook.ActiveSheet.Range("t_Facturier").ListObject

Beaucoup trop d'éléments dépendant du contexte (ActiveWorkbook et ActiveSheet), à éviter.
30/01/2024, 17h29
Philippe Tulliez

Bonjour,

Citation:

Beaucoup trop d'éléments dépendant du contexte (ActiveWorkbook et ActiveSheet), à éviter.

J'ai écrit le classeur actif pour être précis dans ma réponse mais chez moi, c'est toujours le classeur où se trouve le code VBA et cela fait des années que je procède de cette manière et cela fonctionne sans problème.