Discussion :

[young 25]

bonjour à tous,

j'ai un fichier avec plusieurs macro dont 1 qui me bloque depuis quelques jours et je ne comprends pas.

cette macro devrait me permettre de copier des cellules et de les coller dans d'autres en fonction d'un menu deroulant.
J'ai fais la macro copier coller mais elle copie et colle toujours les mêmes cellules.

Le but etant de selectionner une colonne via le menu déroulant est de la coller sur la colonne précedante.


Je vous joins le fichier, le copier coller qui fonctionne se trouve en formation 2

merci d'avance de votre aide

[Gorfael]

Salut young 25 et le fichier
Donne ton code, plutôt que le fichier(qui n'est pas passé).
A+

[young 25]

hello gorfael
voici le code ainsi que le fichier
merci a toi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub ComboBox2_Change()
Formation = ComboBox2.Value
End Sub
 
Private Sub CommandButton1_Click()
UserForm3.Hide
 
End Sub
 
Private Sub CommandButton2_Click()
Range("i13:i1407").Select
    Selection.Copy
    Range("h13:h1407").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
Range("i13:i1407").ClearContents
Range("b10").Select
 
        End Sub
 
Private Sub UserForm_Initialize()
Dim Cell As Range
 
    For Each Cell In Range("F11:ge11")
        If Cell <> "" Then ComboBox2.AddItem (Cell)
    Next
 
 
End Sub

[patricktoulon]

bonjour j ai essayé ton fichier efectivement la copie ne se faisait pas

essaie de metre "nom de l'userform . show 0" a chaque fois qu'il est nessecaire

en en effet quand tes userforms sont actif ta feuille est intouchable si tes userforms sont en modal donc tout tes select sont obsoletes

j'ai changer juste ces point dans ton fichier et ca a fonctionné


au plaisir