Problème Débocage macro

Bonjour

j'ai un problème avec ma macro sur un classeur excel. LE but de cette Macro a pour but de faire le lien entre le nom et prénom en case B et C puis qu'en case B en lien Hyper link se mette en place pour renvoyer vers le dossier de la personne directement.

mon problème est que lorsque je veux insérer une ligne... la macro plante. le débogage surligne Temp = Target.value.
je n'arrive pas à comprendre d'où vient ce bug.

Merci d'avance pour votre aide.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_Change(ByVal Target As Range) Dim temp As String temp = Target.Value If Target.Cells.Column = 2 And Target.Cells.Row >= 7 And Target.Value <> "" Then ActiveSheet.Hyperlinks.Add Target, "D:\Desktop\Recrutement\" & temp & " " & Cells(Target.Row, Target.Column + 1)   TextToDisplay = temp End If If Target.Cells.Column = 3 And Target.Cells.Row >= 7 And Target.Value <> "" And Cells(Target.Row, Target.Column - 1) <> "" Then ActiveSheet.Hyperlinks.Add Cells(Target.Row, Target.Column - 1), "D:\Desktop\Recrutement\" & Cells(Target.Row, Target.Column - 1) & " " & temp   TextToDisplay = temp End If End Sub

---

Bonjour,

Quand tu insères une ligne 'target' n'est pas valorisable, il te faut le tester

Code:

---

If Target.CountLarge > 1 Then Exit Sub

---

D'autre part tu aimes écrire car tu peux mettre directement

Code:

---

If Target.Column = 2 And Target.Row >= 7 And Target.Value <> "" Then

---

Le test de Target tu l'insères où du coup dans la macro ?

en début forcément sinon il ne sert à rien !

excellent. Merci

ca fonctionne :)

j'aurais surement d'autre question sur cette macro car j'ai régulièrement des bugs en fonction des manips. Certaines que j'arrive à résoudre d'autres non :)

re

Ta macro corrigée

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) If Target.CountLarge > 1 Then Exit Sub If Target.Column = 2 And Target.Row >= 7 And Target.Value <> "" Then ActiveSheet.Hyperlinks.Add Target, "D:\Desktop\Recrutement\" & Target.Value & " " & Target.Offset(0, 1), TextToDisplay:=Target.Value ElseIf Target.Column = 3 And Target.Row >= 7 And Target.Value <> "" And Target.Offset(0, -1) <> "" Then ActiveSheet.Hyperlinks.Add Target.Offset(0, -1), "D:\Desktop\Recrutement\" & Target.Offset(0, -1).Value & " " & Target.Value, TextToDisplay:=Target.Offset(0, -1).Value End If End Sub

---

ah super merci :) :D

Plus simple en effet. Intégration d'une variable en moins et autre....

Super merci :lol: