angelspeed
XLDnaute Junior
Bonjour,
je fais encore appel à votre aide pour un truc tout bête que j'arrive pas à faire.
Pour résumer, j'ai une feuille de commande et quand je la valide ça me verrouille les cellules automatiquement.
Pour simplifier la saisie maintenant, je souhaiterais mettre une formule dans la colonne "prix" afin qu'il soit affiché automatiquement en saisissant un produit - un RECHERCHEV tout simplement en formule.
La seule chose c'est qu'il faut qu'en validant, la formule soit "transformée" en sa valeur, puisque le prix peut varier.
Je vous mets le début de code du verrouillage, je pense pas qu'il y'est besoin de mettre un fichier :
J'avais trouvé
Cells(ligne, 8).Formula = Cells(ligne, 8).Value
mais ça ne marche pas du tout, ça fait planter VB Merci de votre aide
je fais encore appel à votre aide pour un truc tout bête que j'arrive pas à faire.
Pour résumer, j'ai une feuille de commande et quand je la valide ça me verrouille les cellules automatiquement.
Pour simplifier la saisie maintenant, je souhaiterais mettre une formule dans la colonne "prix" afin qu'il soit affiché automatiquement en saisissant un produit - un RECHERCHEV tout simplement en formule.
La seule chose c'est qu'il faut qu'en validant, la formule soit "transformée" en sa valeur, puisque le prix peut varier.
Je vous mets le début de code du verrouillage, je pense pas qu'il y'est besoin de mettre un fichier :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:Q")) Is Nothing Then
ActiveSheet.Unprotect
ligne = Target.Row
If Cells(ligne, 17).Value = "OK" Then
Cells(ligne, 8) <--- celle-ci à transformer en valeur
Range(Cells(ligne, 1), Cells(ligne, 15)).Locked = True
Cells(ligne, 16).Locked = False
....
J'avais trouvé
Cells(ligne, 8).Formula = Cells(ligne, 8).Value
mais ça ne marche pas du tout, ça fait planter VB Merci de votre aide
Dernière édition: