Desactiver l'entendu de serie

bonjour tout le monde

Je suis tomber sur un truc qui me pose bien des probleme... je m'explique

J'ai un tableau avec différent type de bordure : pointilé, plein fin et plein epai, ensuite j'ai une macro qui modifié les couleur de mes case suivant les valeur saisie ! Et le probleme c'est que l'utilisateur va etre tenter de selectionner 2 case et de les faire glisser (efin de copier le contenue jusqu'a la fin de ma ligne) et la c'est le drame car les lignes pleine vienne sur les lignes pointillé et la presentation du tableau par en lambeau.

Bonsoir

Une méthode pour ne pas "casser" un tableau est de mettre une protection sur la feuille de calcul. Il faut au préalable "deverrouiller" les cellules qui doivent pouvoir être modifiées.

Voir "Format" "Cellule" "Protection" pour les cellules

et voir "Outils" "Proection" "Protéger feuille"

Mais sans classeur, tu es le seul à pouvoir faire des tests.

Cordialement

Bonjour à tous,

Sinon tu peux masquer la poignée de recopie : dans excel 2003 (ça devrait pas être trop différent pour excel 2000)

tu vas dans Outils / Options / Onglet Modification / Décoche la case 'Glissement-déplacement de la cellule'.

Ça devrait faire l'affaire! Je pense que l'utilisateur n'ira pas fouiller dans les options excel

Merci pour vos réponse, j'ai fini par trouver :

Voici donc la solution

->Supprimer le glisser : (code que j'ai mis dans le workbook_open()

 
Application.CellDragAndDrop = False
Application.ExtendList = False

->Supprimer tout les copier coller :

'Code dans le workbook_open

Application.CutCopyMode = False
EnableControl 22, False   ' paste
EnableControl 755, False  ' pastespecial
Application.OnKey "^c", "Erreur"
Application.OnKey "^v", "Erreur"

'code dans le workbook_before_close()
Application.CellDragAndDrop = True
    Application.ExtendList = True
    Application.CutCopyMode = True
    EnableControl 22, True   ' paste
    EnableControl 755, True  ' pastespecial
    Application.OnKey "^c"
    Application.OnKey "^v"

'macro Erreur lorsque la personne fait crtl+c ou ctrl+v
Sub Erreur()
    '// NoGo
    MsgBox "Copier/coller interdit!"
End Sub

'macro pour activer ou desactiver le copier coller dans le menu
Sub EnableControl(Id As Integer, Enabled As Boolean)
    Dim CB     As CommandBar
    Dim C      As CommandBarControl
    For Each CB In Application.CommandBars
        Set C = CB.FindControl(Id:=Id, recursive:=True)
        If Not C Is Nothing Then C.Enabled = Enabled
    Next
End Sub

Voila j'espere que sa en aidera certain qui comme moi débute et tomberons sur des probleme comme cela