Discussion :

[babou466]

bonjour à tous j'ai entendu parler d'une possibilité de recherche verticale et je me demandais comment je devais procéder afin de la programmer? j'aimerais en fait parcourir une colonne à partir d'une ligne x, et rechercher la première apparition d'une chaine de caractères que j'aurais stockée dans une autre feuille du classeur, afin de connaitre sa position dans la colonne. Est ce que quelqu'un pourrait m'aider s'il vous plait? j'ai essayer manuellement, mais parfois il ne prend pas la première apparition (de plus je n'arrive pas à fixer la colonne de recherche avec: rechercher/par colonne/...) :

Code :

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

1
2
3
        Cells.Find(What:="Bloc Moteur", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False).Activate

avec ce code je n'arrive de plus pas à voir la position trouvée, afin de prendre la ligne du dessous pour afficher une valeur correspondante de quantité...

merci à vous et bonne journée

[Godzestla]

Bonjour,
ta meilleure aide c'est

Tu tapes .find dans ton VBA et puis tu fais F1, et Oh miracle un exemple qui correspond très bien à ce que tu cherches.

Merci l'aide en ligne.

[babou466]

merci pour votre astuce, cependant j'ai toujours un soucis pour arriver à dégager la valeur de la ligne trouvée...voici mon code:

Code :

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

1
2
3
4
5
6
    'recherche verticale de la première apparition des noms des ensembles afin de mettre les quantités correspondantes
    Cells(17, 7).Activate
    Cells.Find(What:=Nom_Ensemble, After:=ActiveCell, LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False).Activate
    Cells(ligne_trouvée + 228, 7).Value = Quantite_Ensemble

[Godzestla]

Mon petit doigt me dit que tu n'as pas lu l'aide en ligne.

Voici ce que moi j'obtiens (E03)

Example
This example finds all cells in the range A1:A500 on worksheet one that contain the value 2 and changes it to 5.

Code :

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

1
2
3
4
5
6
7
8
9
10
With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

[Krovax]

"ligne_trouvée" corespond a quoi???
essaye d'utiliser la commande .row

l'aide sur la commande est bien simple

[babou466]

voici ce que ça me donnait avec row:

Code :

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

1
2
3
4
5
6
7
   'recherche verticale de la première apparition des noms des ensembles afin de mettre les quantités correspondantes
    Cells(17, 7).Activate
    Cells.Find(What:=Nom_Ensemble, After:=ActiveCell, LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False).Activate
    Row = Row.Activate.Cells
    Cells(Row + 228, 7).Value = Quantite_Ensemble

je vais essayer avec votre aide que je n'ai pas trouver ainsi... merci

[babou466]

et voici ma version avec votre aide:

Code :

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

1
2
3
4
5
6
7
  With Worksheets(OngletTCDyn).Range("G21:G156")
    Set c = .Find(Nom_Ensemble, LookIn:=xlValues)
        If Not c Is Nothing Then
            Row = c.Address
         End If
    End With
     Cells(Row + 228, 7).Value = Quantite_Ensemble

croyez vous que c'est correct?

[Krovax]

lit l'aide apropos de Row, la commande fini par .row

et c'est peut être pas une bonne idée d'utilisé comme nom de variable un nom de commande c'est pas super lisible (mais c'est personel comme avis)

Pourquoi tu utilise la fonction activate?
tu ne peux pas tout simplement ecrir

Code :

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

1
2
3
Numligne=Cells.Find(What:=Nom_Ensemble, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,  MatchCase:=False).row
 
Cells(numligne+ 228, 7).Value = Quantite_Ensemble

[Godzestla]

Re,
Krovax : je pense que ton code simplifié va planter si le .FIND ne trouve pas l'occurence recherchée. il vaut donc mieux laisser le test sur le résultat "not is nothing".

Babou466:
en plus de la remarque judicieuse de Krovax sur .row au lien de .address, si le .FIND échoue, ton code risque de planter car tu utilises ROW indépendement que tu trouves ou pas.

J'écrirais plutôt ceci :

Code :

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

1
2
3
4
5
6
  With Worksheets(OngletTCDyn).Range("G21:G156")
    Set c = .Find(Nom_Ensemble, LookIn:=xlValues)
        If Not c Is Nothing Then
            Cells(c.Row + 228, 7).Value = Quantite_Ensemble
         End If
    End With

[Krovax]

C'est vrai que je n'avais pas pensé à ca... j'ai encore du chemin a faire avant de ne plus passer une demi journée à débuger chaque modif de mes programmes

[babou466]

merci à vous!