Aide VBA pour débutante

  • Initiateur de la discussion Cathy
  • Date de début
T

Ti

Guest
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 !)
 
C

Cathy

Guest
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

 
T

Ti

Guest
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
 
C

Cathy

Guest
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
 
C

Celeda

Guest
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
 
M

Mytå

Guest
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å º¿º
 

Statistiques des forums

Discussions
283 806
Messages
1 854 604
Membres
152 561
dernier inscrit
Flaure62
Haut Bas