copier une cellule selon une condition avec mid et len

[89ric]

Bonjour, je me tourne vers vous pour résoudre un problème.
Je souhaite créer un lien hypertexte selon une condition.
Pour toutes les feuilles j de 15 à 46, si le nom de la feuille j est le même que le premier mot contenu dans la cellule c2 de la dernière feuille,
faire un concatener des cellules g2 et h2 de la dernière feuille et le copier dans la cellule h7 de la feuille j (si h7 est vide, sinon i7, sinon j7,... ) et faire un lien hypertexte de cette cellule vers cette dernière feuille.


Voici le code, qui à priori ne fonctionne pas:
'Crée un lien hypertexte dans la feuille de renseignement élève
Dim j As Integer
Dim s, t, d As String
Dim i As Long

t = Sheets(Sheets.Count).Range("c2").Text
For j = 15 To 46
s = Sheets(j).Name
If Mid(s, 1, Len(s)) = Mid(t, 1, Len(s)) Then
Active.Sheets.Count
d = Cells(2, 7) & " " & Cells(2, 8)
Active.Sheets (j)
Cells(7, 8) = d
Exit For
End If

Next

Merci de votre aide.

 

[gilbert_RGI]

Re : copier une cellule selon une condition avec mid et len

bonjour
comme ceci peut-être

Sub test()
    t = Sheets(Sheets.Count).Range("c2").Text
    For j = j = 15 To 46
        s = Sheets(j).Name
        'MsgBox Mid(s, 1, Len(s)) & vbLf & Mid(t, 1, Len(s))
        If Mid(s, 1, Len(s)) = Mid(t, 1, Len(s)) Then
            Sheets(Sheets.Count).Select
            d = Cells(2, 7) & " " & Cells(2, 8)
            Sheets(j).Select
            Cells(7, 8) = d
            Exit For
        End If
    Next
End Sub

 

[89ric]

Re : copier une cellule selon une condition avec mid et len

Bonjour.
Mille merci!!
Ça marche!!