VBA blocage showdetail
erissato
-
melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention -
melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention -
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
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
1 réponse
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
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