Erreur 13 Incompatibilité de type

*Bonjour Quaisako*,

Re bonsoir le Forum,

le code ci-dessous crée une erreur.
Voyez-vous ce qui ne va pas ?
Merci
Jipé

Private Sub worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [Zn]) Is Nothing Then
With Target
If .Value = "" Then _ ' <=== xxxxxxxxxxxxxxxxxxxxxx
Erreur 13 Incompatibilité de type xxxxxxxxxxxxxxxxxxxxxxxxxxx
.Formula = _
"=IF($A" & .Row & "<>"""",VLOOKUP($A" & .Row & _
",Tbl_des_réf,COLUMN(),0),"""")"
A mon avis, c'est dans le nombre de " qu'il y a probleme pour le

.Formula Mais franchement je vois pas ou :-?

'.FormulaLocal = _
'"=SI($A" & .Row & "<>"""";RECHERCHEV($A" & .Row & _
'";Tbl_des_réf;COLONNE();0);"""")"

End With
End If
End Sub

--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Bonjour Quaisako,

As-tu essayé quelque chose comme ceci :
'----------------------------------
Private Sub worksheet_Change(ByVal Target As Range)

Dim Rg As Range, C As Range
Set Rg = Intersect(Target, [Zn])
If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each C In Rg
If C.Value = "" Then
C.Formula = _
"=IF($A" & C.Row & "<>"""",VLOOKUP($A" & C.Row & _
",Tbl_des_réf,COLUMN(),0),"""")"
End If
Next
Application.EnableEvents = True
End If
Set Rg = Nothing: Set C = Nothing
End Sub
'----------------------------------


Salutations!



"Quaisako" <jean_pierre_rome@hotmail.com> a écrit dans le message de news: enber77GGHA.1288@TK2MSFTNGP09.phx.gbl...
Re bonsoir le Forum,

le code ci-dessous crée une erreur.
Voyez-vous ce qui ne va pas ?
Merci
Jipé

Private Sub worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [Zn]) Is Nothing Then
With Target
If .Value = "" Then _ ' <=== xxxxxxxxxxxxxxxxxxxxxx
Erreur 13 Incompatibilité de type xxxxxxxxxxxxxxxxxxxxxxxxxxx
.Formula = _
"=IF($A" & .Row & "<>"""",VLOOKUP($A" & .Row & _
",Tbl_des_réf,COLUMN(),0),"""")"

'.FormulaLocal = _
'"=SI($A" & .Row & "<>"""";RECHERCHEV($A" & .Row & _
'";Tbl_des_réf;COLONNE();0);"""")"

End With
End If
End Sub

Re à tous,

JLuc! merci pour tes liens.

michdenis! j'étais à faire des essais de mise en place d'un gestionnaire
d'erreur acceptable, vu que si je passais le débogage, après avoir
réinitialisé VBE, le résultat souhaité était là.
Mais franchement, je préfère ta solution. C'est parfait. Même si je n'ai pas
tout compris. Je n'ai plus qu'à potasser.
Merci.........Merci.........
Jipé

"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
epZDoIEHGHA.1088@tk2msftngp13.phx.gbl...

Bonjour Quaisako,

As-tu essayé quelque chose comme ceci :
'----------------------------------
Private Sub worksheet_Change(ByVal Target As Range)

Dim Rg As Range, C As Range
Set Rg = Intersect(Target, [Zn])
If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each C In Rg
If C.Value = "" Then
C.Formula = _
"=IF($A" & C.Row & "<>"""",VLOOKUP($A" & C.Row & _
",Tbl_des_réf,COLUMN(),0),"""")"
End If
Next
Application.EnableEvents = True
End If
Set Rg = Nothing: Set C = Nothing
End Sub
'----------------------------------


Salutations!



"Quaisako" <jean_pierre_rome@hotmail.com> a écrit dans le message de news:
enber77GGHA.1288@TK2MSFTNGP09.phx.gbl...
Re bonsoir le Forum,

le code ci-dessous crée une erreur.
Voyez-vous ce qui ne va pas ?
Merci
Jipé

Private Sub worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [Zn]) Is Nothing Then
With Target
If .Value = "" Then _ ' <===
xxxxxxxxxxxxxxxxxxxxxx
Erreur 13 Incompatibilité de type xxxxxxxxxxxxxxxxxxxxxxxxxxx
.Formula = _
"=IF($A" & .Row & "<>"""",VLOOKUP($A" & .Row & _
",Tbl_des_réf,COLUMN(),0),"""")"

'.FormulaLocal = _
'"=SI($A" & .Row & "<>"""";RECHERCHEV($A" & .Row & _
'";Tbl_des_réf;COLONNE();0);"""")"

End With
End If
End Sub