Microsoft 365 Macro recherche numéro de colonne avec numéro de ligne variable

chris6999 à dit:

Bonjour à tous

J'essaye vainement de bricoler un code pour trouver un numéro de colonne sur lequel on trouve une valeur sur une ligne préalablement identifiée.
Je trouve la ligne mais pour la colonne pas moyen.
Je pense que c'est parce qu'il s'agit d'une date mais je ne suis pas sûre.

Quelqu'un peut-il me dire pourquoi cela ne fonctionne pas?
Je mets un fichier test en PJ
Merci par avance pour votre aide
Bonne soirée

Dim l As Range
Per = Range("C1").Value
Set l = ActiveSheet.Range("C:C").Find(Per, lookat:=xlWhole)
If Not l Is Nothing Then Lig = l.Row

Dim c As Range
Date_tx = Range("G1")
Set c = Range(Cells(Lig, "G"), Cells(Lig, "Q")).Find(Date_tx, lookat:=xlWhole)
If Not c Is Nothing Then col = c.Columns

MsgBox (col)

Cliquez pour agrandir...

Sub TEST()
    Dim Derlg&, Col&, Lig&, Plage As Object, Lettre$
    On Error Resume Next
    Derlg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Set Plage = Range("A7:q" & Derlg)
    Lig = Application.Match([c1], Plage.Columns(3).Rows, 0)
    Col = Application.Match([g1], Plage.Rows(Lig), 0)
    Lettre = Split(Columns(Col).Address(ColumnAbsolute:=False), ":")(1)    ' facultatif
    MsgBox "La date :" & Application.Index(Plage, Lig, Col) & " se trouve en " & vbLf & "Ligne: " & Lig + 6 & vbLf & "Colonne: " & Col & " (" & Lettre & ")", , "Information"
    If Err Then MsgBox "Il n'y a pas cette date en ligne " & Lig + 6, , "Information"
End Sub

Jacky67 à dit:

Bonjour à tous,
Une autre façon
Plus des MFC

VB:

Sub TEST()
    Dim Derlg&, Col&, Lig&, Plage As Object, Lettre$
    On Error Resume Next
    Derlg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Set Plage = Range("A7:q" & Derlg)
    Lig = Application.Match([c1], Plage.Columns(3).Rows, 0)
    Col = Application.Match([g1], Plage.Rows(Lig), 0)
    Lettre = Split(Columns(Col).Address(ColumnAbsolute:=False), ":")(1)    ' facultatif
    MsgBox "La date :" & Application.Index(Plage, Lig, Col) & " se trouve en " & vbLf & "Ligne: " & Lig + 6 & vbLf & "Colonne: " & Col & " (" & Lettre & ")", , "Information"
    If Err Then MsgBox "Il n'y a pas cette date en ligne " & Lig + 6, , "Information"
End Sub

Cliquez pour agrandir...

M12 à dit:

Bonjour,
Teste ceci

Cliquez pour agrandir...

M12 à dit:

Bonjour,
Teste ceci

Cliquez pour agrandir...