Discussion :

[fabiend83]

Bonjour

J'aimerais copier la cellule d'une ligne d'un tableau dans une autre cellule de la meme ligne en selectionnant la ligne avec une troisième cellule (hors du tableau)
Tout ca déclenché par un bouton

Si ce n'est pas clair, je joins un fichier exemple

Merci beaucoup !

[illight]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("D10").value = range("C10").value

non ? ça tu le met dans une macro, que tu affetce à ton bouton et c'est bon

Si tu le fait par rapport à une valeur, tu fait une boucle sur ton tableau pour savoir a quelle ligne est ta valeur

Essaye d'écrire un peu de code et si tu bloque tu nous dit

[Elstak]

j'ai pas compris en effet

tu selection une ligne (n'importe quelle colonne)
tu veux couper coller colonne 3 vers colonne 4 de la ligne?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cells(activecell.row,3).cut cells(activecell.row,4)

pas tres dur...

[fabiend83]

Bonjour
Voila une macro qui répond à ma question.
Je l'ai trouvée sur un autre forum ou un certain Myta a réussi à comprendre un humble novice comme moi.
(peut-être que de pouvoir envoyer un fichier excel en exemple l'a aidé....comment se fait-il que cela ne soit pas possible sur ce forum??)


Si cela peut servir à d'autres, la voici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub CopierValeur()
With Range("A7:A13")
Set c = .Find(Range("B2"), LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Cells(c.Row, 4) = Cells(c.Row, 3)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

Encore merci Monsieur Myta.

Cordialement

[AlainTech]

peut-être que de pouvoir envoyer un fichier excel en exemple l'a aidé....comment se fait-il que cela ne soit pas possible sur ce forum??

C'est tout à fait possible mais (pour le moment) il faut le zipper.

Notre forum n'accepte pas (encore) les fichiers .xls.