Bonjour à tous,
je suis novice en VBA et j'aurais besoin d'un peu d'aide
voila mon problème je cherche à inserer automatiquement une ligne contenant un lien hypertexte après une ligne ou il est écrit "prorgamme"
voila mon programme pour le moment :
Code :
- Private Sub CommandButton9_Click()
- 'ajouter automatiquement une ligne
- Dim x As Integer
- For x = Range("A65536" ).End(xlUp).Row To 1 Step -1
- If Not Intersect(Range("A" & x), Selection) Is Nothing Then
- Rows(28).Insert Shift:=xlDown
- End If
- Next
- 'ajouter un lien hypertexte à la cellule A28.
- Dim objLink As Hyperlink
- Set objLink = ActiveSheet.Hyperlinks.Add(Range("A28" ), "OE A001.xls" )
- With objLink
- .SubAddress = "A002"
- End With
- End Sub
|
Le problème de ce code est qu'il est lié à une ligne précise donc si je veux faire la meme opération mais avec un autre mot "Vacance" alors rien ne se plaçe là ou je voudrais puisque tous est lié à la ligne.
également je voulais savoir si il était possible d'incrémenter le nom de mon lien hypertexte (A001,A002,A003,A004...)
si qq'un à une idée je suis preneur
merçi d'avance pour votre aide et votre patience