Autres empêcher une modification manuel de l’incrémentation automatique

[Camille123]

bonjour la famille
j'ai un fichier excel dont le numéro de réquisition est automatique grâce a une formule VBA.
j'aimerai verrouiller pour qu’on ne puisse pas le modifier de façon manuel.
Mais lorsque utilise protéger la feuille pour verrouiller l’incrémentation automatique ne marche plus.
raison pour laquelle je viens vers vous pour une solution
Merci d'avance pour vos apport.

 

[patricktoulon]

re
bonjour
ben tu reverrouille les autres et tu verrouille celle ci et tu empêche de sélectionner les cellules verrouillées pas plus compliqué

 

[Camille123]

re
bonjour
ben tu reverrouille les autres et tu verrouille celle ci et tu empêche de sélectionner les cellules verrouillées pas plus compliqué

Bonjour Patrick cette manière de verrouiller bloque le fonctionnement du programme VBA qui permet l’incrémentation automatique du numéro de réquisition

 

[patricktoulon]

ben tu fait dans ton code vba

sheet.unprotect
tacellule=xxx
sheets.protect

 

[Camille123]

ben tu fait dans ton code vba

sheet.unprotect
tacellule=xxx
sheets.protect

j'ai ajouté mais sa met errer de compilation
tu peux essayer a ton niveau pour? peut être c'est manière d’insérer la formule qui n'ait pas bonne comme je débute en VBA

 

[patricktoulon]

re
j'ai tapé vite sheets avec un "s"
et c'est un principe pas la syntaxe
mais comme il faut tout dire

With Sheets("toto")
        .Unprotect
        .[A1].Value = .[A1].Value + 1
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        .EnableSelection = xlUnlockedCells
End With

 

[Camille123]

re
j'ai tapé vite sheets avec un "s"
et c'est un principe pas la syntaxe
mais comme il faut tout dire

With Sheets("toto")
        .Unprotect
        .[A1].Value = .[A1].Value + 1
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        .EnableSelection = xlUnlockedCells
End With

merci bien pour ton apport Patrick
agréable suite a toi

 

[Camille123]

re
j'ai tapé vite sheets avec un "s"
et c'est un principe pas la syntaxe
mais comme il faut tout dire

With Sheets("toto")
        .Unprotect
        .[A1].Value = .[A1].Value + 1
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        .EnableSelection = xlUnlockedCells
End With

sa fonctionne parfaitement merci bien une fois de plus