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
Marsh Posté le 01-08-2007 à 13:54:09
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 :
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