g un gros pb (suite)

L

lolo

Guest

• 25 Mars 2003

• #2

Laissez tomber!! Je viens de comprendre que les macros c'est comme mon
bon vieux gwbasic d'antan!Pas ignard mais long a la détente lol ))

Private Sub Worksheet_Change(ByVal Target As Range)
1 If Target.Address <> "$C$4" Then GoTo 6
2 If Range("D6").Value = vide Then
3 Range("D6") = Range("C4").Value
4 Else
Cells(Range("d65535").End(xlUp).Row + 1, 4) = Range("C4").Value
5 End If
6 If Target.Address <> "$C$5" Then GoTo 15
7 If Range("e6").Value = vide Then
8 Range("e6") = Range("C5").Value
9 Else
Cells(Range("e65535").End(xlUp).Row + 1, 5) = Range("C5").Value
10 End If
15 End Sub

En tout cas,je trouve se site génial avec en plus un forum qui "marche" bien!

@ bientôt

 

Vote positif 0 Vote négatif

C

Cathy

Guest

• 25 Mars 2003

• #3

Pardon lolo si je t'ai froissé.

Je n'ai pas dit que tu étais ignare!

(rires!!!) J'ai dû encore mal m'exprimer. (re pardon!)

Ici il n'y a pas d'ignares, juste des débutants (dont je fais partie, rassure-toi)

C'est bizarre que chez toi le alt+F11 ne marche pas, normalement y'a pas de problèmes!

Bon aprem' à toi.

 

Vote positif 0 Vote négatif

L

lolo

Guest

• 25 Mars 2003

• #4

Mais non je ne suis pas froissé!
grrrr je viens de m'apercevoir que cela marche que si les 2 cellules a remplir
sont a proxim.

Help me

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 25 Mars 2003

• #5

Re lolo et le forum

A essaye comme ceci peut-etre

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

A suivre

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 25 Mars 2003

• #6

Re lolo

a modifier ici

Else
Cells(Range("d65535").End(xlUp).Row + 1, 4) = Range("C4").Value
Exit sub
End If

et la

Else
Cells(Range("e65535").End(xlUp).Row + 1, 5) = Range("C5").Value
Exit sub
End If

Mytå

 

Vote positif 0 Vote négatif

L

lolo

Guest

• 25 Mars 2003

• #7

merci Mytå!
cela a fonctionné la premiere fois puis quand j'ai fermé le classeur
et que j'ai voulu en creer un autre cela n'a plus marché!
je ne comprends plus rien!!!!!!
cela a marché sur la meme colonne (cad que tu remplisse c4 et c5,ou que tu remplisse c4 et c6) mais quand tu veux remplir sur des colonnes diff cela ne marche pas.(cad c4 d4).

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 25 Mars 2003

• #8

Re lolo

Tu copie bien le code sur une feuille pas dans ThisWorkbook

ici copie cellule C4 dans D6 et +
et E5 dans F6 et +

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

Mytå

 

Vote positif 0 Vote négatif

L

lolo

Guest

• 25 Mars 2003

• #9

je copie dans le code de vba.
je vais essayer ça!merci
@ +
lolo

 

Vote positif 0 Vote négatif

L

lolo

Guest

• 25 Mars 2003

• #10

merci Mytå!ca marche!je ne comprends pas tt a l'heure j'ai
pourtant changé les valeurs et cela n'a pas marché!
je te tiens informé des suites!
@+
lolo

 

Vote positif 0 Vote négatif