Récupérer une valeur sous une cellule qui peut être variable dans un tableau

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

je suis nouveau sur ce forum, mais j'épére trouver toutes mes réponses avec vous tous.:aie:

alors enfaite je cherche une formule VBA qui va me trouver la valeur d'une cellule en dessous d'une valeur d'une autre cellule.

je m'explique, il faudrait que je récupére dans le tableau la valeur sous la cellule "Poids" dans la ligne 5. Le problème c'est que cette case peut être variable en fonction des clients.

Donc je souhaite un code qui sais que l'on veux le nombre sous la cellule "poids".

pour les autre cellule j'ai coder ca:
Code:

1 2 3 4 5 6 7 For i = 6 To derniereligne LigneDispo = Range("A1000").End(xlUp).Offset(1, 0).Row For j = 1 To 26 Worksheets("Feuil1").Cells(LigneDispo, j) = CSVtoREAD(i, j) Next j Next i
j’espère être claire dans ma demande et j’espère que vous pourrez m'aider.

03/08/2022, 07h34
Alex020181

Bonjour

Tu peux trouver une valeur dans un ensemble de cellules avec Application.WorksheetFunction.Match

Tu récupères ainsi le numéro de ligne ou colonne de la valeur cherchée dans la zone de recherche.

Ensuite tu pourras facilement utiliser Cells

Je suis actuellement sur mon portable alors je ne peux pas te le faire directement dans ton fichier.
04/08/2022, 02h52
Alex020181

1 pièce(s) jointe(s)

Je viens d'ouvrir ton fichier exemple. Bonne nouvelle; tu n'as pas besoin de VBA.

La formule

Code:

=INDIRECT(ADRESSE(6;EQUIV("poids";5:5;0)))

en Q3 te permet directement de reprendre la valeur de la ligne 6 sous la colonne titrée "Poids" en ligne 5.

Et cette formule ira chercher le mot "Poids" n'importe où dans la ligne 5 (puisque tu dis que l'ordre des colonnes n'est pas identique pour tous les clients) et ira ensuite lire la valeur en ligne 6 de cette colonne trouvée.

Pour finaliser tu peux même utiliser SiErreur().

Voir PJ.
05/08/2022, 14h56
richmond2607

1 pièce(s) jointe(s)

Merci pour ton aide mais le problème c'est qu'il peut y avoir plusieurs ligne avec des poids différents.

du coup je voulais faire une boucle comme j'ai fait dans les code précédents.

Cette formule ne fonctionne que si il y a une ligne.

je t'ai remis le fichier.

en gros il faut trouver dans la ligne 5 la valeur "poids" puis après boucler pour récupéré les valeurs qui se trouve dessous.

mais vraiment merci de m'aider car je suis bloquer depuis 2 jours dessus.
05/08/2022, 14h59
richmond2607

1 pièce(s) jointe(s)

je te remets mon fichier avec les codes dessus tu comprendra peut être mieux.

1 pièce(s) jointe(s)

Salut
Il faut reconnaitre que les explications dans votre Post#1 ne sont pas claires du tout.:weird:
Vous avez oublié de préciser quel mot Poids était utile. Il y en a 1 en Q3 et lun autre en AC5.
Vous avez un tableau qui semble tout du moins être structuré et vous voudriez récupérer les valeurs de la colonne (en-tête) Poids fonction d'un client.
Il est certain que le numéro de ligne est variable selon le client sélectionné. Faut-il espéré qu'il n'y ait de patronymes identiques.

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
Sub FiltreClient()
Dim xlWsh As Worksheet
Dim lstObj As ListObject
Dim rngTable As Range
Dim rngArea As Range
Dim rngRow As Range
Dim colClient As Integer, colPoids As Integer
Dim strCritere As String
 
Set xlWsh = ThisWorkbook.Worksheets(1)
Set lstObj = xlWsh.ListObjects(1)
 
If lstObj.ShowAutoFilter Then
    lstObj.ShowAutoFilter = False
End If
 
With lstObj
    colClient = .HeaderRowRange.Cells.Find("CLIENT").Column
    strCritere = InputBox("Saisir nom client :", "Nom client")
    If strCritere = "" Then Exit Sub
        If StrPtr(strCritere) <> 0 Then
            .Range.AutoFilter Field:=colClient, Criteria1:=strCritere
        End If
End With
 
Set rngTable = lstObj.DataBodyRange.SpecialCells(xlCellTypeVisible)
colPoids = ThisWorkbook.Worksheets(1).ListObjects(1).HeaderRowRange.Cells.Find("Poids").Column
 
