VBA blocage showdetail
erissato
-
melanie1324 Messages postés 1561 Statut Membre -
melanie1324 Messages postés 1561 Statut Membre -
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
A voir également:
- VBA blocage showdetail
- Blocage messenger - Guide
- Blocage smtp sortant - Forum Freebox
- Prob connexion serveur sortant smtp free ✓ - Forum Réseaux sociaux
- Problème serveur SMTP routeur Free - Forum Outlook
- Incompatibilité de type vba ✓ - Forum Programmation
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