Discussion :

[chevrotine56]

Bonjour à tous,

J'ai un fichier excel avec en colonne A différentes cellules fusionnées de tailles variable.
Je voudrais rechercher dans cette colonne la cellule contenant une variable de type chaine de caratère et en récupéré la ligne de cette cellule.

voici mon morceau de code, je comprend pas mon erreur.

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
Public Sub crea_new_version()
 
Dim plage As Range
Dim I As Integer
Dim J As Integer
Dim derlig As Integer
Dim new_ref_gabarit As String
 
    new_ref_gabarit = "ROB0003"
    Cells(7, 1).Select
    derlig = Cells(Rows.Count, 1).End(xlUp).Row
    J = Range("A" & derlig).MergeArea.Rows.Count
    derlig = derlig + J
 
    Set plage = ThisWorkbook.Worksheets("Listing_gabarits").Range("a1:a" & derlig)
 
    For Each cell In plage
        If cell.Value = new_ref_gabarit Then
            I = plage.Find(new_ref_gabarit, lookat:=xlWhole).Row
            Exit For
        End If
    Next cell
 
End Sub

[Menhir]

Je n'ai pas tout compris dans ton code mais, à mon avis, la boucle For Each est inutile.
La méthode Find permet de chercher une occurrence sur une plage et renvoyer la référence de la cellule correspondante.
Ensuite, tu obtiens le numéro de ligne en appliquant un Row au résultat.

Commence par lire ça : https://msdn.microsoft.com/fr-fr/lib.../ff839746.aspx

Allez, je m'y colle.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub crea_new_version()
    Dim Resultat As Range
    Dim new_ref_gabarit As String
 
    new_ref_gabarit = "ROB0003"
 
    With Worksheets("Listing_gabarits").
        Set Resultat = Range("A1", .Cells(Rows.Count, 1).End(xlUp)).Find(new_ref_gabarit, lookat:=xlWhole)
        If Not Resultat is nothing Then MsgBox("Ligne trouvée :" & Resultat.Row)
    End With
 
End Sub

C'est tapé à l'arrache et pas testé. Je te laisse un éventuel débugage.

[chevrotine56]

Super ça m'a bien aidé.
J'ai du faire une petite modif car mes cellules sont fusionnées sur des lignes et des colonnes. Donc dans la zone de recherche je dois prendre en compte le nombre de colonnes fusionnées

Voici le resultat

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
Public Sub crea_new_version()
 
    Dim Resultat As Range
    Dim new_ref_gabarit As String
    Dim derlig As Integer
 
    Cells(7, 1).Select
    derlig = Cells(Rows.Count, 1).End(xlUp).Row
    new_ref_gabarit = "ROB0003"
 
 
    With Worksheets("Listing_gabarits")
        Set Resultat = Range(Cells(7, 1), Cells(derlig, 4)).Find(new_ref_gabarit, lookat:=xlWhole)
        If Not Resultat Is Nothing Then MsgBox ("Ligne trouvée :" & Resultat.Row)
    End With
 
End Sub

[Menhir]

J'ai du faire une petite modif car mes cellules sont fusionnées sur des lignes et des colonnes.

Dans 99% des cas, la fusion de cellules est une mauvaise idée.