OVH Cloud OVH Cloud

excel 1997 à 2003

2 réponses
Avatar
philzig34
salut
dans une feuille excel je crée une série de nombre de 1 à 25,par
exemple...
je voudrais lorsque je sélectionne une cellule que sa valeur (=5) soit
mise en mémoire, je modifie la valeur de cette cellule (=10); je
voudrai que la cellule contenant la valeur 5 soit modifiée et que sa
valeur passe à 10...

1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17-18-19-20-21-22-23-24-25

1-2-3-4-10-6-7-8-9-5-11-12-13-14-15-16-17-18-19-20-21-22-23-24-25
Merci d'avance

--
merci et salut
Philzig34

2 réponses

Avatar
Nicolas B.
Salut,

je modifie la valeur de cette cellule (); je
voudrai que la cellule contenant la valeur 5 soit modifiée et que sa
valeur passe à 10...


Ben tu clique sur une cellule. Tu tapes 5. Tu fais ENTREE. Et tu tapes 10 et
re-ENTREE. La valeur de la cellule est bien passée de 5 à 10, non ?
:-)

Précise un peu plus ton problème. La cellule "sa valeur (=5)" et la cellule
"contenant la valeur 5" sont-elles vraiment les mêmes cellules ?


--
Nicolas B.


salut
dans une feuille excel je crée une série de nombre de 1 à 25,par
exemple...
je voudrais lorsque je sélectionne une cellule que sa valeur (=5) soit
mise en mémoire, je modifie la valeur de cette cellule (); je
voudrai que la cellule contenant la valeur 5 soit modifiée et que sa
valeur passe à 10...

1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17-18-19-20-21-22-23-24-25

1-2-3-4-10-6-7-8-9-5-11-12-13-14-15-16-17-18-19-20-21-22-23-24-25
Merci d'avance

--
merci et salut
Philzig34


Avatar
philzig34
Nicolas
Merci de ta réponse
je voudrais que cela se fasse automatiquement...
Ce matin j'ai trouvé
dans la feuille je place les commandes suivantes
Public valeur1, valeur2, compteur As Integer


Private Sub Worksheet_Change(ByVal Target As Range)
'Stop
On Error GoTo fin
valeur2 = Target.Value
If compteur = 0 Then
compteur = compteur + 1
ActiveCell.Offset(-(valeur1 - valeur2), 0).FormulaR1C1 =
valeur1
Else
compteur = 0
Range("A1").Select
End If
fin:
End Sub
---------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
valeur1 = Target.Value
If compteur > 0 Then
compteur = 0
Range("A1").Select

End If
End Sub
et ça marche
Peut être as tu une autre solution ?
salut

--
merci et salut
Philzig34