g un gros pb

[lolo]

Voila, j'ai un probleme que je n'arrive pas a résoudre!!pourtant je cherche!!
Voici ce que je veux faire:

Quand je rentre une valeur dans c4 par exemple,je veux que cette valeur s'affiche dans d6 par ex (pas de prob pour l'instant).Mais quand je re rentre
une autre valeur dans c4 cette nouvelle valeur s'affiche dans d7 sans modifier d6!
merci d'avance

 

[Jean-Marie]

Bonjour, Lolo

Une question si pour la troisième fois, tu rentres une valeur en C4, que dois-tu faire.

@+Jean-Marie

 

[Cathy]

Salut lolo

Dans la feuille : macro événementielle

1) ALT+F11
2) Dans le menu déroulant au milieu en haut tu choisis "Worksheet"
3) Dans le menu déroulant en haut à droite tu choisis "Change"
tu as :

Private Sub Worksheet_Change(ByVal Target As Range)
End Sub au milieu tu rajoutes tes instructions de façon à avoir :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$4" Then Exit Sub
If range("D6").Value = vide Then
range("D6")=.value
Else
range("D7")=.value
range("C4")=range("D6").value
End If

C@thy
End Sub

C@thy

 

[lolo]

cette nouvelle valeur doit s'afficher en d8!
la 1ere saisie en c4 reste en d6
la 2eme saisie en c4 reste en d7 sans modifier d6
la 3 eme saisie en c4 reste en d8 sans modifier d6 et d7
...................
..................

 

[lolo]

merci beaucoup c@thy,
mais il faut que je repete l'operation a chaque fois?
car quand j'ecris d6 d7 d8 j'imagine jusqu'a au moins d100!

 

[Cathy]

pardon, y'a une ligne en trop :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$4" Then Exit Sub
If range("D6").Value = vide Then
range("D6")=.value
Else
range("D7")=.value
End If
End Sub

C@thy

 

[Mytå]

Bonsoir le forum

Essaye ceci lolo

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$4" Then Exit Sub
If Range("D6").Value = vide Then
Range("D6") = Range("C4").Value
Else
Cells(Range("d65535").End(xlUp).Row + 1, 4) = Range("C4").Value
End If
End Sub

 

[lolo]

Merci beaucoup c@thy et myta!
Je vais essayer cela!et vous tiens informé!
@ + ))

 

[lolo]

je ne trouve pas ou il faut remplir tout ça!!


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$4" Then Exit Sub
If Range("D6").Value = vide Then
Range("D6") = Range("C4").Value
Else
Cells(Range("d65535").End(xlUp).Row + 1, 4) = Range("C4").Value
End If

 

[Mytå]

re lolo

Alt+F11 et tu copies la macro sur la Feuille que tu veux utilise cette macro

Mytå

 

[lolo]

alt + f11 ne fait rien sur ma feuille!

 

[Mytå]

Re lolo

Essaye outils > macro > Visual basic editeur

Mytå

 

[lolo]

c@thy ou myta vous pouvez me joindre un fichier avec la macro svp?
cela ne marche pas! snifff!
grd merci d'avance

 

[Monique]

Bonsoir,

Je n'ai pas suivi l'histoire, mais ta macro est copiée.
En plus, ça fonctionne !

Pour copier la macro :
Alt + F11 ou bien
Barre de menus - Outils - Macro - Visual Basic Editor
Et là :
Barre de menus - Affichage - Code.
C'est là, à droite, que tu colles la macro.

 

[lolo]

Bonsoir et merci a tous!c@thy myta et monique