Discussion :

[Frv100]

Bonjour,

je me retrouve face à un petit problème, et j'aurais besoin de votre aide éclairée

J'ai définie que les valeurs de base de ma plage de saisie ("D13 : D300") étaient identique au résultat d'une autre plage ("R13:R300") qui contient une formule de calcul :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("liste").Range("D13:D300").Value = Sheets("liste").Range("R13:R300").Value

Mon problème est que lorsque je viens saisir une autre donnée dans la cellule "D13" par exemple, cette dernière n'est pas prise en compte.
La priorité reste sur les valeurs définies au début...

Auriez-vous une piste ?

Merci d'avance,

DD

[Menhir]

Le problème est qu'il est quasiment impossible de savoir si une données de la colonne D provient d'une saisie manuelle ou d'un précédent usage de la macro, surtout si, depuis le dernier usage, les valeurs de la colonne R ont été modifiées.

Y a-t-il une raison pour laquelle tu ne mets pas une simple formule en colonne D ?

[Frv100]

merci ppur votre message.

pour vous expliquer un peu plus, la formule de la colonne R permet, pour chaque ligne, de verifier la presence de mot clés dans la colonne B, et renvoie la valeur "O" si vrai et "N" si faux.

la colonne D affiche donc la valeur de la formule en miroir...

j'ai mis la formule dans une zone qui sera cachee et non modifiable pour eviter l'effacement de cette derniere...
Et c'est surtout la seule façon que j'avais pour le faire avec mes faibles connaissances en vba...

[Menhir]

Si tu ne veux pas que la formule en colonne R soit modifiée, tu pourrais mettre en D13 la simple formule =R13 et copier D13 sur D13:D300.
Ainsi, tu pourrais avoir ton "effet miroir" tout en saisissant les valeur à la main si besoin.

[Frv100]

oui j'avais essayé. le probleme est Ue si une personne saisie une donnée, elle supprime le =R13.
et si elle c'est trompé, le lien ne se fera plus car le =R13 sera supprimé.

Est ce qu'il est serait possible avec un code vba de remplacer la formule en R13, et de lui dire D13 = resultat resultat de la formul sauf si valeur saisie manuellement en D13 ?

[Menhir]

oui j'avais essayé. le probleme est Ue si une personne saisie une donnée, elle supprime le =R13.
et si elle c'est trompé, le lien ne se fera plus car le =R13 sera supprimé.

Il sera très simple de rétablir ce lien, soit en la tapant, soit en copiant une autre cellule où elle se trouve.
Au pire, tu peux demander à ta macro de remettre cette formule dans les cellules vides.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target as Range) 
    If Columns(Target) = 4 And Target.Text = "" Then Target.Formula = "=R" & Target.Row
End Sub

Ce code remet la formule dans une cellule si elle est vidée.
Donc, "la personne qui se trompe" n'a qu'à appuyer sur Suppr pour que la formule se remette en place.

Est ce qu'il est serait possible avec un code vba de remplacer la formule en R13, et de lui dire D13 = resultat resultat de la formul sauf si valeur saisie manuellement en D13 ?

Ce serait possible mais sans intérêt pour deux raisons.
D'abord, ça serait une macro "one shoot" (qui ne fonctionnerait qu'une fois) puisque la fois suivante, il n'y aurait plus aucune formule.
Ensuite, il est possible de faire ça à la main en 5 secondes : Sélection de la colonne > Ctrl+C > Clic droit > Copier Valeur.

Ecrire une macro utilisable une seule fois pour replacer un processus de 5 secondes, ça n'est pas très rentable.
Je pense que le petit code ci-dessus sera plus efficace.

[Frv100]

je vais regarder cela de plus prêt.
merci pour l'aide, je vous tiens au courant.

[Frv100]

apres test cela fonctionne comme je le souhaitais ! merci beaucoup pour votre aide !

un dernier détail sans vouloir abusé :

quand je supprime la valeur saisie de la cellule D , la formule "=R" reprend bien ca place.

cependant le resultat de la formule ne s'affichent pas, la cellule D semble vide, comme si il n'y avait pas eu de raffraichissement.
si je selectionne la cellule E et reviens sur la D la valeur apparait...

c'est étrange...