Aide VBA pour débutante

[Cathy]

Bonjour le forum,

oili oilou, j'ai un petit souci

sur le lien ci-dessous on a eu une conversation avec lolo.

Lieni/url]

Myta a répondu en envoyant la macro suivante :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$C$4" or Target.Address <> "$D$4"Then GoTo Suit
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
Suit:
If Target.Address <> "$C$5" Then GoTo fin
If Range("e6").Value = vide Then
Range("e6") = Range("C5").Value
Else
Cells(Range("e65535").End(xlUp).Row + 1, 5) = Range("C5").Value
End If
fin:
End Sub

et moi, depuis hier (pas douée!) je cherche à retranscrire ça en variable,
pour que ça fonctionne pour n'importe quelle colonne.

j'essaie de bidouiller un truc du style : (ne riez pas, je débute!)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveCell
If .Address <> "$C$4" And .Address <> "$D$4" Then Exit Sub
C = .Column
If C > 26 Then L = 2 Else L = 1
ColumnLetter = Left$(.Address(0, 0), L)
coletter = Left$(.Address(0, 0), L .offset(0,1))
If .Offset(2, 1) = vide Then
.Offset(2, 1) = Range(" & ColumnLetter & 4").Value
Else
Cells(Range(" & coletter & 65535").End(xlUp).Row + 1, 4) = Target.Value
End If
End With
End Sub

Evidemment cé tou fô!

Merci à celles et ceux qui peuvent m'aider là-dessus et gros bisous à toutes et tous

 

[Ti]

Cathy, que veux-tu faire au juste ? car telle qu'elle se présente, ta macro s'arrête si la cellule active n'est ni C4 ni D4, donc ton test de colonne > 26 ne s'exécutera jamais. D'autre part, tu utilises des détours tellement compliqués que je ne vois pas quelle cellule de destination tu références.

Donc pour résumé, tu veux quoi ? Coller la valeur de la cellule active dans la colonne suivante ? a quelle ligne ?

Allez, courage, tu y es presque (c'est maintenant que tu aurais besoin de ta main qui sort de l'eau !)

 

[Cathy]

Salut Ti,

encore à mon secours!... Oui, la main qui sort de l'eau ... ou qui s'enfonce?

zut, l'adresse du fil n'est pas passée

Lien supprimé

oilà, au départ c'est une macro événementielle pour la cellules C4

la question de lolo était :

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!

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

@+Jean-Marie

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

et puis après (sur un autre fil)

Lien supprimé

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

Je ne sais pas si je me suis bien exprimée

 

[Ti]

eh ben voilà, une chtit macro qui réagit à la saisie soit dans C4 soit dans E4 et qui alors recopie la valeur de C4 ou E4 soit dans D6 etc.... soit dans F6 etc....

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Target.Address <> "$C$4" And Target.Address <> "$E$4" Then Exit Sub
Set Cel = Target.Offset(65532, 1).End(xlUp).Offset(1, 0)
If Cel.Row < 6 Then Set Cel = Cel.EntireColumn.Cells(6, 1)
Cel.Value = Target.Value
End Sub

 

[Cathy]

Merci SuperGénialMagic Ti, ça fonctionne au poil!

http://yves.marsal.free.fr/gifs/ymagi09.gif[img]

Et voilà, comme d'hab, avec Ti y'a qu'à d'mander!

Faut pas qu'j'en prenne l'habitude tout de même!

[img]http://imagesdeti.free.fr/ImagesDivers/BipBip.gif

 

[Cathy]

Gif pour SuperGénialMagic Ti

 

[Ti]

arrête Cathy, naïf comme je suis, je vais le croire.

 

[Cathy]

Hi!Hi!Hi! Naïf et modeste!





ma nouvelle tête !



C@thy

 

[Celeda]

Bonjour le forum

Houla la la la la et vous pensiez que j'étais osée de montrer mon corps dans ma fiche !!!!!!!!!!!perso...................ben alors là je suis rien à coté de cette charmante dame !!!!!!

Je sais pas ce que tu lui as fait Ti, mais Cathy se lâche complétement.

Tu fais cet effet à toutes les filles .....parce que moi non plus je n'ai pas grand-chose à enlever....hi hihi (bon j'ai fini de te dire des bêtises)


Bonne soiree
Celeda

 

[Mytå]

Bonsoir le forum

de un pas ma macro cela

Myta a répondu en envoyant la macro suivante :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$C$4" or Target.Address <> "$D$4"Then GoTo Suit
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
Suit:
If Target.Address <> "$C$5" Then GoTo fin
If Range("e6").Value = vide Then
Range("e6") = Range("C5").Value
Else
Cells(Range("e65535").End(xlUp).Row + 1, 5) = Range("C5").Value
End If
fin:
End Sub


Et bravo a Ti pour la sienne beaucoup plus simple mais lolo avait deja une base de macro juste travailler pour lui plus facile peut-etre a comprendre

Mytå º¿º

 

[Mytå]

re le forum

Si TI est debutant en excel et vba ..........

David_XLD va devoir rajouter une section nulle pour moi

A+ Mytå