Verrouiller une plage de cellules

[ALBERT]

BONJOUR,

J'ai un tableau que j'envoie à des fournisseurs, ils doivent remplir des colonnes dans un tableau mais pas toutes. Pour éviter d'éventuelles erreurs, peut -on verouiller une plages de cellules, sans verrouiller la feuille ?

ou encore mieux, en admettant que le fournisseur doive rempli la colonne A1 à A10 ET C1 à C10, existe t-il une fonction qui permettrait, quand le fournisseur saisi son info en a1, que la tabulation passe directement en c1 ?

Merci d'avance pour votre précieuse aide !
Albert

 

[g]

Bonjour,
Pour protéger une ou des cellules d’une feuille de calcul Excel, il faut qu’au préalable cette / ces cellules soient verrouillées. Par défaut, toutes les cellules de la feuille sont verrouillées. Il faut donc :
Sélectionner toutes les cellules de la page, cliquer droit sur une cellule, choisir Format de cellule, cliquer sur l’onglet Protection de la boite de dialogue Format de cellule, « décocher » Verrouillée et fermer la boite de dialogue.
Ensuite sélectionner et cliquer droit sur les cellules à protéger, choisir Format de cellule, cliquer sur l’onglet Protection de la boite de dialogue Format de cellule, cocher Verrouillée et fermer la boite de dialogue.
Il ne reste plus qu ‘à faire Outils / Protection……
Bonne journée.

 

[PhiBou]

Salut Albert, g, le Forum

Ces deux codes à mettre dans leWorkSheet de la feuille en question :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10,C1:C10")) Is Nothing Then
If Left(Target.Address, 2) = "$A" Then
Range("C" & Target.Row).Select
Else
Range("A" & (1 + Target.Row)).Select
End If
Else
Range("A1").Select
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A11,C1:C10")) Is Nothing Then
If Target.Address = "$A$11" Then Range("C10").Select
Else
Range("A1").Select
End If
End Sub

Valider les données par Entrée et non pas les flèches directionnelles car si la cellule cible n'appartient pas à la Range(A1:A10,C1:C10) le SelectionChange renverra à la cellule A1

Bonne journée

PhiBou

 

[zicinho]

en faite rien à ajouter !!!