g un gros pb

J

Jean-Marie

Guest

• 24 Mars 2003

• #2

Bonjour, Lolo

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

@+Jean-Marie

 

Vote positif 0 Vote négatif

C

Cathy

Guest

• 24 Mars 2003

• #3

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

 

Vote positif 0 Vote négatif

L

lolo

Guest

• 24 Mars 2003

• #4

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
...................
..................

 

Vote positif 0 Vote négatif

L

lolo

Guest

• 24 Mars 2003

• #5

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!

 

Vote positif 0 Vote négatif

C

Cathy

Guest

• 24 Mars 2003

• #6

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

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 24 Mars 2003

• #7

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

 

Vote positif 0 Vote négatif

L

lolo

Guest

• 24 Mars 2003

• #8

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

 

Vote positif 0 Vote négatif

L

lolo

Guest

• 24 Mars 2003

• #9

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

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 24 Mars 2003

• #10

re lolo

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

Mytå

 

Vote positif 0 Vote négatif

L

lolo

Guest

• 24 Mars 2003

• #11

alt + f11 ne fait rien sur ma feuille!

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 24 Mars 2003

• #12

Re lolo

Essaye outils > macro > Visual basic editeur

Mytå

 

Vote positif 0 Vote négatif

L

lolo

Guest

• 24 Mars 2003

• #13

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

 

Vote positif 0 Vote négatif

M

Monique

Guest

• 24 Mars 2003

• #14

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.

 

Pièces jointes

• Lolo_macro.zip

  6.6 KB · Affichages: 18

Vote positif 0 Vote négatif

L

lolo

Guest

• 24 Mars 2003

• #15

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

 

Vote positif 0 Vote négatif