Discussion :

[tma2012cauret]

Bonsoir à tous,

Je suis débutant, je n'y connait pas grand chose et j'avais pour projet de développer un petit outil de recherche en utilisant une liste déroulante "semi-automatique".
L'idée est que j'ai une liste pré-définie, je tape les premiers caractères, et la liste se réduit. Jusque là tout va bien, le problème est que une fois la valeur trouvé, il m'est impossible de copier la valeur pour la copier vers d'autre cellules.

Je travail dans l'industrie de la menuiserie, et pour renseigner la couleur de nos panneaux nous avons une liste : couleur a, b, c etc..
Cette couleur peut être différente suivant la pièce a, b, c etc.. Parfois la couleur de la pièce a et b est identique.
La couleur est dans mon fichier test indiqué dans la colonne A. Le problème est qu'une fois que j'ai remplie la cellule A2 (pour la couleur du panneau A) il m'est impossible de copier la valeur de la cellule A2 en A3 (j'indique ici A3, mais sa pourrait très bien être n'importe quel cellule) !

Pour le moment je doit choisir la couleur PAR cellule, ce qui est hyper long ! L'idée serait de pouvoir copier collé cette valeur dans la sélection de cellule que je choisie. (un copier/coller d'une cellule vers d'autre quoi..)
Ma question est : comment facilement copier la valeur d'une combobox dans la cellule A3 ; A5 ; A99 ; A450 (ma selection, mais aléatoire suivant le chantier).

Cordialement

Liste déroulant pblm-1.xlsm

[Transitoire]

Dans le ruban/Développeur/Editeur aller menu insertion/module. Apparition d'un module coller ci-dessous.

Code :

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

1
2
3
Sub Test()
Range("A3").value = Range("A2").value
end sub

ou aussi(deux possibilités, il faut connaitre les deux suivant ce qu'il y a à copier)

Code :

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

1
2
3
4
Sub Tests()
Range("A2").Copy
Range("A3").PasteSpecial xlPasteValuesAndNumberFormats
End Sub

[patricktoulon]

Bonjour
exemple

Code :

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

1
2
3
Sub test1()
With Sheets(1): .[A3].Value = .[A2].Value: End With ' juste la valeur
End Sub

ou

Code :

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

1
2
3
Sub test2()
With Sheets(1): .[A2].Copy Destination:=.[A3]: End With ' tout a l'identique
End Sub

[tma2012cauret]

Bonsoir, merci pour vos réponses mais le problème est qu'on bride la case A3.
Moi j'aimerais copier la valeur A2 en A3, A4, A5 aujourd'hui, dans une heure j'aimerais copier la valeur A2, en A50, dans 2 heures, j'aimerais copier la valeur A2 en A999, A1000.

Mon meuble n'est jamais identique, il n'a jamais le même nombre de panneau.

[patricktoulon]

re
bonjour

Moi j'aimerais copier la valeur A2 en A3, A4, A5 aujourd'hui, dans une heure j'aimerais copier la valeur A2, en A50, dans 2 heures, j'aimerais copier la valeur A2 en A999, A1000.

comment veux tu que vba ou meme excel devine tes intentions !!
dis nous en plus sur ce point comment et pourquoi selectionnerais tu A3,A4,A5,A999,A1000 et surtout pourquoi?
si tu nous expliquais ca on pourrait peu etre t'aider sans ca c'est Mort

[tma2012cauret]

J'ai un meuble A, dans ce meuble A il y a :

A2 : PANNEAU A
A3 : PANNEAU B
A4 : PANNEAU C

...

En B2, je renseigne la couleur, par exemple "COULEUR A".

Ce qui me donne :



Le problème est que, dans les cases de la colonne B, j'ai une liste déroulante via un combobox.
Sa m'oblige donc à choisir pour CHAQUE cellule, la couleur.
Sachant que la couleur en B2, B3, B4 et B7 est identique, il parait évident que je vais copier la valeur B2 en B3, B4 et B7 plutôt que de renseigner CHAQUE cellule une à une. (dans mon exemple j'ai 5 pièces différentes, mais imaginons que j'ai 100 panneaux différents, je vais pas remplir chaque cellule 1 par 1)
En fait je souhaite faire un simple copier-collé, mais vu que je passe par une combobox (je passe par cette fonction pour avoir une liste déroulante "semi-automatique") sa ne fonctionne pas.

Le meuble étant différent à chaque fois (jamais le même nombre de panneau, de dimension, de couleur etc..) il faut que je puisse copier-collé la valeur B2 par exemple dans la sélection de cellule que je souhaite.

Si je passe par une liste déroulante en passant par "Validation des données", sa marche niquel, j'arrive à faire une copier-collé de cellule B2 vers n'importe quel cellule mais sauf que j'ai une liste de couleur énorme, donc je suis obligé de passé par une liste semi-automatique pour que sa soit intuitif.

[tma2012cauret]

Bonsoir, l'idée est juste copier-collé la valeur vers d’autre cellule (qui sont variable) mais vu que je passe par une combobox dans une cellule ce n'est pas aussi simple qu'en passant par une liste déroulante (par validation des données).