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
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
A voir également:
- VBA blocage showdetail
- Blocage agriculteur carte en temps réel - Accueil - Transports & Cartes
- Blocage messenger - Guide
- Blocage pub youtube - Accueil - Streaming
- Bloquer un ami sur Messenger : comment ne pas être contacté - Guide
- Find vba - Astuces et Solutions
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
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
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