g un gros pb (suite)

[lolo]

bonjour à tous,

Merci c@thy!!Je débute dans les macros mais je ne suis pas ignard quand même
La macro de monique fonctionne impec.
mais je n'arrive pas a l'etendre, cad:
que en plus de c4 qui me remplit la colonne d
je voudrais que e4 me remplisse aussi la colonne f!
Une idée??
@+ et encore un grd merci

 

[lolo]

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

 

[Cathy]

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.

 

[lolo]

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

 

[Mytå]

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

 

[Mytå]

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å

 

[lolo]

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

 

[Mytå]

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å

 

[lolo]

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

 

[lolo]

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