Discussion :

[steelk]

Bonjour,

Je souhaiterai suite à une recherche, stocker des valeurs avec retour chariot et les renvoyer dans une cellule.
Le tableau de recherche:

partA	300	part1
partB	800	part1
partC	700	part2

Le tableau à compléter ci-dessous. On va rechercher dans le tableau précédant, toutes les valeurs en rouge, afin de rappatrier les valeurs associées des 1ere et 2eme colonne avec des retours chariots.

part1	partA partB	300 800
part2	partC	700

Les tableaux sont sur 2 feuilles diférentes.

Merci d'avance de votre aide car je n'arrive pas à avancer.

Steelk

[Menhir]

Ce que tu veux faire existe déjà. Ca s'appelle un tableau croisé dynamique.

[steelk]

Bonjour Menhir,

Merci mais je dois passer par macro.

Merci d'avance de votre aide.

Steelk

[Menhir]

je dois passer par macro.

Je ne vois pas en quoi c'est incompatible avec ce que je propose : un TCD peut être généré (ou mis à jour) par une macro.

[steelk]

Bonjour,

Voici mon code mais le problème est que je remplace "c" par trouvé après chaque recherche afin qu'il continue la recherche...
Si sur la ligne suivante je recherche le "casier" portant la meme référence il ne me la trouve plus. Logique.
Pouvez vous m'aider à avancer?

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 dev()
DerniereLigne = Sheets(1).Range("A65536").End(xlUp).Row
For i = 2 To DerniereLigne
Casier = Sheet1.Cells(i, 2).Value
On Error Resume Next
With Sheets(2).Range("F1:F500")
    Set c = .Find(Casier, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
        If Sheets(1).Cells(i, 4).Value <> Empty Then
        PN = Sheets(1).Cells(i, 4).Value
        ICY = Sheets(1).Cells(i, 5).Value
        Sheets(1).Cells(i, 4).Value = c.Offset(0, -4) & Chr(10) & PN
        Sheets(1).Cells(i, 5).Value = c.Offset(0, -1) & Chr(10) & ICY
    Else
        Sheets(1).Cells(i, 4).Value = c.Offset(0, -4)
        Sheets(1).Cells(i, 5).Value = c.Offset(0, -1)
    End If
        c.Value = "trouvé"
        Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
Next
 
End Sub

[patricktoulon]

bonjour c'est logique que cela ne marche plus

tu change la valeur de la cellule trouvée

Code :

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

c.Value = "trouvé"

findnext=rechercher le suivant et la meme chose
donc ton find next est null

Code :

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

Set c = .FindNext(c)

car findnext recherche la même chose que la cellule trouvée précédemment et comme tu la change walouhh!!!!!
tu ne peut pas rechercher "la même chose que ce qui n'existe plus " tu comprends ???