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.
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.
Dernière édition: