fermer un fichier

[claude40]

bonjour a tous
dans le fichier suivant comment je pourrai faire pour commencer a remplir une celule et ensuite en validant sauter directement aux autre dans cette ordre:
1 réference du produit
2 poid du refus
3 valeur
4 Densité
et quand je clik sur fin de calcul je voudrai que sa me ferme aussi excel si c possible.

merci d'avance pour votre aide

Regarde la pièce jointe nouveau 2.zip

 

[d.ryba]

Re : fermer un fichier

Bonjour,
Alors les réponses :

• pour l'ordre de tabulation :
  
  
  tout d'abord ton fichier s'y prête bien🙂.
  il faut sélectionner les cellules que tu veux "tabuler" / format de cellule / protection, et tu décoches "verrouillé". (p.s : il faut sélectionner toutes les cellules susceptibles d'être écrites, voir commentaires dans le fichier).
  
  Puis dans révision , il faut protéger la feuille ( pas nécessaire de changer les case sélectionnées par défaut).
  
  A partir de maintenant, la tabulation ne va se faire que sur les cellule non-verrouillée et miracle, en plus elles sont rangées dans le bon ordre.
  
  
  
• pour la fermeture de Excel, il suffisait de rajouter

  Application.Quit

  dans ton bouton. et plus besoin de mettre

  ThisWorkbooks.close

  
  

Ci-joint le fichier revu et adapté à ce que tu as demander.

@++

 

[claude40]

Re : fermer un fichier

merci de t'etre interesser a mon cas d.Ryba
mais je voudrais que selectionner les case marquer si dessu et pas c'elle des petit tableau,tu voit comment faire?
merci

 

[d.ryba]

Re : fermer un fichier

Salut,

Voici ton fichier final avec ce que tu m'a demander.
Pour ce que tu voulais en fait j'ai protéger les cellules du tableau, et je les "dé-protègent" quand j'ai besoin d'écrire dedans.

En rouge ce que j'ai retoucher pour que ça fonctionne et alléger ton code

Sub vider()

[COLOR="Red"]Range("B10:C11,G10:H11,L10:N11,I5:K6").ClearContents[/COLOR]

End Sub

'-------------------------------------------

Sub effacer()

[COLOR="Red"]ActiveSheet.Unprotect
Range("C15:D24,N15:O24").ClearContents
ActiveSheet.Protect[/COLOR]

End Sub

'-------------------------------------------

Sub placer_infos()

derligne = Range("C65536").End(xlUp).Row

[COLOR="Red"]Application.ScreenUpdating = False[/COLOR]

If derligne < 15 Then

   derligne = 15
[COLOR="Red"]ActiveSheet.Unprotect
Range("C" & derligne & ":D" & derligne).Locked = False[/COLOR]
        Cells(derligne, 3).Value = Cells(5, 9).Value
        Cells(derligne, 4).Value = Cells(17, 7).Value
[COLOR="Red"]Range("C" & derligne & ":D" & derligne).Locked = True
ActiveSheet.Protect[/COLOR]
Exit Sub
End If

If derligne < 24 Then

[COLOR="Red"]ActiveSheet.Unprotect
Range("C" & derligne & ":D" & derligne).Locked = False[/COLOR]
        Cells(derligne + 1, 3).Value = Cells(5, 9).Value
        Cells(derligne + 1, 4).Value = Cells(17, 7).Value
[COLOR="Red"]Range("C" & derligne & ":D" & derligne).Locked = True
ActiveSheet.Protect[/COLOR]
Exit Sub

End If

If derligne >= 24 Then
   derligne = Range("N65536").End(xlUp).Row

If derligne < 15 Then
   derligne = 15

[COLOR="Red"]ActiveSheet.Unprotect
Range("N" & derligne & ":O" & derligne).Locked = False[/COLOR]
        Cells(derligne, 14).Value = Cells(5, 9).Value
        Cells(derligne, 15).Value = Cells(17, 7).Value
[COLOR="Red"]Range("N" & derligne & ":O" & derligne).Locked = True
ActiveSheet.Protect[/COLOR]
Exit Sub

End If

If derligne < 24 Then

[COLOR="Red"]ActiveSheet.Unprotect
Range("N" & derligne & ":O" & derligne).Locked = False[/COLOR]
        Cells(derligne + 1, 14).Value = Cells(5, 9).Value
        Cells(derligne + 1, 15).Value = Cells(17, 7).Value
[COLOR="Red"]Range("N" & derligne & ":O" & derligne).Locked = True
ActiveSheet.Protect[/COLOR]
Exit Sub

End If

If derligne > 24 Then
Exit Sub


End If
End If
[COLOR="Red"]Application.ScreenUpdating = True[/COLOR]
End Sub

 

[claude40]

Re : fermer un fichier

merci pour ta peine

 

[d.ryba]

Re : fermer un fichier

Je me suis même rendu compte que les lignes

[COLOR="Red"]Range("[I]X[/I] " & derligne & ":[I]X[/I]" & derligne).Locked = False[/COLOR]

et

[COLOR="Red"]Range("[I]X[/I]" & derligne & ":[I]X[/I]" & derligne).Locked = True[/COLOR]

Ne sont pas utiles, car cela ne bloque pas l'écriture.

Il y a juste besoin de retirer la protection de la feuille

[COLOR="Red"]ActiveSheet.Unprotect[/COLOR]

d'écrire dedans, puis de la reprotéger :

[COLOR="Red"]ActiveSheet.Protect[/COLOR]