VBA blocage showdetail

Fermé
erissato - 26 juil. 2011 à 15:46
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 29 juil. 2011 à 10:39
Bonjour,

J'ai un programme qui va chercher sur un autre classeur des cases sur lesquelles il double clique pour afficher le détail, le problème c'est qu'il existe sur le classeurs des cases qui ne comportent pas de détail et c'est là que mon programme bloque, ce que je voudrais c'est qu'il continue sa recherche même s'il ne trouve pas de détail:

If cell = maDonnee Then
reponse = MsgBox(" BODER =" & cell.Offset(-1, 1) & " BODF =" & cell.Offset(-1, 2) & " ,Voulez-vous continuer?", vbOKCancel, "Validation")

i = cell.Row
i = i - 1
ref = "B" & i
Sheets(onglet).Select
Sheets(onglet).Range(ref).Select
Selection.ShowDetail = True
Sheets(onglet).Select
Sheets(onglet).Range("C" & i).Select
Selection.ShowDetail = True


j = j + 2

trouve = True

End If
Next

Le blocage se fait sur cette ligne:

Selection.ShowDetail = True

Merci pour votre aide


A voir également:

1 réponse

melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
29 juil. 2011 à 10:39
bonjour,

essaie ca :

If cell = maDonnee Then
reponse = MsgBox(" BODER =" & cell.Offset(-1, 1) & " BODF =" & cell.Offset(-1, 2) & " ,Voulez-vous continuer?", vbOKCancel, "Validation")

i = cell.Row
i = i - 1
ref = "B" & i
Sheets(onglet).Select
Sheets(onglet).Range(ref).Select
Selection.ShowDetail = True
Sheets(onglet).Select

if Sheets(onglet).Range("C" & i) <> "" then
Sheets(onglet).Range("C" & i).Select
Selection.ShowDetail = True
end if

j = j + 2

trouve = True

End If
Next
0