With rngTable
Debug.Print "Plage filtrée : " & rngTable.Address
For Each rngArea In rngTable.Areas
    Debug.Print "  Ligne filtrée : " & rngArea.Address
    For Each rngRow In rngArea.Rows
        Debug.Print "    Poids : " & Cells(rngRow.Row, colPoids)
    Next
Next
End With
 
End Sub

08/08/2022, 16h16
richmond2607

2 pièce(s) jointe(s)

alors enfaite on voit que le fichier que j'ouvre en Xlsx au début , il va falloir copier et coller des donnée dans deux autres fichier,

le premier qui se trouve dans le "T:\RMA\6-logistique.... et l'autre dans M\chronopost....

j'ai fais des boucles afin qu'il récupére les données dans chaque ligne de la boucle.

mais enfaite en fonction de mes clients, la case "poids" qui se trouvera toujours en ligne 5 peux varier de colonne. la il est en colonne 29 mais en fonction de mes clients, il peut se retrouver en colonne 24 et ainsi de suite.

pour le moment les données que je chercher était fix dans mon tableau.

pour décomposer :

dans le fichier CSVtoREAD chercher dans la ligne 5 le mot "poids" ->boucler dans cette colonne pour récupérer les valeurs qui se trouve en dessous.

Le mettre dans la colonne 24 du fichier (CHRONOPOST_envoi_" & CSVtoREAD(6, 6))

j'espére été assez claire pour les explication.

je mets des fichier d'autre client pour que vous compreniez mieux.

on voit que la colonne "poids" en ligne 5 n'est pas au même endroit.
10/08/2022, 09h32
hyperion13

re,
Avec mon humour caustique qui me sied.
Désolé, je ne vois rien, et je ne dois pas être le seul. :weird:

Citation:

Envoyé par richmond2607

alors enfaite on voit que le fichier que j'ouvre en Xlsx au début , il va falloir copier et coller des données dans deux autres fichiers, le premier qui se trouve dans le "T:\RMA\6-logistique.... et l'autre dans M\chronopost.... j'ai fais des boucles afin qu'il récupéère les données dans chaque ligne de la boucle.

Je me suis basé sur l'exemple du classeur que vous avez fourni. Pour autant si vous aviez pris le temps de lire le code en L27 de mon Post#6 vous auriez remarqué l'utilisation de la méthode Find() qui permet de trouver une valeur où qu'elle soit. Et pour aller plus loin, il y a même FindNext() si la valeur était dupliquée.

Citation:

Envoyé par richmond2607

mais enfaite en fonction de mes clients, la ~~case~~cellule "poids" qui se trouvera toujours en ligne 5 peux varier de colonne. laà il est en colonne 29 mais en fonction de mes clients, il peut se retrouver en colonne 24 et ainsi de suite.
pour le moment les données que je chercher était fix dans mon tableau.

Maintenant, il est question d'un fichier CSVtoREAD. Ne serait-ce pas ce fameux fichier que vous ouvrez en Xlsx? :weird:
CSVtoREAD(6,6), c'est quoi exactement ?

Citation:

Envoyé par richmond2607

pour décomposer :
dans le fichier CSVtoREAD chercher dans la ligne 5 le mot "poids" ->boucler dans cette colonne pour récupérer les valeurs qui se trouve en dessous.
Le mettre dans la colonne 24 du fichier (CHRONOPOST_envoi_" & CSVtoREAD(6, 6))

Pour être franc ! Euh ... :weird:

Citation:

Envoyé par richmond2607

j'espéère été assez claire pour les explication.

Possible. Voir l'utilisation de Find()

Citation:

Envoyé par richmond2607

je mets des fichier d'autre client pour que vous compreniez mieux.
on voit que la colonne "poids" en ligne 5 n'est pas au même endroit.

Alors ce que je suppute est que vous récupérez un fichier de données brutes au format *.csv. Le fameux fichier CSVtoREAD. Enfin je pense. Une des colonnes de ce fichier contient forcément l'en-tête Clients. Que respectivement par Client, vous voulez "Copier/Coller" les lignes correspondantes vers des fichiers Excel "cible". Exp: Votre client ChronoPost, toutes les lignes dans CSVtoREAD, vous voulez les "Coller" dans M\chronopost. Dans ce cas, je vous conseille de lire ce billet.
Un truc m'interpelle toutefois. Si fichier CSVtoREAD, contient un certain nombre de colonnes ordonnées, je ne vois pas pourquoi les fichiers "cible" n'auraient pas ce même nombre de colonnes.